图形字典

全宏工作室

请教老师一下，怎样透过 AutoLISP 取出图形字典 layerstatedictionary 里面的数据？谢谢！

南子

龙龙仔

(vl-load-com)
(defun GET-STATENAMES (/ COLLECTION NAMES)
  (if (not
        (vl-catch-all-error-p
          (setq        COLLECTION
                 (vl-catch-all-apply
                   (function (lambda ()
                               (vla-item (vla-getextensiondictionary
                                           (vla-get-layers
                                             (vla-get-activedocument
                                               (vlax-get-acad-object)
                                             )
                                           )
                                         )
                                         "ACAD_LAYERSTATES"
                               )
                             )
                   )
                 )
          )
        )
      )
    (vlax-for ITEM COLLECTION
      (print(entget (vlax-vla-object->ename item)))
      (setq NAMES (cons (strcase (vla-get-name ITEM)) NAMES))
    )
  )
)

LIULISHENG

龙龙仔好强大