请教。如何得到通过一个点的所有直线、多义线、弧线。ssget只能选择一个

3stone

请教大侠：几条直线、多义线与弧线相交于一点pt1，如何通过选取这一点就得到通过该点的所有实体的选择集。
用（setq pt1 (getpoint))
(ssget pt1)只能得到一个实体。
多谢！

meflying

(setq pt (getpoint "Enter the point:"))
(ssget "c" pt pt '((0 . "line,lwpolyline,polyline,arc")))

lockmyeye

原来是这样实现的！
以前我都这样用：

(SETQ ss2 (SSGET "f"
                 (LIST (POLAR point1 (* 0.75 PI) distance_max)
                       (POLAR point1 (* 0.25 PI) distance_max)
                       (POLAR point1 (* 0.75 PI) (- distance_max))
                       (POLAR point1 (* 0.25 PI) (- distance_max))
                       (POLAR point1 (* 0.75 PI) distance_max)
                 )
                 (LIST (CONS 8 (CAR table1)) (CONS 0 "*line"))
          )
)


献花！

bigboom

斑竹的程序有点问题，他只适用于平面图形，当时3d的线条没有相交但存在外观交点时相应的线条也会被选中。
如何改进？

3stone

[请教]为什么捕捉不到交点？
通过选取两实体（或者更多实体）的交点pt来获取通过pt点的这些实体的选择集，用
(ssget "c" pt pt '((0 . "line,lwpolyline,polyline,arc")))，
可是当一物体为实线线形，另一实体为虚线线形，而且实线线形的物体是通过虚线线形物体的间隙，如图，这样就捕捉不到两者的交点，当然也就得不到选择集。请各位帮忙。

meflying

从图中你如何获得交点呢？

如果你从其他途径获得了这个交点，可以试试这个办法：
  (command "_.undo" "be")
  (command "_.chprop" "all" "" "lt" "continuous" "")
  (command "_.undo" "e")
  (setq ss (ssget "c" pt pt '((0 . "line,lwpolyline,polyline,arc"))))
  (command "u")

3stone

从图中我也捕捉不到交点，除非变实线，这算不算AUTOCAD的一个缺陷呢？
因为我在论坛上看到很多求交点的程序，可是在不选择相交物体的情况下又怎么才能实现呢？除了六楼的方法外，还有办法吗？

meflying

因为SSGET本身就是一种外观选择的方法，就像你用鼠标在屏幕上选择，即使你的UCS是很乱的，但你要框选，还是得画一个和屏幕平行的一个框，而不是跟UCS平行的框。而选中的对象也是你看到什么选什么，所以你将SSGET的选择换成变量参数，他的选择方式肯定还是不会变的。