块里画的构造线，无法选中

13993359550

请教：在CAD里，忘了在哪个块里画的构造线，现在想删除，却无法选中，应该如何处理？

newer

提问题，贴图，传DWG，好让别人方便帮你。

marting

你说的构造线是RAY ? 在块里面？ 图块只能作为一个整体被选中，你用鼠标选里面的当然选不到了。
如果你想删除块里面的，你试下

1. (defun c:tt ()
   
2.   (while (and (setq e (nentsel "\n选取块中要删除的实体<退出>:"))
   
3.               (> (length e) 2)
   
4.          )
   
5.     (vla-delete (vlax-ename->vla-object (car e)))
   
6.     (vla-update (vlax-ename->vla-object (car (last e))))
   
7.   )
   
8.   (princ)
   
9. )
   

(defun c:tt ()<br />   (while (and (setq e (nentsel "\n选取块中要删除的实体<退出>:"))<br />               (> (length e) 2)<br />          )<br />     (vla-delete (vlax-ename->vla-object (car e)))<br />     (vla-update (vlax-ename->vla-object (car (last e))))<br />   )<br />   (princ)<br /> )<br />

13993359550

newer 发表于 2017-3-6 23:26

好的多谢建议

13993359550

marting 发表于 2017-3-6 23:59

marting 大大，谢谢回复，
我的问题没有给你图片说明很抱歉，
如图所示是XLINE这个直线和其他图元编辑成块
选在直线是选择不到的，只有选择圆才有效果，
谢谢

newer

13993359550 发表于 2017-3-7 07:54

你不是想删除XLINE吗？ 你用下MATRING写的代码试试。

st788796

13993359550 发表于 2017-3-7 07:54

遍历图块

2. 
   
3. (defun c:tt (/ ss)
   
4.   (while (setq ss (ssget '((0 . "insert"))))
   
5.     (foreach e (xdrx_pickset->ents ss)
   
6.       (foreach x
   
7.                  (xdrx_getpropertyvalue
   
8.                    (cadr (xdrx_getpropertyvalue e "blocktablerecord")
   
9.                    )
   
10.                    "allentities"
    
11.                  )
    
12.         (if (= (car (xdrx_getpropertyvalue x "classname")) "XLINE")
    
13.           (xdrx_entity_delete x)
    
14.         )
    
15.       )
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )

<br /> (defun c:tt (/ ss)<br />   (while (setq ss (ssget '((0 . "insert"))))<br />     (foreach e (xdrx_pickset->ents ss)<br />       (foreach x<br />                  (xdrx_getpropertyvalue<br />                    (cadr (xdrx_getpropertyvalue e "blocktablerecord")<br />                    )<br />                    "allentities"<br />                  )<br />         (if (= (car (xdrx_getpropertyvalue x "classname")) "XLINE")<br />           (xdrx_entity_delete x)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

st788796

用递归方法支持嵌套

2. 
   
3. (defun c:tt (/ ss _del)
   
4.   (defun _del (e)
   
5.     (foreach x (xdrx_getpropertyvalue
   
6.                  (cadr (xdrx_getpropertyvalue e "blocktablerecord"))
   
7.                  "allentities"
   
8.                )
   
9.       (cond
   
10.         ((= (car (xdrx_getpropertyvalue x "classname")) "XLINE")
    
11.          (xdrx_entity_delete x)
    
12.         )
    
13.         ((= (car (xdrx_getpropertyvalue x "classname")) "INSERT")
    
14.          (_del x)
    
15.          (xdrx_block_update e)
    
16.         )
    
17.         (t)
    
18.       )
    
19.     )
    
20.   )
    
21.   (while (setq ss (ssget '((0 . "insert"))))
    
22.     (foreach e (xdrx_pickset->ents ss)
    
23.       (_del e)
    
24.     )
    
25.   )
    
26.   (princ)
    
27. )

<br /> (defun c:tt (/ ss _del)<br />   (defun _del (e)<br />     (foreach x (xdrx_getpropertyvalue<br />                  (cadr (xdrx_getpropertyvalue e "blocktablerecord"))<br />                  "allentities"<br />                )<br />       (cond<br />         ((= (car (xdrx_getpropertyvalue x "classname")) "XLINE")<br />          (xdrx_entity_delete x)<br />         )<br />         ((= (car (xdrx_getpropertyvalue x "classname")) "INSERT")<br />          (_del x)<br />          (xdrx_block_update e)<br />         )<br />         (t)<br />       )<br />     )<br />   )<br />   (while (setq ss (ssget '((0 . "insert"))))<br />     (foreach e (xdrx_pickset->ents ss)<br />       (_del e)<br />     )<br />   )<br />   (princ)<br /> )

newer

st788796 发表于 2017-3-7 08:18

也可以用 xdrx_object_get , xdrx_object_next遍历块

1. (defun c:tt ()
   
2.   (if (setq ss (ssget '((0 . "INSERT"))))
   
3.     (progn
   
4.       (mapcar '(lambda (x)
   
5.                  (setq blk   (xdrx_getpropertyvalue x "blocktablerecord")
   
6.                        blkna (car blk)
   
7.                  )
   
8.                  (setq bl (xdrx_object_get "block" blkna) ents nil)
   
9.                  (while        (setq e (xdrx_object_next))
   
10.                    (if (= (car e) "AcDbXline")
    
11.                      (setq ents (cons e ents))
    
12.                    )
    
13.                  )
    
14.                  (xdrx_entity_delete ents)
    
15.                )
    
16.               (xdrx_pickset->ents ss)
    
17.       )
    
18.     )
    
19.   )
    
20.   (princ)
    
21. )

(defun c:tt ()<br />   (if (setq ss (ssget '((0 . "INSERT"))))<br />     (progn<br />       (mapcar '(lambda (x)<br />                  (setq blk   (xdrx_getpropertyvalue x "blocktablerecord")<br />                        blkna (car blk)<br />                  )<br />                  (setq bl (xdrx_object_get "block" blkna) ents nil)<br />                  (while        (setq e (xdrx_object_next))<br />                    (if (= (car e) "AcDbXline")<br />                      (setq ents (cons e ents))<br />                    )<br />                  )<br />                  (xdrx_entity_delete ents)<br />                )<br />               (xdrx_pickset->ents ss)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

newer

st788796 发表于 2017-3-7 08:30

(xdrx_getpropertyvalue ent "allentities")

这个方法，应该是已经递归处理来，把所有的嵌套的实体都返回了，不用LISP在递归了。

13993359550

newer 发表于 2017-3-7 08:07

我想选中他，或者是知道他在哪个块里
谢谢大大回复

13993359550

st788796 发表于 2017-3-7 08:30

我想选中他，或者是知道他在哪个块里
谢谢大大回复

eachy

选不中了就不要钻牛角尖了! 除非官方有说法

newer

13993359550 发表于 2017-3-7 12:26

你点上XLINE，所在的块夹点不会显示？ 如果显示，不就知道是哪个块了吗

13993359550

newer 发表于 2017-3-7 17:59

问题就在这里，点了不会显示块的基点，谢谢大大热情回复