scl111 发表于 2007-1-26 17:22:00

如何用VLISP打开已存在的dwg文件

<p>以前总是在一个文件下使用lisp，这两天想作一个批量修改，打印dwg文件的命令，可无论如何都打不开已存在的dwg文件。如使用getfiled必须手动确认，文件太多不成。</p><p>如使用</p><p>(vl-load-com)<br/>(setq&nbsp;acadobject &nbsp;(vlax-get-or-create-object "AutoCAD.Drawings\"))</p><p>则只打开一个新文件，查了N多资料也没找到办法，那位好心人指点一下如何打开，保存已有文件</p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;">谢谢了！！！</p><p></p><p>&nbsp;</p><p>&nbsp;</p><p></p>

iamhaicong 发表于 2007-1-26 21:49:00

用脚本文件SCR

ZZXXQQ 发表于 2007-1-26 22:35:00

如果是批量打印的话可以直接用ACAD自带的发布功能。只要将文件的页面设好，可以一骨脑的发布到打印机上去。

scl111 发表于 2007-1-29 09:30:00

scr不明白！有没有代码？说明一下好吗？<br/>谢谢了<br/>

alin 发表于 2007-1-30 14:13:00

<p>In&nbsp;this script file pnng.scr, I opened two drawings one by one...</p><p></p><p>open "H:\Hutchison 3G Design Services (NSW)\12.0 Drawings File\220004z Condell Park\Level-4\NDC-STD-S31.dwg"<br/>qsave<br/>(command "-purge" "all" "" "n")<br/>qsave<br/>(command "-pack" "c" "" (vl-string-right-trim "\\" (getenv "PNGPATH") ) "" "" "")<br/>qsave<br/>close<br/>open "H:\Hutchison 3G Design Services (NSW)\12.0 Drawings File\220004z Condell Park\Level-4\NDC-STD-S30.dwg"<br/>qsave<br/>(command "-purge" "all" "" "n")<br/>qsave<br/>(command "-pack" "c" "" (vl-string-right-trim "\\" (getenv "PNGPATH") ) "" "" "")<br/>qsave<br/>close<br/>open "H:\Hutchison 3G Design Services (NSW)\12.0 Drawings File\220004z Condell Park\Level-4\2200-04-L4.dwg"<br/>qsave<br/>(command "-purge" "all" "" "n")<br/>qsave<br/>(command "-pack" "c" "" (vl-string-right-trim "\\" (getenv "PNGPATH") ) "" "" "")<br/>qsave<br/>close<br/></p>

scl111 发表于 2007-1-30 20:15:00

可是版主啊  如果我将要打开的文件放入了一个数组（实际上我也是这样做的）fl里面<br/>这时候用脚本就没办法打开文件了<br/>你的文件名是直接写在脚本里的吗？<br/><br/><br/><br/>

alin 发表于 2007-1-31 10:02:00

<p>Response to 你的文件名是直接写在脚本里的吗？</p><p>No, I created the script file from a lisp program.</p>

scl111 发表于 2007-1-31 10:11:00

好主意
页: [1]
查看完整版本: 如何用VLISP打开已存在的dwg文件