根据一个封闭图形选取该图形内所有元素

tryhi

2. (defun c:xq(/ dengf ssd i lss point1 xuanze)
   
3.   (setq dengf(entsel))
   
4.   (command "measure" dengf "2" "");每两个单位分一个点，可根据具体情况修改大小
   
5.   (setq ssd(ssget "p"))
   
6.   (setq i 0)
   
7.   (setq lss nil)
   
8.   (repeat (sslength ssd)
   
9.     (setq point1(cdr(assoc 10 (entget(ssname ssd i)))))
   
10.     (setq lss (cons point1 lss))
    
11.     (setq i (+ 1 i))
    
12. ;;;    (prompt (strcat (rtos i 2 2) "\n"))
    
13.   )
    
14.   
    
15.   (command "erase" ssd "")
    
16.   (setq ssd nil)
    
17.   (command "zoom" "o" dengf "")
    
18.   (Setq xuanze (ssget "XP" lss))
    
19.   (sssetfirst xuanze xuanze)
    
20. )
    
21. (prompt
    
22.   "******* 加载图形内选元素xq命令完成！*******------大海制作"
    
23. )
    
24. (prin1)

(defun c:xq(/ dengf ssd i lss point1 xuanze)<br />   (setq dengf(entsel))<br />   (command "measure" dengf "2" "");每两个单位分一个点，可根据具体情况修改大小<br />   (setq ssd(ssget "p"))<br />   (setq i 0)<br />   (setq lss nil)<br />   (repeat (sslength ssd)<br />     (setq point1(cdr(assoc 10 (entget(ssname ssd i)))))<br />     (setq lss (cons point1 lss))<br />     (setq i (+ 1 i))<br /> ;;;    (prompt (strcat (rtos i 2 2) "\n"))<br />   )<br />   <br />   (command "erase" ssd "")<br />   (setq ssd nil)<br />   (command "zoom" "o" dengf "")<br />   (Setq xuanze (ssget "XP" lss))<br />   (sssetfirst xuanze xuanze) <br /> )<br /> (prompt<br />   "******* 加载图形内选元素xq命令完成！*******------大海制作"<br /> )<br /> (prin1)

源码在上面，发附件是为了求赞助


原理是用Andyhon的指点的方法   measure曲线    取出 Points 串成 PtList

ljpnb

(Setq xuanze (ssget "XP" lss))
改成(Setq xuanze (ssget "WP" lss))

tryhi

ljpnb 发表于 2011-7-29 06:27
(Setq xuanze (ssget "XP" lss))
改成(Setq xuanze (ssget "WP" lss))

找到原因了，不是这个。原因是屏幕要完全显示多边形才能正常选择，不知有什么办法解决

ljpnb

加一句（command "zoom" "o" dengf "")

tryhi

ljpnb 发表于 2011-7-29 13:32
加一句（command "zoom" "o" dengf "")

非常感谢ljpnb的指点。居然忘了这个命令。


刚来学习autolisp，刚来这个论坛，好像评分加的金钱没有用是不？

llkill

不错的东西啊

Adgkkk

挺不错的，这个

652758365

............................

xujinhua

送上赞助....我一直想写。。可不会

TANER

如果封闭实体为不规则网线如spline等呢?