无痕 发表于 2004-8-19 13:56:00

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


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

wmz 发表于 2004-8-19 14:15:00

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

mkhsj928 发表于 2004-8-21 17:05:00

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


<BR>这要看你要求在哪条曲线的交点。假如m_ent1、m_ent2 为空间相交曲线，其虚交点求出为m_jd『注：形式为(x y 0.0)』，则要求m_jd对应在曲线m_ent1上的实际交点的方法如下：


(setq        m_jd       (vlax-curve-getClosestPointToProjection<BR>                                                               (vlax-ename-&gt;vla-object m_ent1)<BR>                                                                        m_jd<BR>                                                               '(0 0 1)<BR>                                               )<BR>               )


函数中最后一个参数'(0 0 1)代表XY平面的法向量！


现在m_jd中就包括了Z值，把此代码插入到repeat循环中就可以了。

wmz 发表于 2004-8-22 13:13:00

谢谢了!我就是没有找到'(0 0 1)这个参数!但后面的这句


(setq        m_jd       (vlax-curve-getClosestPointToProjection (vlax-ename-&gt;vla-object m_ent1)<BR>                                                                        m_jd<BR>                                                               '(0 0 1)<BR>                                               )<BR>               )


我按照飞哥的忠告改成了这样:


(setq        m_jd       (vlax-curve-getClosestPointToProjection m_ent1 m_jd '(0 0 1)))


再一次谢谢你了,重要的是你给了我一把钥匙!

无痕 发表于 2004-10-16 01:35:00

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


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


哈哈,开玩笑啦,别在意

yingtianchang 发表于 2011-12-29 10:58:35

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

xiabin68 发表于 2013-2-4 10:17:08

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

328302216 发表于 2013-3-26 14:28:15

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

我爱lisp 发表于 2014-3-7 10:38:56

楼主这个程序功能很强大，实用性很广，必须要狠狠顶你一下！
页: 1 [2]
查看完整版本: 再发两曲线求交点函数(终结版)!