54 lines
1.4 KiB
Common Lisp
54 lines
1.4 KiB
Common Lisp
;----------------------------
|
|
; Text H”he „ndern 30.6.91
|
|
; eingabut in e3f4
|
|
;---------------------------
|
|
(Defun C:Tsz (/ G A B C D E F)
|
|
(Setvar "Cmdecho" 0)
|
|
(Initget 1 "A H ")
|
|
(Setq G (Strcase (Substr (Getkword "Height/<Select>: ") 1 1)))
|
|
(Cond
|
|
((Or (= G "S") (= G ""))
|
|
(Setq A (Ssget))
|
|
(Setq B (Sslength A))
|
|
(Initget 7) (Setq C (Getdist "\nNew Text-Height: "))
|
|
(While
|
|
(> B 0)
|
|
(Setq B (1- B))
|
|
(Setq D (Ssname A B))
|
|
(Setq D (Entget D))
|
|
(If (= "TEXT" (Cdr (Assoc 0 D)))
|
|
(progn
|
|
(Setq E (Assoc 40 D))
|
|
(Setq F (Cons 40 C))
|
|
(Entmod (Setq D (Subst F E D)))))
|
|
)
|
|
(Setq A nil)
|
|
)
|
|
((= G "H")
|
|
(Initget 7) (Setq A (Getdist "\nOld Text-Height: "))
|
|
(Setq B (Fix (* 100 A)))
|
|
(Initget 7) (Setq C (Getdist "\nNew Text-Height: "))
|
|
(Setq D (Entnext))
|
|
(Setq E (Cons 40 C))
|
|
(While
|
|
D
|
|
(Princ ".")
|
|
(Setq F (Assoc 0 (Entget D)))
|
|
(If
|
|
(= "TEXT" (Cdr F))
|
|
(Progn
|
|
(Setq F (Assoc 40 (Entget D)))
|
|
(Setq G (Fix (* 100 (Cdr F))))
|
|
(If
|
|
(= B G)
|
|
(Entmod (Subst E F (Entget D)))
|
|
)
|
|
)
|
|
)
|
|
(Setq D (Entnext D))
|
|
)
|
|
)
|
|
)
|
|
(Princ)
|
|
)
|
|
|