cad批量谷歌翻译lisp_LISP批量打开CAD图操作

(arxload"acetutil.arx"NIL);;需要相应版本的ET(ExpressTools)工具支持(vl-load-com)(defunc:GText(/OLDECHOAPPDWGNAME2pathnumdwgnameOLDLSPdocent);;主程序定义(setqOLDECHO(getv...

(arxload "acetutil.arx" NIL) ;;需要相应版本的 ET(Express Tools)工具支持

(vl-load-com)

(defun c:GText (/ OLDECHO APP DWGNAME2 path num dwgname OLDLSP doc ent

);;主程序定义

(setq OLDECHO (getvar "cmdecho"));;保存系统变量值

(setvar "cmdecho" 0)

(setq path

(strcat

(vl-string-right-trim

"\\"

(strcase (acet-ui-pickdir

"选择目录"

(vl-string-right-trim "\\" (getvar "dwgprefix")) "批量修改")))"\\"))

(setq OLDLSP (getvar "ACADLSPASDOC"));;保存系统变量值

(setvar "acadlspasdoc" 0)

(setq dwgname (vl-directory-files path "*.DWG"))

(setq num 0)

(if (/= dwgname NIL)

(progn

(setq APP (vlax-get-acad-object));获得 Acad 对象

(repeat (length dwgname)

(setq DWGNAME2 (strcase (strcat path (nth num dwgname))))

(setq doc (vla-open (vla-get-documents APP) DWGNAME2));打开图形并获得其对象

;;以下用省略号代表具体处理程序，用户可在此处添加自己所需的处理的代码。

;; ,start

。。。。。。。。。。。

;;;end

(vla-close doc :vlax-false);关闭图形(不检查是否保存)

(setq num (1+ num))

)

(vlax-release-object doc)

(vlax-release-object APP)

)

(prompt "\n 所选目录中未有任何图形!!")

)

(setvar "acadlspasdoc" OLDLSP);;恢复系统变量值

(setvar "cmdecho" OLDECHO) ;;恢复系统变量值

(princ)

)

这段代码中，运行到(setq doc (vla-open (vla-get-documents APP) DWGNAME2))报错；求大神指导

展开

cad批量谷歌翻译lisp_LISP批量打开CAD图操作相关推荐

CAD软件版本过低无法打开CAD图纸
我们都知道CAD图纸版本过低可能无法在CAD制图软件中打开显示.但是也会有这样一种个情况 ,无法打开的CAD图纸是由高版本的CAD制图软件所绘制,所以该文件的保存格式是属于高版本的,而用户使用的CAD ...
cad 中的计算机在哪里打开,CAD计算器如何使用？
有网友问在输入坐标或长度的时候是否能输入公式,比如20/3或7*8这样简单的算式.CAD虽然在定位点或长度时不能直接输入算式,但利用计算器功能不仅可以输入数字的算式,还可以输入点之前的算式,点可以是直 ...
使用GoogleTranslateIpCheck查找适用谷歌翻译服务器ip，解决谷歌浏览器无法翻译问题
使用GoogleTranslateIpCheck查找适用谷歌翻译服务器ip 参考项目地址操作步骤一. 二. 三. 验证参考项目地址链接: https://github.com/Ponderfl ...
python调用谷歌翻译英文文献pdf_Python 调用 Google Translate API 批量翻译文章
有时候批量翻译中文文章,批量变成各个小语种的语言,手动的粘贴复制是非常慢的.需要调用翻译 API 接口,综合对比市面上的各个翻译 API,个人觉得 Google 的翻译 API 最为好用和准确. 下面 ...
cad批量打印_CAD如何批量打印
CAD虽然有自带的批量打印工具,但是功能不是很完善,用起来不大方便,所以批量打印基本上都是借助插件进行打印.网上批量打印插件很多,不过这里强力推荐BatchPlot,这个工具比较稳定,基本上CAD都可 ...
谷歌翻译下载-大家都在用的批量谷歌翻译软件下载
谷歌翻译下载,今天给大家分享一款免费的谷歌翻译下载,我们为什么大家都选择这款好用的翻译软件,因为汇集了世界最好的几个翻译平台(百度/谷歌/有道),第一点翻译质量高,选择性多.第二点支持各种语言互译,第 ...
CAD的格式转换和批量打印技巧
办公日常中,文档格式的相互转换是必然的,不同的文档格式使用范围不同,尤其是CAD软件的受众比较小,不转换成PDF和JPG之类的比较通用的格式,图纸的传播就会受到限制.今天,小编就给大家安利一个好用的C ...
如何批量打印出黑白颜色的CAD图纸？
如何批量打印出黑白颜色的CAD图纸?CAD设计师们,为了方便查看CAD图纸,经常需要批量打印CAD图纸,下面就来教教大家在CAD编辑器中如何批量打印出黑白颜色的CAD图纸操作演示. 1.启动CAD编辑 ...
ArcGIS中批量导出Shp与批量转换CAD格式
ArcGIS中批量导出Shp与批量转换CAD格式此博文包含图片 (2017-11-24 11:15:00)转载▼ 分类: ArcGIS ArcGIS批量导出shp图层中的某属性相同的图斑(一对多导出 ...
谷歌excel表格批量翻译各国语言
例子: 英语翻译中文 =GOOGLETRANSLATE(B1,"auto","zh_cn") 教程:前提条件要能打开谷歌谷歌翻译表格地址:https://do ...

cad批量谷歌翻译lisp_LISP批量打开CAD图操作

cad批量谷歌翻译lisp_LISP批量打开CAD图操作相关推荐

最新文章

热门文章

cad批量 谷歌翻译lisp_LISP批量打开CAD图操作

cad批量 谷歌翻译lisp_LISP批量打开CAD图操作相关推荐

最新文章

热门文章

cad批量谷歌翻译lisp_LISP批量打开CAD图操作

cad批量谷歌翻译lisp_LISP批量打开CAD图操作相关推荐