如何选择通过2点的直线

zhhunicorn

已知直线端点p1 p2，如何获取到这条直线？

2. (setq ss (ssget "x" '( (-4 . "<and" )
   
3.         (-4 . "<or" ) (list '(0 . "LINE") (cons 10 p1) ) (list '(0 . "LINE") (cons 10 p2) )(-4 . "or>" )
   
4.         (-4 . "<or" ) (list '(0 . "LINE") (cons 11 p1) ) (list '(0 . "LINE") (cons 11 p2) )(-4 . "or>" )
   
5.         (-4 . "and>" ) )))

(setq ss (ssget "x" '( (-4 . "<and" )<br />         (-4 . "<or" ) (list '(0 . "LINE") (cons 10 p1) ) (list '(0 . "LINE") (cons 10 p2) )(-4 . "or>" )<br />         (-4 . "<or" ) (list '(0 . "LINE") (cons 11 p1) ) (list '(0 . "LINE") (cons 11 p2) )(-4 . "or>" )<br />         (-4 . "and>" ) )))

这个运行提示“错误: ssget 列表错误”
请求指点，谢谢。

Andyhon

背景另有干扰项吗?
先这样试...
(ssget "F" (list p1 p2) '((0 . "LINE")))

zhhunicorn

试了下，选择的情况比较糟糕，有时候只通过一个点的也选择了，有时候通过2个点的也没选上。

Andyhon

请上传所指述的 Dwg 文件...

ll_j

1. (setq ss (ssget (list  '(0 . "LINE") '(-4 . "<and" )
   
2.                        '(-4 . "<or" ) (cons 10 p1) (cons 10 p2) '(-4 . "or>" )
   
3.                        '(-4 . "<or" ) (cons 11 p1) (cons 11 p2) '(-4 . "or>" )
   
4.                        '(-4 . "and>" ))))

(setq ss (ssget (list  '(0 . "LINE") '(-4 . "<and" )<br />                        '(-4 . "<or" ) (cons 10 p1) (cons 10 p2) '(-4 . "or>" )<br />                        '(-4 . "<or" ) (cons 11 p1) (cons 11 p2) '(-4 . "or>" )<br />                        '(-4 . "and>" ))))

问题出在列表中有“求值”项时，应该把list函数放在最前面。

zhhunicorn

ok,非常感谢各位的帮助。已搞定。

lsjj

(setq ss (ssget (list (cons 10 p1) (cons 11 p2) (cons 0 "LINE"))))

cable2004

通过2点的所有直线，dxf10 dxf11不一定一样吧！
应该还是要循环吧！

cable2004

题目不是如何选择通过2点的直线吗,看看你的方法试试！

逗亦斗霸

Andyhon 发表于 2014-4-8 15:15
背景另有干扰项吗?
先这样试...
(ssget "F" (list p1 p2) '((0 . "LINE")))

正愁不知道怎么把代码完善，这下找到了答案~非常感谢！