欢迎来到天天文库
浏览记录
ID:47041121
大小:63.00 KB
页数:7页
时间:2019-07-05
《Cad批量打印vlisp源码必备》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、Cad批量打印vlisp源码必备,获取打印机名,获取打印样式,获取指定打印机的图纸尺寸,必用的系统变量等代码详解;;获取acad.exe所在目录(vla-get-path(vlax-get-acad-object));;获取文件搜索路径(getvar"acadprefix");;增加文件搜索路径(defunPutSupportPath(Path)(vla-put-SupportPath(vla-get-Files(vla-get-Preferences(vlax-get-acad-object)))(strcat(getvar"acadprefix")";"Path))
2、);;Windows系统路径(mjtd)(getenv"Windir");;获取AUTOCAD的语言版本(mjtd)英文=enu简体=chs繁体=cht(getvar"LOCALE");;++++++++++++++++++++++++++++++++++++++++++++++++++++++;;打印机系列(setqad(vla-get-activedocument(vlax-get-acad-object)));;所有的"图纸尺寸"定义(defunGetCanonicalMediaNames(ad)(vla-RefreshPlotDeviceInfo(vla-get
3、-activelayoutad))(vlax-safearray->list(vlax-variant-value(vla-GetCanonicalMediaNames(vla-item(vla-get-layoutsad)"Model")))));;"图纸尺寸"定义的本地名称(defunGetLocaleMediaNames(ad/mnmnl)(setqla(vla-item(vla-get-layoutsad)"Model"))(foreachmn(GetCanonicalMediaNamesad)(setqmnl(cons(vla-GetLocaleMediaNa
4、melamn)mnl)))(reversemnl));;所有的打印机设置.(设置,不是名称!)(defunGetPlotDevices(ad)(vla-RefreshPlotDeviceInfo(vla-get-activelayoutad))(vlax-safearray->list(vlax-variant-value(vla-getplotdevicenames(vla-item(vla-get-layoutsad)"Model")))));;当前布局的当前打印机:pc3(defunGetActivePlotDevice(ad)(vla-get-ConfigNam
5、e(vla-get-ActiveLayoutad)));;当前设置下的"打印样式":ctb(defunGetPlotStyleTableNames(ad)(vla-RefreshPlotDeviceInfo(vla-get-activelayoutad))(vlax-safearray->list(vlax-variant-value(vla-getplotstyletablenames(vla-item(vla-get-layoutsad)"Model")))));;所有的,(可能不会这么用)(defunListAllMediaNames(ad/alcnpdapmn)
6、(setqal(vla-get-activelayoutad))(setqcn(vla-get-confignameal))(foreachpd(GetPlotDevices)(if(/=pd"None")(progn(vla-put-confignamealpd)(setqapmn(conspdapmn))(setqapmn(cons(GetCanonicalMediaNamesad)apmn)))))(if(/=cn"None")(vla-put-confignamealcn))(reverseapmn));(ListAllLocalMediaNames(vla-g
7、et-activedocument(vlax-get-acad-object)))(defunListAllLocalMediaNames(ad/alcnpdapmn)(setqal(vla-get-activelayoutad))(setqcn(vla-get-confignameal))(foreachpd(GetPlotDevicesad)(if(/=pd"None")(progn(vla-put-confignamealpd)(setqapmn(conspdapmn))(setqapmn(cons(GetLocaleMediaNa
此文档下载收益归作者所有