(defun c:tt (/ s1 p0 dv mode mo co ss nn i s0 pt s2)
(xyp-CMDLA0)
(if (setq s1 (car (entsel "\n选择: ")))
(progn
(setq p0 (xyp-9pt s1 1)
dv (distance (xyp-9pt s1 7) p0) ;垂直高度
mode t
)
(while mode
(setq mo (grread t 15 0)
co (car mo)
)
(cond ((member co '(2 3 25 32)) (setq mode nil))
(t
(if ss
(xyp-erase ss)
)
(setq nn (fix (/ (- (cadr (cadr mo)) (cadr p0)) dv))
i 0
s0 (entlast)
dv (if (> nn 0) dv (- dv))
)
(repeat (abs nn)
(setq pt (xyp-Pt2Y p0 (* dv (setq i (1+ i))))
s2 (xyp-copymove s1 p0 pt)
)
)
(setq ss (xyp-SSelEntnext s0))
)
)
)
)
)
(xyp-CMDLA1)
)
页:
1
[2]