bearbear1 发表于 2010-6-24 14:48:00

块阵列 不会写请教

<p><font face="Verdana">(defun c:xx( )</font></p>
<p><font face="Verdana">(setq pt0 (list 1000 0)) ;块 插入点pt0<br/><br/>(command "insert" "2boli" pt0 "" "" 0);&nbsp;&nbsp; <br/>(setq la (entget (entlast)))<br/>(command "array"&nbsp;pt0 r 1 4 1000); <br/>)</font></p>
<p>&nbsp;</p>
<p>;最后两句不会写 意思是 块阵列一行四列 间矩1000</p>

crazylsp 发表于 2010-6-24 15:06:00

<p>(setq p(entget(entlast)))好像不起作用去掉算了</p>
<p>下一句改成</p>
<p><font face="Verdana">(command "array"&nbsp;(entlast) "" "R" "1" "4" "1000" )</font></p>
<p>或<font face="Verdana">(command "array" "w" pause pause "" "R" "1" "4" "1000" )</font></p>

bearbear1 发表于 2010-6-24 15:16:00

<p>非常感谢</p>
<p>&nbsp;</p>

bearbear1 发表于 2010-6-24 15:25:00

<p><font face="Verdana">(command "array" (entlast) "" "R" "1" n cd )</font></p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>我的列是个变量 n ，及间矩也是变量cd</p>
<p>&nbsp;</p>
<p>语法过不去，请教</p>

bearbear1 发表于 2010-6-24 15:39:00

<p>已解决，</p>
<p>&nbsp;</p>
<p>n&nbsp; 用getint,不能用getreal</p>
页: [1]
查看完整版本: 块阵列 不会写请教