Auto Lisp 快速上手應用小程 - E05

TEXT- OWN DISTANCE, OWN TEXT HEIGHT

This program lets you change the distance between multiple text lines. In addition to the standard start point and height, you are asked to enter the distance between text lines. You may enter as many text lines as you wish. To stop the program, enter an asterix (*).

(defun tex (/ p1 a b c d e f)

(setq pl (getpoint "nStarting point: "))

(setq a (getdist p1 "nEnter height: "))

(setq c (getdist p1 "nline spacing: "))

(setq d "T")

(while d

(setq e (getstring 1 "Text: "))

(command "text" pl a "0" e)

(setq pl (list (car p1)(- (cadr p1) c)))

(setq f (getstring))

(if (= f "*") (setq d nil))

)

(princ)

)

(defun tex (/ p1 a b c d e)

(setq p1 (getpoint "nStarting point: "))

(setq a (getdist p1 "nEnter height: "))

(setq c (getdist p1 "nline spacing: "))

(setq d "T")

(setq e (getstring 1 "Text: "))

(while d

(command "text" p1 a "0" e)

(setq p1 (list (car p1)(- (cadr p1) c)))

(setq e (getstring 1 "Next Text: "))

(if (= e "") (setq d nil))

)

(princ)

)

---