hao3ren
发表于 2008-2-20 00:46:00
<p>(defun cmd1 () (command "-insert" "SCSL101"))</p><p>呵呵，改成这样好像可以用了</p>
王咣生
发表于 2008-2-20 21:00:00
<p>将insert定义在lisp函数中:</p><p>(defun c:SlideMgr16_Test ( / name data)<br/> <font color="#f70909"> (defun mycmd () (command ".insert"))<br/></font> <br/> ;<br/> (setq name "Hello")<br/> (setq data '(("scsl(SCSL101)" "列表信息" "(<font color="#dd6d22">mycmd</font>)")<br/> )<br/> )<br/> ;<br/> (LoadDialog_SlideMgr16 "SlideMgr16" data)<br/> (princ)<br/>)</p>
mcxiangxin
发表于 2008-2-23 23:06:00
大哥,能不能加二个按钮,可以实现在里面用mslide创建sld文件,同时将常用的零件也保存到目录下去就更方便了
王咣生
发表于 2008-2-24 19:46:00
<p>我只是尽量作通用一些,我也不是做零件的.</p><p>第一楼有源程序,你可以改一下.</p>
etom999
发表于 2008-2-25 09:44:00
块插入时(有多个属性),怎么避免多次回车(属性插入时先不输入)?
王咣生
发表于 2008-2-25 17:00:00
<p>用VLISP方法插入块:</p><p>(defun test ( / f app doc mod)<br/> (setq f "C:\\abcdef.dwg")<br/> <br/> (setq app (vlax-get-acad-object)<br/> doc (vla-get-activedocument app)<br/> mod (vla-get-modelspace doc))<br/> (vla-insertblock mod (vlax-3d-point 0.0 0.0) f 1.0 1.0 1.0 0.0)<br/> (princ)<br/>)</p><p>这样不提示输入属性.</p>
szx025
发表于 2008-2-26 07:54:00
<p>ACAD 2007如何做？</p><p></p>
王咣生
发表于 2008-2-26 09:15:00
这是LISP和DCL，一般不存在版本问题
cnks
发表于 2008-2-26 15:30:00
能否把DCG工具发上来看看？？
王咣生
发表于 2008-2-26 15:59:00
<p>在Google上很容易搜索到:</p><p><a href="http://www.vlisp.com/showthread.php?t=56">http://www.vlisp.com/showthread.php?t=56</a></p>