求线与线的延伸点
本帖最后由 skg123 于 2015-9-12 11:29 编辑请教个问题，如下图中
已知 线段AB，求延伸点P？我运行了代码，p点坐标值是出来了，但是变量Pt是nil。
如右图，但是值没有赋值给代码中的变量“Pt”。
本人现实现的效果是，下图中直线AB与弧线的 交点P，不相交的时候求延伸交点P，相交的时候求P'点，请大家帮忙修改一下代码。
(defun c:test(/ obj1 obj2 pts)
(vl-load-com)
;求交点的对象
(setq obj1 (vlax-ename->vla-object (car (entsel)))
obj2 (vlax-ename->vla-object (car (entsel)))
)
;求交点，分四种情况
;acExtendNone 求实交点，也可以用0代替
;acExtendThisEntity 延伸obj1求交点,也可以用1代替
;acExtendOtherEntity 延伸obj2求交点,也可以用2代替
;acExtendBoth 同时延伸obj1和obj2求交点,也可以用3代替
(setq pts (vlax-invoke obj1 'IntersectWith obj2 1))
;(setq pts2 (acet-geom-intersectwith (car (entsel)) (car (entsel)) 1))
;此外还可以用(vlax-variant-value (vla-intersectwith obj1 obj2 0))求
;用vlax-safearray-get-u-bound检索返回值的上标大于0就存在交点
;用vlax-safearray->list可以得到交点
(setq pt (vlax-safearray->list pts))
(if pts (alert "相交")(alert "不相交"))
(princ)
)
(setq pts (vlax-invoke obj1 'IntersectWith obj2 1))
得到的点是list表，一个点就是3个元素，如果是两个点那么该表就有6个元素，三个点9个元素。
(setq pt (vlax-safearray->list pts))这句不需要了。
(defun c:tt ()
(setq obj1 (vlax-ename->vla-object (car (entsel "\n选直线: ")))
obj2 (vlax-ename->vla-object (car (entsel "\n选圆弧: ")))
)
(if (vlax-invoke obj1 'IntersectWith obj2 1)
(alert "相交")
(alert "不相交")
)
(princ)
)
页:
[1]