[討論]如何選取不帶度數的直線

(defun C:tt ()
;;
(setq E (ssget '((0 . "LINE")) ))
;;
(command "MOVE" E "")
(princ)
)

請問是否能用ssget選取集
同時篩選出xy方向
不帶度數的直線??

如下圖為使用快速選擇下的效果,謝謝大家~

參考看看

代碼:

(defun c:tt  (/ E N ss0 ss1 ss2 x1 x2 y1 y2)
    (setq E (ssget '((0 . "LINE")) ))
    (setq N 0)
    (setq ss0 (ssadd))
    (repeat (if E (sslength E) 0)
 (setq ss1 (ssname E N)
      ss2 (entget ss1)
      x1 (cadr (assoc 10 ss2))
      x2 (cadr (assoc 11 ss2))
      y1 (caddr (assoc 10 ss2))
      y2 (caddr (assoc 11 ss2))
      )
 (if (or (= x1 x2) (= y1 y2))
    (setq ss0 (ssadd ss1 ss0)))
 (setq N (1+ N))
 );_repeat
    (command "MOVE" ss0 "")
    (princ)
    );_結束

---

Tiger&蘋果爸 寫到: 謝謝熱心程式分享~< 積分 +1>
[公告]關於團隊成員的回文及貢獻

naruto018 寫到:參考看看

代碼:

(defun c:tt  (/ E N ss0 ss1 ss2 x1 x2 y1 y2)
    (setq E (ssget '((0 . "LINE")) ))
    (setq N 0)
    (setq ss0 (ssadd))
    (repeat (if E (sslength E) 0)
 (setq ss1 (ssname E N)
      ss2 (entget ss1)
      x1 (cadr (assoc 10 ss2))
      x2 (cadr (assoc 11 ss2))
      y1 (caddr (assoc 10 ss2))
      y2 (caddr (assoc 11 ss2))
      )
 (if (or (= x1 x2) (= y1 y2))
    (setq ss0 (ssadd ss1 ss0)))
 (setq N (1+ N))
 );_repeat
    (command "MOVE" ss0 "")
    (princ)
    );_結束

學習了，感謝~