- (defun c:tt ()
- "高程文本移动"
- (xyp-Start)
- (setq i -1)
- (if (setq ss (ssget '((0 . "text"))))
- (while (setq s1 (ssname ss (setq i (1+ i))))
- (setq pt (xyp-DXF 10 s1)
- p1 (xyp-3d2d pt)
- ss1 (ssget "cp" (xyp-PtBox p1 200) '((0 . "*po*")))
- lst (xyp-Ss2List ss1)
- ptn (mapcar '(lambda (x) (xyp-Vertexs x 0)) lst)
- ptn (apply 'append ptn)
- p2 (xyp-PtNearPtn p1 ptn)
- )
- (xyp-Move s1 p1 p2)
- )
- )
- (xyp-End)
- )
|