Question

AutoCAD中用vba的方式，怎样框取多条直线（或多段线）获取相交点坐标呢？

AutoCAD中用vba的方式，怎样框取多条直线（或多段线）获取相交点坐标呢？
打算用do。。。loop循环，但苦于不知道每条线的名字，没办法循环啊。望高手解答。初学者。
类似这样的，想框选白线，单选红线，求坐标

Answer 1

使用while函数来循环，下面是一个计算交点的autolisp代码：

(defun c:tes ( / &k1 &kw1 &ss1 &ss2 i x)
 (setvar "cmdecho" 0)
 (setvar "blipmode" 0)
 (if (null vlax-dump-object) (vl-load-com) )
 (princ "\n请选择曲线")
 (if (setq &kw1 (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE,HELIX"))))
  (progn
   (setq &ss1 '() i -1.0)
   (while (setq &k1 (ssname &kw1 (setq i (1+ i))))
    (setq &ss1 (cons &k1 &ss1));提取对象
   );while
   (while (and (setq &k1 (car &ss1)) (setq &ss1 (cdr &ss1)));计算这条曲线与其他对象的交点
    (setq &ss2 (apply 'append (vl-remove-if '(lambda (x) (= x nil))
    (mapcar '(lambda (x) (acet-geom-intersectwith &k1 x 0)) &ss1))))
    ;&ss2是计算得到的交点,没有交点的话是nil
   );while;2
  )
 )
 (princ)
)

追问

能做成vb的吗？看不大明白lisp。

追答

不会VB，autolisp是cad专用。

追问

能录个使用的gif动画吗？加载了你的lisp，运行tes，出来不了结果

追答

(defun c:tes ( / &k1 &kw1 &ss1 &ss2 i x)
 (setvar "cmdecho" 0)
 (setvar "blipmode" 0)
 (if (null vlax-dump-object) (vl-load-com) )
 (princ "\n请选择曲线")
 (if (setq &kw1 (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE,HELIX"))))
  (progn
   (setq &ss1 '() i -1.0)
   (while (setq &k1 (ssname &kw1 (setq i (1+ i))))
    (setq &ss1 (cons &k1 &ss1));提取对象
   );while
   (while (and (setq &k1 (car &ss1)) (setq &ss1 (cdr &ss1)));计算这条曲线与其他对象的交点
    (if (setq &ss2 (apply 'append (vl-remove-if '(lambda (x) (= x nil))
        (mapcar '(lambda (x) (acet-geom-intersectwith &k1 x 0)) &ss1))))
    (mapcar '(lambda (x) (entmake (list '(0 . "CIRCLE") (cons 10 x) '(40 . 5)))) &ss2);交点绘制5的圆
    )
   );while;2
  )
 )
 (princ)
)