求两线相交 最精简的代码 lisp
求两线相交 最精简的代码 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)
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 由于一时疏忽(defun C:jlxd(/ m_ent1 m_ent2 m_jdtab);求两线交点程序
中有多余的变量
改为(defun C:jlxd();
页:
[1]