[编程交流] 任何Sty的LAYMCUR等效值

(defun C:test ()
(setq e (car (entsel))
     v (cdr (assoc 0 (entget e)))
     e (vlax-ename->vla-object e))
     
(cond
  ((= v "DIMENSION")
    (vla-put-stylename e (getvar 'dimstyle))
  )
  ((= v "MULTILEADER")
    (vla-put-stylename e (getvar 'cmleaderstyle))
  )
  ((or (= v "MTEXT") (= v "TEXT"))
    (vla-put-stylename e (getvar 'textstyle))
  )
  ((= v "ACAD_TABLE")
  (vla-put-stylename e (getvar 'ctablestyle))
  )
  (t (princ "Do the rest 6 yards..."))
 )
 (princ)
)

(defun c:stymcur ( / ent lst obj sty typ )
   (setq lst
      '(
           ("TEXT,MTEXT"  . textstyle)
           ("MULTILEADER" . cmleaderstyle)
           ("ACAD_TABLE"  . ctablestyle)
       )
   )
   
   (while
       (progn (setvar 'errno 0) (setq ent (car (entsel)))
           (cond
               (   (= 7 (getvar 'errno))
                   (princ "\nMissed, try again.")
               )
               (   (null ent)
                   nil
               )
               (   (not (vlax-property-available-p (setq obj (vlax-ename->vla-object ent)) 'stylename))
                   (princ "\nObject does not have a style.")
               )
               (   (progn
                       (setq typ (cdr (assoc 0 (entget ent)))
                             sty (vla-get-stylename obj)
                       )
                       (vl-some '(lambda ( x ) (if (wcmatch typ (car x)) (setvar (cdr x) sty))) lst)
                   )
                   nil
               )
               (   (wcmatch typ "*DIMENSION") ;; they have to be awkward...
                   (command "_.-dimstyle" "_R" sty)
               )
               (   (princ "\nThis program is not compatible with that object."))
           )
       )
   )
   (princ)
)
(vl-load-com) (princ)