社区 › AutoLISP/Visual LISP 编程技术 › refedit块编辑器图元获取

dcl1214 发表于 2024-11-25 13:33:58

refedit块编辑器图元获取

(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
    (setqe (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
)

magicheno 发表于 2024-11-25 13:35:40

支持下老哥

kozmosovia 发表于 2024-11-25 14:04:10

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

你有种再说一遍 发表于 2024-11-25 19:49:30

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

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

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

ssyfeng 发表于 2024-11-26 11:56:44

不知道具体有什么用

kugoo999 发表于 2024-11-26 12:04:12

支持!!!!!!!

gf123 发表于 2024-11-29 22:44:26

支持支持。。。

brucecad 发表于 2024-11-30 14:49:07

具体有什么用
what is this toos?

查看完整版本: refedit块编辑器图元获取