再发两曲线求交点函数(终结版)!

无痕

(command ".move" ss "" "0,0,1e99" "")


(command ".move" "p" "" "0,0,-1e99" "")

wmz

谢谢了!在您的求交点终结版里,有以下一段话:";;支持求空间虚交点，但Z坐标始终为0.0，要求Z坐标，请用(vlax-curve-getClosestPointToProjection)函数",但该函数我不会用,请将其写进您的求交点的终结版!十分感谢!!!

mkhsj928

wmz发表于2004-8-19 14:15:00谢谢了!在您的求交点终结版里,有以下一段话:\";;支持求空间虚交点，但Z坐标始终为0.0，要求Z坐标，请用(vlax-curve-getClosestPointToProjection)函数\",但该函数我...

这要看你要求在哪条曲线的交点。假如m_ent1、m_ent2 为空间相交曲线，其虚交点求出为m_jd『注：形式为(x y 0.0)』，则要求m_jd对应在曲线m_ent1上的实际交点的方法如下： (setq m_jd (vlax-curve-getClosestPointToProjection
(vlax-ename->vla-object m_ent1)
m_jd
'(0 0 1)
)
) 函数中最后一个参数'(0 0 1)代表XY平面的法向量！ 现在m_jd中就包括了Z值，把此代码插入到repeat循环中就可以了。

wmz

谢谢了!我就是没有找到'(0 0 1)这个参数!但后面的这句 (setq m_jd (vlax-curve-getClosestPointToProjection (vlax-ename->vla-object m_ent1)
m_jd
'(0 0 1)
)
) 我按照飞哥的忠告改成了这样: (setq m_jd (vlax-curve-getClosestPointToProjection m_ent1 m_jd '(0 0 1))) 再一次谢谢你了,重要的是你给了我一把钥匙!

无痕

你这个终结版写的也太长了


好像程序不想"终结"的样子


哈哈,开玩笑啦,别在意

yingtianchang

楼主，如果我想只选择一条曲线（白色），就能提取这条曲线与所有曲线（绿色）的角点坐标（每条绿色曲线与白色只有一个角点），怎么办啊?地质图件等值线

xiabin68

历害就是只能单选要是先选一条线，再给出那个图层自动就求出与这个图层内的线的交点就好了，

328302216

楼主  程序的命令是哪个呢？

我爱lisp

楼主这个程序功能很强大，实用性很广，必须要狠狠顶你一下！