refedit块编辑器图元获取

dcl1214 · 发表于 9 小时前

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

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

magicheno · 发表于 9 小时前

支持下老哥

kozmosovia · 发表于 8 小时前

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

你有种再说一遍 · 发表于 3 小时前

本帖最后由你有种再说一遍于 2024-11-25 20:01 编辑

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

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

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

账号		自动登录	找回密码
密码			注册

[经验] refedit块编辑器图元获取

评分