Existuje nějaký inteligentní způsob, jak je možné pomocí příkazu, nebo lispovského prográmku změnit styl písma v daném souboru?

Hladiny lze převést pomocí příkazu "_laytrans"

Označený kótovací styl "k1_10" lze převést na požadovaný styl  "ČEZ-EDU T 2.5-10" s využitím lispu  např.: 

(progn
     (prompt "Existuje kótovací styl (k1_10). " )
     (setq vkost (ssget "X" '((3 . "k1_10"))))
     (command "-dimstyle" "Obnov" "ČEZ-EDU T 2.5-10" "")
     (command "-dimstyle" "Použij" "Předchozí" "")
     )

Styl písma naposledy  vybrané entity lze změnit např. pomocí:

(defun C:Moss ( )

  (setq ed (entget (entlast)))                           ;  (1 . "123") (7 . "ISOCP-BPVL") (210 0.0 0.0 1.0)

  (setq oldtext (assoc 7 ed))                                          ;  (1 . "123")

  (setq newtext (cons 7 "ISOCP-BPVL"))       ;  (1 . "Nový text")

  (setq ed (subst newtext oldtext ed))              ; (Náhrada atomů)

  (entmod ed)                                             ; (Výměna stylů )

  )

Hromadná výměna stylů písma ovšem nefunguje.

(defun C:NP-S1 ( )

;  Výměna kótovacích stylů

  (progn    

  (setq vss (ssget "X" '((7 . "STANDARD"))))                 ;  Vybrány entity se stylem písma "STANDARD"

  (prompt "Existuje kótovací styl (STANDARD). " )      

  (setq oldtext (cons 7 "STANDARD"))                         ;  (7 . "STANDARD")

  (setq newtext (cons 7 "ISOCP-BPVL"))                       ;  (7 . "ISOCP-BPVL")

  (setq vss (subst newtext oldtext vss))                           ; (Náhrada atomů)

  (entmod vss)

     )

  )

Máte prosím někdo nějaký nápad? Díky.