精灵王
发表于 2004-8-22 14:36:00
meflying发表于2004-8-3 8:39:00static/image/common/back.gif再次说明:这里的参数使用ent1、ent2就可以了,不需要通过(vlax-ename->vla-object...)转化成vla-object,我已经说了无数次了,好象没有任何人关注这点,继续...
<BR>估计是因为在vlisp的帮助中这样举例,就一直这样使用了,谢谢提醒
transman
发表于 2004-9-14 01:55:00
mcad
您真是我的救命恩人。您写的程序让我获取的交点满足任何情况下的精度要求。
这下我输出坐标不会有问题了。
感激。
winabcd
发表于 2004-12-7 14:12:00
程序很好,也很实用,谢谢创作者
瑜人
发表于 2004-12-18 22:11:00
请问一个很弱的问题,就是我加载.lsp文件成功了,但是如何运行初结果了?
xstlf
发表于 2004-12-20 20:14:00
谢谢四楼的 <A name=33361><FONT color=#990000><B>mccad</B></FONT></A> 。你的那个太好用了,以前不懂怎么用,现在知道了。呵呵。送你一朵鲜花,可千万别把这鲜花插到牛粪上哦。哈哈。也谢谢<A name=34464><FONT color=#990000><B>meflying老师。</B></FONT></A>让我知道了怎么引用。
chen4
发表于 2005-4-3 12:49:00
谢谢,让我上了一场观摩课
maomao2004
发表于 2005-5-23 17:50:00
感谢各位老师呀
学习,路很遥远呢
LONGXIN
发表于 2005-5-23 22:09:00
4楼mccad的程序并不完善,对于两条spline相交,只返回交点个数的一半,请mccad检验
liyh35
发表于 2005-5-31 21:49:00
(defun c:qie ()<BR> ;;在画切线的曲线附近确定两点<BR> (setq pt1 (getpoint "Please specify one point:"))<BR> (setq pt2 (getpoint "Please specify tow point:"))<BR> (repeat 7<BR> ;;连接pt1和pt2附近的切点的切线然后差除这条切线<BR> (command "line" pt1 (setq pt2 (osnap pt2 "tan")) "")<BR> (command "erase" "L" "")<BR> ;;连接pt2和pt1附近的切点的切线然后擦除这条线<BR> (command "line" pt2 (setq pt1 (osnap pt1 "tan")) "")<BR> (command "erase" "L" "")<BR> )<BR> (command "line" pt1 pt2"");_重复7次后得到切线<BR> (prin1)<BR>)<BR>
ljcgq
发表于 2005-6-7 20:21:00
整理一个最终版本好么?我都不知道用哪个好了。