Cad批量打印vlisp源码必备.doc

《Cad批量打印vlisp源码必备.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

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)));;Window

2、s系统路径(mjtd)(getenv"Windir");;获取AUTOCAD的语言版本(mjtd)英文=enu简体=chs繁体=cht(getvar"LOCALE");;++++++++++++++++++++++++++++++++++++++++++++++++++++++;;打印机系列(setqad(vla-get-activedocument(vlax-get-acad-object)));;所有的"图纸尺寸"定义(defunGetCanonicalMediaNames(ad)(vla-RefreshPlotDeviceInfo(vla-get-activelayoutad))(

3、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-GetLocaleMediaNamelamn)mnl)))(reversemnl));

4、;所有的打印机设置.(设置，不是名称!)(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-ConfigName(vla-get-ActiveLayoutad)));;当前设置下的"

5、打印样式":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)(setqal(vla-get-activelayoutad))(setqcn(vla-g

6、et-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-get-activedocument(vlax-get-acad-object)))(defunListAll

7、LocalMediaNames(ad/alcnpdapmn)(setqal(vla-get-activelayoutad))(setqcn(vla-get-confignameal))(foreachpd(GetPlotDevicesad)(if(/=pd"None")(progn(vla-put-confignamealpd)(setqapmn(conspdapmn))(setqapmn(cons(GetLocaleMediaNa