有没什么快速对齐方法

xyp1964

1. (defun c:tt ()
   
2.   (if (and (setq ss (ssget '((0 . "text"))))
   
3.            (setq p0 (getpoint "\n水平对齐基点<退出>: "))
   
4.       )
   
5.     (mapcar '(lambda (x)
   
6.                (setq pt (xyp-DXF 10 x))
   
7.                (xyp-Move x pt (list (car pt) (cadr p0)))
   
8.              )
   
9.             (xyp-Ss2List ss)
   
10.     )
    
11.   )
    
12.   (princ)
    
13. )

(defun c:tt ()<br />   (if (and (setq ss (ssget '((0 . "text"))))<br />            (setq p0 (getpoint "\n水平对齐基点<退出>: "))<br />       )<br />     (mapcar '(lambda (x)<br />                (setq pt (xyp-DXF 10 x))<br />                (xyp-Move x pt (list (car pt) (cadr p0)))<br />              )<br />             (xyp-Ss2List ss)<br />     )<br />   )<br />   (princ)<br /> )