社区 › AutoLISP/Visual LISP 编程技术 › [求助]如何取得阵列后所得图元?

xiexiaohua 发表于 2007-6-2 11:14:00

[求助]如何取得阵列后所得图元?

<p>&nbsp; 这是本人编的测试小程序:&nbsp;&nbsp;&nbsp; 不知怎么的,选不上阵列后所得的6个小圆柱，请大家帮帮忙！！！！！</p><p>&nbsp;(defun c:aa()<br/>(setq p1 (getpoint"\n1111"))<br/>(command "circle" p1 100 "")<br/>(setq x1 (ssget "L"))<br/>(setq p2 (polar p1 0 50))<br/>(command "circle" p2 15 "")<br/>(setq x2 (ssget "L"))<br/>(command "extrude" x1 "" 100 0)<br/>(setq x3 (ssget "L"))<br/>(command "extrude" x2 "" 100 0)<br/>(setq x4 (ssget "L"))<br/>(command "array" x4 "" "p" p1 6 360 "y")<br/>(ssadd (entlast) x4)<br/>(command "subtract" x3 "" x4 ""))</p>

caoyin 发表于 2007-6-2 12:31:00

<p>;; ▓ (lt:ss-entnext en)<br/>;; [功能] 获取在图元 en 之后产生的图元的选择集<br/>;; [参数] en----图元名<br/>;; [返回] 选择集<br/>;; [测试]1.(setq ent (entlast))<br/>;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 执行创建图元的命令，如 LINE,BOUNDARY<br/>;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq lst (lt:ss-entnext ent))<br/>;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 2.(setq s (lt:ss-entnext (car(entsel))))<br/>(defun lt:ss-entnext (en / ss)<br/>&nbsp; (setq ss (ssadd))<br/>&nbsp; (while en (setq en (entnext en)) (if en (ssadd en ss)))<br/>&nbsp; (if (zerop (sslength ss)) (setq ss nil))<br/>&nbsp; ss<br/>)</p><p></p><p></p>

xiexiaohua 发表于 2007-6-2 12:53:00

&nbsp;&nbsp; 先谢谢<strong><font face="Verdana" color="#61b713">caoyin大侠的解答.我去实践一下.</font></strong>

xiexiaohua 发表于 2007-6-2 13:41:00

<p>&nbsp; 我还是运行不了,这么修改,对吗?</p><p>&nbsp; (defun c:aa()<br/>(setq p1 (getpoint"\n1111"))<br/>(command "circle" p1 100 "")<br/>(setq x1 (ssget "L"))<br/>(setq p2 (polar p1 0 50))<br/>(command "circle" p2 15 "")<br/>(setq x2 (ssget "L"))<br/>&nbsp;(command "extrude" x1 "" 100 0)<br/>(setq x3 (ssget "L"))<br/>(command "extrude" x2 "" 100 0)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>(setq en (entlast))<br/>(command "array" en "" "p" p1 6 360 "y")<br/>(lt:ss-entnext)<br/>(setq x5 (lt:ss-entnext en))<br/>(command "subtract" x3 "" x5 ""))</p><p><br/>(defun lt:ss-entnext (en / ss)<br/>(setq ss (ssadd))<br/>(while en (setq en (entnext en)) (if en (ssadd en ss)))<br/>(if (zerop (sslength ss)) (setq ss nil))<br/>&nbsp; ss)<br/></p>

caoyin 发表于 2007-6-2 13:50:00

本帖最后由 作者 于 2007-6-2 13:53:48 编辑 <br /><br /> <p>(defun c:aa (/ lt:ss-entnext p1 x1 p2 x2 x3 x4 x5)<br/>&nbsp; (defun lt:ss-entnext (en / ss)<br/>&nbsp;&nbsp;&nbsp; (setq ss (ssadd))<br/>&nbsp;&nbsp;&nbsp; (while en (setq en (entnext en)) (if en (ssadd en ss)))<br/>&nbsp;&nbsp;&nbsp; (if (zerop (sslength ss)) (setq ss nil))<br/>&nbsp;&nbsp;&nbsp; ss<br/>&nbsp; )<br/>&nbsp; (setq p1 (getpoint"\n1111"))<br/>&nbsp; (command "_.circle" p1 100 "")<br/>&nbsp; (setq x1 (entlast))<br/>&nbsp; (setq p2 (polar p1 0 50))<br/>&nbsp; (command "circle" p2 15 "")<br/>&nbsp; (setq x2 (entlast))<br/>&nbsp; (command "extrude" x1 "" 100 0)<br/>&nbsp; (setq x3 (entlast))<br/>&nbsp; (command "extrude" x2 "" 100 0)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp; (setq x4 (entlast))<br/>&nbsp; (command "array" x4 "" "p" p1 6 360 "y")<br/>&nbsp; (setq x5 (lt:ss-entnext x4))<br/>&nbsp; (ssadd x4 x5)<br/>&nbsp; (command "subtract" x3 "" x5 "")<br/>)</p>

xiexiaohua 发表于 2007-6-2 19:18:00

非常感谢caoyin 大侠解了我的燃眉之急......

xiexiaohua 发表于 2007-6-2 19:24:00

还是感谢caoyin ,我又学到了新知识了!!!!!!!!

qq1254582201 发表于 2019-6-14 00:34:53

再次收藏类似程序

查看完整版本: [求助]如何取得阵列后所得图元?