j.ku
18.06.2008, 16:07
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.
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.