把此贴删除了

xyp1964

2. ;; 还是会把y方向的线给连上
3. (defun c:tt ()
4.   (setq ss0 (ssadd)
5. gap 5.       ;角度误差(°)
6. gap (/ (* gap pi) 180)
7. i   0
8.   )
9.   (if (setq xz (ssget '((0 . "LINE"))))
10.     (repeat (sslength xz)
11.       (setq s1 (ssname xz i))
12.       (setq objlist (entget s1))
13.       (setq ang (angle (cdr (assoc 10 objlist)) (cdr (assoc 11 objlist))))
14.       (if (or (equal ang 0 gap)     ;0°附近
15.        (equal ang pi gap)    ;180°附近
16.        (equal ang (* 2 pi) gap)    ;360°附近
17.    )
18. (setq ss0 (ssadd s1 ss0))
19.       )
20.       (setq i (+ i 1))
21.     )
22.   )
23.   (if (> (sslength ss0) 0)
24.     (sssetfirst ss0 ss0)
25.   )
26.   (if ss0 (COMMAND "pedit" "M" ss0 "" "Y" "J" "1" "" ""))
27.   (princ)
28. )

;; 还是会把y方向的线给连上 (defun c:tt ()   (setq ss0 (ssadd) gap 5.       ;角度误差(°) gap (/ (* gap pi) 180) i   0   )   (if (setq xz (ssget '((0 . "LINE"))))     (repeat (sslength xz)       (setq s1 (ssname xz i))       (setq objlist (entget s1))       (setq ang (angle (cdr (assoc 10 objlist)) (cdr (assoc 11 objlist))))       (if (or (equal ang 0 gap)     ;0°附近        (equal ang pi gap)    ;180°附近        (equal ang (* 2 pi) gap)    ;360°附近    ) (setq ss0 (ssadd s1 ss0))       )       (setq i (+ i 1))     )   )   (if (> (sslength ss0) 0)     (sssetfirst ss0 ss0)   )   (if ss0 (COMMAND "pedit" "M" ss0 "" "Y" "J" "1" "" ""))   (princ) )

[quote][/quote]