[求助]如何提取同方向的直线

luyu9635

当图形中有很多很多的直线（各种不同方向的都有）时，我要选择同一方向的直线如水平或垂直的直线，但是很烦琐，不好选择，不知怎么用lsp来实现呀

ZZXXQQ

只能先选择然后用程序进行判断过滤。

luyu9635

谢谢zzxxqq斑竹的回，请你帮我写个程序好吗

hbshyjch

期待中

Student

;请参考
(defun get_SDLine(/ ent ed p1 p2 ss sn i ang sdss)
 (if(setq ent(car(entsel "\n选择一条直线:")))
  (progn
   (setq ed(entget ent) p1(cdr(assoc 10 ed)) p2(cdr(assoc 11 ed)))
   (setq ang(angle p1 p2))
   (setq ss(ssget "x" '((0 . "line"))))
  )
 )
 (setq sdss(ssadd))
 (ssadd ent sdss)

 (setq sn(if ss (sslength ss) 0))
 (setq i 0)
 (while(< i sn)
  (setq ent(ssname ss i))
  (setq ed(entget ent) p1(cdr(assoc 10 ed)) p2(cdr(assoc 11 ed)))
  (if(equal (angle p1 p2) ang 0.00001)
   (ssadd ent sdss)
  )
  (setq i(1+ i))
 )
 sdss
)
;

luyu9635

谢谢楼上，先收下，待测试