sf117 发表于 2007-8-24 01:27:00

[求助] 连续插入块的问题

本帖最后由 作者 于 2007-8-24 1:27:55 编辑 <br /><br /> <p><font size="3">我想连续插入同一个块，如LISP里面，我想要实现插入块之后又自动循环插入块，应该怎么修改一下代码呀？先谢过各位大侠！！！</font></p><p><font size="3"></font></p><p>(defun c:in()<br/>&nbsp; (command "layer" "m" "j" "")<br/>&nbsp; (command "insert" "w-10.dwg" "s" "1" "r" "0" "")<br/>&nbsp; )</p>

phoenixdjq 发表于 2007-8-24 14:15:00

<p>你要插到什么地方呀</p><p>你要用到循环，因为你要选择n个插入点</p><p>你提的要求不是很清楚，把你想插入的具体要求写清楚一点</p>

ZZXXQQ 发表于 2007-8-24 14:36:00

<p>试试：</p><p>(defun c:in()<br/>&nbsp;(command "layer" "m" "j" "")<br/>&nbsp;(command "-insert" "w-10.dwg" "0,0" "1" "" "0")<br/>&nbsp;(SETQ SS (ENTLAST))<br/>&nbsp;(WHILE (SETQ PT (GETPOINT "\nInsert Point : 插入点 :"))<br/>&nbsp; (COMMAND "COPY" SS "0,0" PT)<br/>&nbsp;)<br/>&nbsp;(COMMAND "ERASE" SS "")<br/>&nbsp;(PRINC)<br/>)</p>

sf117 发表于 2007-8-24 20:39:00

<p>不好意思之前没有说清楚，还有斑竹<strong><font face="Verdana" color="#da2549">
                                <font color="#000000">ZZXXQQ 的我试了一下也不大可以！</font></font></strong></p><p><font face="Verdana"><strong>我现在是在做地形的内业，就是要把很多 路灯 的块插入到图形里，但是插入点是要自己动手来选择的，当我插入一个块以后又自动重复循环插入块的命令，就是比例和旋转角度都是固定的，插入点手动选择！不知道这样应该怎么实现？？？</strong></font></p><p><strong><font face="Verdana">谢谢两位的支持！</font></strong></p>

sf117 发表于 2007-8-24 21:17:00

<p>我刚刚又自己试了一下，可以满足我目前部分的要求：</p><p>(defun c:in()<br/>&nbsp; (command "layer" "m" "j" "")</p><p>&nbsp; (while 1<br/>&nbsp; (command "-insert" "w-10.dwg" "s" "1" "r" "0" (getpoint))<br/>&nbsp; )<br/>&nbsp; )</p><p>这样自动循环重复的插入块，但是我想如果角度也让用户来选择就不可以了，因为我插入电线杆是需要人工选择的：(command "-insert" "w-10.dwg" "s" "1"&nbsp;(getpoint) “r” (getangle)) 这样试了不可以，再请各位大侠来指点指点！</p><p>这些小的细节难了我好久！</p><p></p><p></p>

sailorcwx 发表于 2007-8-24 21:41:00

<p>用pause就可以了</p><p>&nbsp; (command "-insert" "w-10.dwg" "s" "1" pause pause)<br/></p>

sf117 发表于 2007-8-24 22:50:00

<p>非常感谢 <strong><font face="Verdana" color="#61b713">sailorcwx <font color="#000000">这位仁兄，又教了我一招。</font></font></strong></p><p><strong><font face="Verdana" color="#000000">3Q！！！</font></strong></p>

nyf305921 发表于 2010-11-25 15:24:00

&nbsp;没太看懂，w-10.dwg是外部的块文件吗？<br/><br/>如果要插入任意一个块是不是要改成其他的名字啊？<br/>

Andyhon 发表于 2010-11-25 16:09:00

<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana"></font>&nbsp;</p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">;; 等待 User 给出块文件名</font>&nbsp;</p>
<p></font><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">(command "-insert" pause "0,0" "1" "" "0")&nbsp;&nbsp;</font></p>

就一小卒 发表于 2010-11-25 18:18:00

<p><font face="Verdana">前提是把要插入的块放在文件的搜索路径下。或者放在作图的目录下也可以</font></p>
<p><font face="Verdana">(setq a (getstring "\n请输入要插入的块名"))<br/>(setq d (getpoint "\n请输入块的插入点"))<br/>(while d<br/>&nbsp; (command "-insert" a d 1 1 0 "")<br/>&nbsp; (setq d (getpoint "\n请输入块的插入点"))<br/>&nbsp; )</font></p>
<p>&nbsp;</p>
页: [1] 2
查看完整版本: [求助] 连续插入块的问题