refedit块编辑器图元获取

dcl1214

1. (defun $block-refedit$ (b lst / ss e es obj)
   
2.   ;($block-refedit$(car (entsel))nil)
   
3.   (if (and b (= (type b) 'ename) (entget b))
   
4.     (progn
   
5.       (setq ss (lst->ss (list b)))
   
6.       (and ss (sssetfirst ss ss))
   
7.       (if ss
   
8.   (progn
   
9.     (setq  e (vlax-vla-object->ename
   
10.         (setq obj (VLA-ADDPOINT
    
11.         (vla-get-ModelSpace
    
12.           (vla-get-ActiveDocument
    
13.             (vlax-get-acad-object)
    
14.           )
    
15.         )
    
16.         (VLAX-3D-POINT (LIST 0 0 0))
    
17.             )
    
18.         )
    
19.       )
    
20.     )
    
21.     (vl-cmdf "-refedit" "O" "ALL" "Y")
    
22.     (vl-catch-all-apply
    
23.       'vla-put-visible
    
24.       (list
    
25.         (vl-catch-all-apply
    
26.     'VLA-ITEM
    
27.     (list
    
28.       (vl-catch-all-apply
    
29.         'vla-get-toolbars
    
30.         (LIST
    
31.           (vl-catch-all-apply
    
32.       'vla-Item
    
33.       (list (vla-get-MenuGroups (vlax-get-Acad-Object))
    
34.             "ACAD"
    
35.       )
    
36.           )
    
37.         )
    
38.       )
    
39.       "参照编辑"
    
40.     )
    
41.         )
    
42.         0
    
43.       )
    
44.     )
    
45.           ;关闭工具条
    
46.     (setq ss nil)
    
47.     (setq es nil)
    
48.     (while (AND e (setq e (entnext e)))
    
49.       (setq es (cons e es))
    
50.     )        ;进入refedit后调用这个
    
51.     (vla-delete obj)
    
52.   )
    
53.       )
    
54.     )
    
55.   )
    
56.   es
    
57. )

(defun $block-refedit$ (b lst / ss e es obj)<br />   ;($block-refedit$(car (entsel))nil)<br />   (if (and b (= (type b) 'ename) (entget b))<br />     (progn<br />       (setq ss (lst->ss (list b)))<br />       (and ss (sssetfirst ss ss))<br />       (if ss<br />   (progn<br />     (setq  e (vlax-vla-object->ename<br />         (setq obj (VLA-ADDPOINT<br />         (vla-get-ModelSpace<br />           (vla-get-ActiveDocument<br />             (vlax-get-acad-object)<br />           )<br />         )<br />         (VLAX-3D-POINT (LIST 0 0 0))<br />             )<br />         )<br />       )<br />     )<br />     (vl-cmdf "-refedit" "O" "ALL" "Y")<br />     (vl-catch-all-apply<br />       'vla-put-visible<br />       (list<br />         (vl-catch-all-apply<br />     'VLA-ITEM<br />     (list<br />       (vl-catch-all-apply<br />         'vla-get-toolbars<br />         (LIST<br />           (vl-catch-all-apply<br />       'vla-Item<br />       (list (vla-get-MenuGroups (vlax-get-Acad-Object))<br />             "ACAD"<br />       )<br />           )<br />         )<br />       )<br />       "参照编辑"<br />     )<br />         )<br />         0<br />       )<br />     )<br />           ;关闭<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">工具</a>条<br />     (setq ss nil)<br />     (setq es nil)<br />     (while (AND e (setq e (entnext e)))<br />       (setq es (cons e es))<br />     )        ;进入refedit后调用这个<br />     (vla-delete obj)<br />   )<br />       )<br />     )<br />   )<br />   es<br /> )

magicheno

支持下老哥

kozmosovia

这种临时的图元，获取了其实也没有啥大意义，生命周期只在在位编辑状态内。退出Refiedit时，都会被清除掉。

你有种再说一遍

kozmosovia 发表于 2024-11-25 14:04
这种临时的图元，获取了其实也没有啥大意义，生命周期只在在位编辑状态内。退出Refiedit时，都会被清除掉。

明明是你当年教会我判断内外的...

收集了全部在位编辑的判断方式了,ARX,NET,Lisp的,
知识搬运工,嘻嘻
https://www.cnblogs.com/JJBox/p/11185185.html
嘻嘻