API应用 曲线的投影交点

st788796

ARX 有现成的函数，a/vlisp 无能为力

1. (defun c:tt (/ ss ss1 pts)
   
2.   (if (setq ss (ssget '((0 . "*line,arc,circle,ellipse"))))
   
3.     (progn
   
4.       (setq ss1        (xdrx_curve_getProjectCurve
   
5.                   ss
   
6.                   (list        (getvar "ucsorg")
   
7.                         (getvar "ucsxdir")
   
8.                         (getvar "ucsydir")
   
9.                   )
   
10.                 );_投影曲线
    
11.             pts        (xdrx_curve_getinters ss1);_曲线交点
    
12.       )
    
13.       (xdrx_entity_delete ss1);_删除投影曲线
    
14.       (mapcar '(lambda (x) (xdrx_circle_make x 2.)) pts);_虚交点处绘制一个圆
    
15.     )
    
16.   )
    
17.   (princ)
    
18. )
    

(defun c:tt (/ ss ss1 pts)<br />   (if (setq ss (ssget '((0 . "*line,arc,circle,ellipse"))))<br />     (progn<br />       (setq ss1        (xdrx_curve_getProjectCurve<br />                   ss<br />                   (list        (getvar "ucsorg")<br />                         (getvar "ucsxdir")<br />                         (getvar "ucsydir")<br />                   )<br />                 );_投影曲线<br />             pts        (xdrx_curve_getinters ss1);_曲线交点<br />       )<br />       (xdrx_entity_delete ss1);_删除投影曲线<br />       (mapcar '(lambda (x) (xdrx_circle_make x 2.)) pts);_虚交点处绘制一个圆<br />     )<br />   )<br />   (princ)<br /> )<br />

/db_自贡黄明儒_

你确信VL不行？
上次你说的不在一个平面内求交点，用别的函数，就是说的这个？

st788796

/db_自贡黄明儒_ 发表于 2014-2-11 10:52
你确信VL不行？
上次你说的不在一个平面内求交点，用别的函数，就是说的这个？

vl 没有获取曲线投影到面上的函数，只有一个到投影面最近点函数

前面有个例子是先把 Z 消除，都成为一个平面线然后求交再恢复，还有一个用 Ssget F 然后用 SSNAMEX 求得交点

牢固

xdrx_curve_getProjectCurve 函数对于多段线求平面投影曲线是有问题的！lwpolyline求不出投影曲线，Polyline求出的投影曲线实际并未修改Polyline的标高!

st788796

牢固 发表于 2014-2-12 21:42
xdrx_curve_getProjectCurve 函数对于多段线求平面投影曲线是有问题的！lwpolyline求不出投影曲线，Polylin ...

测试 Lightweightpolyline 的确没有求出投影线，用 3Dpoly 绘制的pline 可以消除 Z