[求助]请大虾帮忙ssget

逐月飞鸿

斑竹，大虾好！


我在编制程序的时候，想通过ssget得到长度为420.00，角度为0的所有线段，通过ssget能否实现。若能，请指点。


(setq sv (ssget "X" (list (cons 0 "line"))))


多谢了！

无痕

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

xyp1964

;;;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)
)

逐月飞鸿

谢谢！xyp1964和无痕大虾的指点，以后多多向你们学习！

无痕

如果紧接着进行下一步命令 (command "group""c" "L420" "" ss "")
可以用以下代替： (sssetfirst ss ss)