[求助]请大虾帮忙ssget

逐月飞鸿 · 发表于 2004-8-13 18:38:00

斑竹，大虾好！
我在编制程序的时候，想通过ssget得到长度为420.00，角度为0的所有线段，通过ssget能否实现。若能，请指点。
(setq sv (ssget "X" (list (cons 0 "line"))))
多谢了！

无痕 · 发表于 2004-8-13 19:20:00

只能在程序里面提取起点终点进行判断

xyp1964 · 发表于 2004-8-13 20:25:00

;;;s420.lsp    --xyp@bsedi.com
(defun c:s420(/)
   (setq sv (ssget "X" (list (cons 0 "line"))))
   (setq n 0 ss (ssadd))
   (while (setq s1 (ssname sv n))
   (setq pt1 (dxf-s1 10 s1) pt2(dxf-s1 11 s1))

   (if (and (= (- (car pt1)(car pt2)) 420)(= (cadr pt2)(cadr pt1)))
   (setq ss (ssadd s1 ss))
   )
   (setq n (+ 1 n))
   )
   (princ"\n\t选择集名称 : !ss")
   (princ)
   )
---
也可以将选择集成“组”（group），然后再进行相关操作：
;;;ssl.lsp    --xyp@bsedi.com
(defun c:ssl()
   (setq sv (ssget "X" (list (cons 0 "line"))))
   (setq n 0 ss (ssadd))
   (while (setq s1 (ssname sv n))
   (setq pt1 (dxf-s1 10 s1) pt2(dxf-s1 11 s1))
   (if (and (= (- (car pt1)(car pt2)) 420)(= (cadr pt2)(cadr pt1)))
   (setq ss (ssadd s1 ss))
   )
   (setq n (+ 1 n))
   )
   (command "group""c" "L420" "" ss "")
   (princ)
   )