如何一次性选择一条直线以及插入点在该线上的块？

半听可乐

半听可乐 发表于 2012-12-30 11:41
多谢院长！刚试了，怎么没反应呢？

~~~里面貌似有你的自定义函数，按图索骥确实也没找到，不会是得加载您那整个工具箱？菜鸟，感觉答案已经很近了，不会用就是不会用，见谅

yjr111

2. (defun c:tt ()
   
3.   (if (and (setq s1 (car (entsel "\n选择: ")))
   
4.            (equal (cdr(assoc 0 (entget s1))) "LINE")
   
5.       )
   
6.     (setq ss (ssget "f"
   
7.                     (list (cdr(assoc 10 (entget s1))) (cdr(assoc 11 (entget s1))))
   
8.                     '((0 . "insert"))
   
9.              )
   
10.     )
    
11.   )
    
12.   (sssetfirst ss ss)
    
13.   (princ)
    
14. )

(defun c:tt ()<br />   (if (and (setq s1 (car (entsel "\n选择: ")))<br />            (equal (cdr(assoc 0 (entget s1))) "LINE")<br />       )<br />     (setq ss (ssget "f"<br />                     (list (cdr(assoc 10 (entget s1))) (cdr(assoc 11 (entget s1))))<br />                     '((0 . "insert"))<br />              )<br />     )<br />   )<br />   (sssetfirst ss ss)<br />   (princ)<br /> )

半听可乐

深夜回复，感动至极  赶紧试用，发现严大的程序对line及上面的块有效，但是line得二次选择（我想要的是选line或者PL，线以及插入点在线上的块同时被选上）。其二，貌似对标注不管用，请严大有空继续帮忙

xyp1964

2. (defun c:tt ()
   
3.   (defun dxf (code ename) (cdr (assoc code (entget ename))))
   
4.   (if (and (setq s1 (car (entsel "\n选择: ")))
   
5.            (equal (DXF 0 s1) "LINE")
   
6.            (setq ss (ssget "f"
   
7.                            (list (DXF 10 s1) (DXF 11 s1))
   
8.                            '((0 . "insert,DIMENSION"))
   
9.                     )
   
10.            )
    
11.       )
    
12.     (progn
    
13.       (setq ss (ssadd s1 ss))
    
14.       (sssetfirst ss ss)
    
15.     )
    
16.   )
    
17.   (princ)
    
18. )

(defun c:tt ()<br />   (defun dxf (code ename) (cdr (assoc code (entget ename))))<br />   (if (and (setq s1 (car (entsel "\n选择: ")))<br />            (equal (DXF 0 s1) "LINE")<br />            (setq ss (ssget "f"<br />                            (list (DXF 10 s1) (DXF 11 s1))<br />                            '((0 . "insert,DIMENSION"))<br />                     )<br />            )<br />       )<br />     (progn<br />       (setq ss (ssadd s1 ss))<br />       (sssetfirst ss ss)<br />     )<br />   )<br />   (princ)<br /> )

半听可乐

xyp1964 发表于 2012-12-31 07:49

谢谢院长！1. 程序还有点“不稳定”，有些块有时能选上，有时选不上，在上传的附件中选不上的情况很多
                 2.希望选线时线上的块同时被选中，标注不选；单独选取一个标注，相连的标注才被选中（就是两个相对独立的功能，功能①：选线及线上块；功能②：选相连的标注）

阿然

在cad命令行状态下使用F栏选，只能选中当前窗口中显示的，在窗口之外的选不中，不知道ssget里面使用栏选会不会有这个限制

半听可乐

要得就是这个效果，感谢严大侠，感谢院长！

yuxin6618

要得就是这个!感谢院长

guankuiwu

如果能选多段线就好了