岩土工程CAD 发表于 2008-5-20 16:38:00

求打开文件夹，选择文件，并插入CAD的lsp或vlisp程序

求打开文件夹，选择文件，并插入CAD的lsp或vlisp程序。

ZZXXQQ 发表于 2008-5-20 21:10:00



(defun c:tt ()
(setvar "CMDECHO" 0)
(setq oldos (getvar "OSMODE"))
(setq nmm (if nmm nmm ""))
(if (setq nmm (getfiled "选择文件" nmm "dwg" 9) (progn
   (command "insert" nmm pause "" "" "")
))
(setvar "OSMODE" oldos)
(setvar "CMDECHO" 1)
(princ)
)

岩土工程CAD 发表于 2008-5-21 09:50:00

<font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/if.htm" target="_black"><font color="#0000ff">if</font></a>
        <font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black"><font color="#0000ff">setq</font></a> nmm <font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/getfiled.htm" target="_black"><font color="#0000ff">getfiled</font></a>
        <font color="#ff00ff">"选择文件"</font> nmm <font color="#ff00ff">"dwg"</font>
        <font color="#008000">9</font><font color="#ff0000">)</font>
        <font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/progn.htm" target="_black"><font color="#0000ff">progn</font></a><br/>&nbsp;&nbsp;&nbsp;&nbsp;<font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/command.htm" target="_black"><font color="#0000ff">command</font></a>
        <font color="#ff00ff">"insert"</font> nmm pause <font color="#ff00ff">"" "</font><font color="#ff00ff">" "</font>"<font color="#ff0000">)</font><br/>加载时出错，参数太多。

jiaozhili520 发表于 2011-6-27 01:29:20

我也想学习学习

jiaozhili520 发表于 2011-6-27 01:30:00

有没有可以通过编号插入块的LSP文件

jiaozhili520 发表于 2011-6-27 01:30:38

如何通过LSP文件将块编号的数字直接插入块

yoyoho 发表于 2011-6-27 22:31:57

感谢z版分享程序!
nmm "dwg" 9) ==>nmm "dwg" 9))
autocad 2008 测试 o.k.
页: [1]
查看完整版本: 求打开文件夹，选择文件，并插入CAD的lsp或vlisp程序