如何把画出的线做成一体的

CADghost

我在LSP中画了几条线 

怎么能点取一条线的时候，其它几条一起亮显呢？我说的可不是做成块哦~

sailorcwx

编组group

wbx103

lisp如何实现未命名编组?

xyp1964

2. (load "xyp_lib.vlx") ;版本 V.20051204
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
5. ★1·在acad.lsp中增加(load"xyp_lib")
6. ■2·在每个程序内增加(load"xyp_lib")
7. ■3·在command下，输入(load"xyp_lib")
8. ■4·在菜单.mnl中增加(load"xyp_lib")
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
12. [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url]
13. |;
14. (defun c:test ()
15.   (CMDLA0)
16.   (setvar "osmode" 0)
17.   (setq ss  (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))
18. ss1 (ssadd)
19. s0  (ssname ss 0)
20. pt1 (xyp-get-MinMaxPoint s0 1)
21. pt9 (xyp-get-MinMaxPoint s0 9)
22. ss2 (ssget "C" pt1 pt9)
23. ss2 (ssget "p" '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))
24. i   -1
25.   )
26.   (while (setq s1 (ssname ss2 (setq i (1+ i))))
27.     (if (xyp-get-Inters s0 s1 0)
28.       (setq ss1 (ssadd s1 ss1))
29.     )
30.   )
31.   (if ss1
32.     (setq ss1 (ssadd s0 ss1))
33.   )
34.   (xyp-Redraw3 ss1)
35.   (CMDLA1)
36. )

(load "xyp_lib.vlx") ;版本 V.20051204 ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下) 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： ★1·在acad.lsp中增加(load"xyp_lib") ■2·在每个程序内增加(load"xyp_lib") ■3·在command下，输入(load"xyp_lib") ■4·在菜单.mnl中增加(load"xyp_lib") ■5·将xyp_lib.vlx文件直接拽到cad屏幕 [COLOR=red] ★通用函数下载地址：[/COLOR] [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url] |; (defun c:test ()   (CMDLA0)   (setvar "osmode" 0)   (setq ss  (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC"))) ss1 (ssadd) s0  (ssname ss 0) pt1 (xyp-get-MinMaxPoint s0 1) pt9 (xyp-get-MinMaxPoint s0 9) ss2 (ssget "C" pt1 pt9) ss2 (ssget "p" '((0 . "CIRCLE,ELLIPSE,*LINE,ARC"))) i   -1   )   (while (setq s1 (ssname ss2 (setq i (1+ i))))     (if (xyp-get-Inters s0 s1 0)       (setq ss1 (ssadd s1 ss1))     )   )   (if ss1     (setq ss1 (ssadd s0 ss1))   )   (xyp-Redraw3 ss1)   (CMDLA1) )

wbx103

sailorcwx

组名为*就是未命名的

wbx103

谢谢了，解决了困扰我好久的问题！

CADghost

编组不就和块差不多了嘛，我的意思是选中其它几条线的时候，都不会有反应，就在选中指定的一条线的时候其它几条线才会亮显

北斗七星

用反应器就可以了

xyp1964

命令：yth