[编程交流] 如何获取现有标签名称

(prompt "\ncglab")
(vl-load-com)
(defun c:cglab (/ C3Ddoc ptlblstyles styl lst)
 (setq C3Ddoc (vla-get-activedocument (vla-getinterfaceobject (vlax-get-acad-object) "AeccXUiLand.AeccApplication.10.3")))
 (setq ptlblstyles (vlax-get C3Ddoc 'pointlabelstyles))
 (vlax-for styl ptlblstyles
   (print (vlax-get styl 'name))
   (setq lst (cons (vlax-get styl 'name) lst))
   )
 (print lst)
 (princ)
 )

;vercheck.lsp  version check for *aecc objects
(defun ah:vercheck ( / vrsn appstr)
(vl-load-com)
(if ((lambda (vrsn)
       (cond
        ((vl-string-search "R17.2" vrsn) (setq appstr "6.0")) ;09
        ((vl-string-search "R18.0" vrsn) (setq appstr "7.0")) ;10
        ((vl-string-search "R18.1" vrsn) (setq appstr "8.0")) ;11
        ((vl-string-search "R18.2" vrsn) (setq appstr "9.0")) ;12 ?
        ((vl-string-search "R19.0" vrsn) (setq appstr "10.0")) ;13 
        ((vl-string-search "R19.1" vrsn)(setq appstr "10.3"));;2014
        ((vl-string-search "R20.0" vrsn)(setq appstr "10.4"));;2015
        ((vl-string-search "R20.1" vrsn)(setq appstr "10.5"));;2016     
        ((vl-string-search "R21.0" vrsn)(setq appstr "11.0"));;2017  
((vl-string-search "R22.0" vrsn)(setq appstr "12.0"));;2018   
((alert "This version of C3D not supported!"))
       )
      )
      (vlax-product-key)
     )                         ; end if condition progn is true
     (progn
       (cond (*AeccDoc*)
         ((setq *AeccDoc*
           (vlax-get
             (cond (*AeccApp*)
               ((setq *AeccApp*
                 (vla-getinterfaceobject
                    (cond (*Acad*)
                    ((setq *Acad* (vlax-get-acad-object)))
                    )
                    (strcat "AeccXUiLand.AeccApplication." appstr)
                 )
                )
               )
             )
             'ActiveDocument
           )
          )
         )
       ) ; end main cond
     ) ; end progn
) ; end if vsrn
)

(vlax-get-property (vlax-ename->vla-object (car (entsel))) 'LabelStyle)

(vlax-get (vlax-get-property (vlax-ename->vla-object (car (entsel))) 'LabelStyle) 'Name)

(vlax-put-property (vlax-ename->vla-object (car (entsel))) 'LabelStyle nil)