匿名块
如下图，有一个带属性的命名块，双击或者用块编辑器的时候，可以看到块的名称；但是用entget获取组码的时候，获取块名是带星号的匿名块，(2 . "*U175")
请教，为什么会这样。
(entget ( ssname (ssget) 0 ))
((-1 . <图元名: 7ffffb50e70>) (0 . "INSERT") (5 . "53157") (102 . "{ACAD_XDICTIONARY") (360 . <图元名: 7ffffb51590>) (102 . "}") (330 . <图元名: 7ffffb069f0>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "建材院图签") (100 . "AcDbBlockReference") (66 . 1) (2 . "*U175") (10 166174.0 -748632.0 0.0) (41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))
本帖最后由 liuhe 于 2023-4-20 14:49 编辑
;; Effective Block Name-Lee Mac
;; obj - VLA Block Reference object
(defun LM:effectivename ( obj )
(vlax-get-property obj
(if (vlax-property-available-p obj 'effectivename)
'effectivename
'name
)
)
) lisp区的来.net区发贴？？？？？
页:
[1]