- ;; tt(图框对齐排版) 非源码
- (defun c:tt ()
- (xyp-Start)
- (if (and (setq s1 (car (entsel "\n选择一般外框图层: ")))
- (xyp-etype s1 "*polyline")
- (setq la (xyp-DXF 8 s1))
- (setq ss (ssget (list '(0 . "*polyLINE") '(90 . 4) '(70 . 1) (cons 8 la))))
- (setq p0 (getpoint "\n基点<退出>: "))
- )
- (setq lst (vl-sort (xyp-Ss2List ss)
- '(lambda (a b) (> (xyp-EnameWide a) (xyp-EnameWide b)))
- )
- aa (mapcar '(lambda (x)
- (setq p1 (xyp-9pt2d x 1)
- p9 (xyp-9pt2d x 9)
- )
- (xyp-move (ssget "c" p1 p9) p1 p0)
- (setq p0 (xyp-Pt2X (xyp-9pt2d x 3) 100))
- )
- lst
- )
- )
- )
- (xyp-End)
- )
|