本帖最后由 作者 于 2007-6-15 16:29:17 编辑
这个贴发了好长时间了,没人回应,只好自己想法子了。但过程中还是碰到了问题,具体如下: 目的:在窗口中现有两线(相距约2~50mm)两边各取一点(P1、P2),生成一直线,捕捉此线与窗口中原两线的交点(P3、P4)。图形类似于“不等于”。 问题:能捕捉到点P3,但总是提示P4为空(NIL),为什么? 程序如下:( 请各位高手帮忙!谢!!) (defun c:nn() (command "ortho" "off") (command "-osnap" "off") (setq p1 (getpoint "\n first point:")) (setq p2 (getpoint "\n 2ed point:")) (command "line" p1 p2 "") (setq ddis1 (distance p1 p2)) (setq aa1 (angle p1 p2)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; . . . . . . . 问题已解决,谢! |