求两线相交 最精简的代码 lisp

skg123

求两线相交 最精简的代码 lisp
该程序可以求任意两种线型相交的交点 。 有兴趣的朋友可以应用到 等高线中剖断面
;by zo roo 2011-05-28   
(defun C:jlxd(/ m_ent1 m_ent2 m_jdtab);求两线交点程序
  (setq en1 (entsel "\n请选择第一条曲线: "))
  (setq en2 (entsel "\n请选择第二条曲线: "))
  (setq e1 (vlax-ename->vla-object(car en1))
       e2 (vlax-ename->vla-object(car en2))
)
  (setq PT2(vlax-invoke e1 'intersectwith e2 0))
  (princ pt2)
(command "pline"  pt2)
)

这里要感谢caoyin 提供一下代码
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=59005&highlight=

求交点， (vla-intersectwith VLA对象 VLA对象 延伸模式） 延伸模式为 0~3 的整型（0--不延伸,1--延伸基本对象,2--延伸参数传递的对象,3--延伸) 返回 ActiveX 点 或用 vlax-invoke 调用 (setq e1 (vlax-ename->vla-object(car(entsel)))       e2 (vlax-ename->vla-object(car(entsel))) ) (vlax-invoke e1 'intersectwith e2 3)

skg123

http://www.cad8.net/archiver/?tid-18425.html

vla-intersectwith的用法

快乐天使 发表于 2010-1-5 09:27:10

(setq intpoint (vla-intersectwith (vlax-ename->vla-object ent1)

                        (vlax-ename->vla-object ent2)

                acextendnone

                  )

   )

   (setq intpoint (vlax-variant-value intpoint))

   (setq pt        (vl-catch-all-apply

                  'vlax-safearray->list

                  (list intpoint)

                )

   )

From：CAD吧 (http://www.cad8.net/)
Link：http://www.cad8.net/archiver/?tid-18425.html

skg123

由于一时疏忽(defun C:jlxd(/ m_ent1 m_ent2 m_jdtab);求两线交点程序
中有多余的变量
改为(defun C:jlxd();