选择集

jeike456

jeike456 发表于 2011-12-21 11:57
谢谢Andyhon，达到效果了，谢谢你的帮助

Andyhon当有三条线同那一个点时就会出错,会返回另两条线的其中一条线的端点

jeike456

Andyhon 发表于 2011-12-21 10:43
(Defun C:test ()
   (setq ee (entsel "\n选择紫色的圆弧: ")
         ee (car ee)

Andyhon当有三条线同那一个点时就会出错,会返回另两条线的其中一条线的端点

jeike456

Andyhon 发表于 2011-12-21 10:43
(Defun C:test ()
   (setq ee (entsel "\n选择紫色的圆弧: ")
         ee (car ee)

选圆弧D再选绿色的线有时会返回B和C点,有时会返回B和A点,我要的是每次都返回B和A两点

Andyhon

此一函式乃依您所提供的图像写就...
不同的状况会牵引出不同的编程走向...

请您提供含有 BC 线段的图纸 (*.Dwg),以利调试

jeike456

Andyhon 发表于 2011-12-21 10:43
(Defun C:test ()
   (setq ee (entsel "\n选择紫色的圆弧: ")
         ee (car ee)
        pts (acet-geom-object-end-points ee)    ; 获得圆弧两端点
         pa (car  pts)
         pb (cadr pts)
        ssa (ssget "C" pa pa '((0 . "LINE")))
        ssb (ssget "C" pb pb '((0 . "LINE")))
   )
   
   (princ "\n框选连结区的线: ")
   (setq ss (ssget '((0 . "LINE"))))
   
   (cond
    ((ssmemb (setq ee (ssname ssa 0)) ss))
    ((ssmemb (setq ee (ssname ssb 0)) ss))
    (T (Alert "状况外!"))
   )
   (acet-geom-object-end-points ee)    ; 获得A和B两点
)

请教一下以下两句可以把不和圆弧相切的线排除吗？

ssa (ssget "C" pa pa '((0 . "LINE"))) ;ssget只选和圆弧相切的线（还有线过PA点但是和“(setq ee (entsel "\n选择紫色的圆弧: ")不相切

ssb (ssget "C" pb pb '((0 . "LINE")));ssget只选和圆弧相切的线（还有线过Pb点但是和“(setq ee (entsel "\n选择紫色的圆弧: ")不相切

江湖远人

这块还是不明白怎么使用，关注ing