API应用 曲线等分或等距点

XDSoft

liuyj 发表于 2014-10-2 23:49
是的，我试了line、LWPOLYLINE、spline、arc等，只有arc是这样的，其余的都正常。

是不是你的点没在弧线上。

liuyj

(xdrx_curve_getfirstderiv (car e) 0.)这句，不是返回起点处的一阶导数吗？并不要求判断点的位置啊。

XDSoft

liuyj 发表于 2014-10-3 00:06
(xdrx_curve_getfirstderiv (car e) 0.)这句，不是返回起点处的一阶导数吗？并不要求判断点的位置啊。

对于弧线，0.0 可不一定是弧线的起点的参数值，你捕捉下弧线的起点，然后用 (xdrx_curve_getParamAtPoint pnt) 看看参数值是什么？ 对于弧线，参数值是角度值。只有弧的起点夹角（和X轴）是0，参数也是0.

liuyj

明白了，把代码改了一下就可以了。

2. (defun c:tt (/ e d d1 spt)
   
3.   (if (and (setq e (entsel))
   
4.      (setq spt (xdrx_curve_getstartpoint (car e)))
   
5.      (xd::pnt:mark spt 1) ;_标记起点
   
6.      (xd::pnt:drawarrow
   
7.        (xdrx_curve_getstartpoint (car e))
   
8.        (xdrx_curve_getfirstderiv
   
9.          (car e)
   
10.          (xdrx_curve_getParamAtPoint (car e) spt)
    
11.        )
    
12.        2
    
13.      )        ;标示曲线方向
    
14.      (setq d (getdist (cadr e) "\n间距："))
    
15.      (setq d1 (getdist (cadr e) "\n线长: "))
    
16.       )
    
17.     (progn (setq lst (XD::Curve:NumDiv (car e) nil nil d))
    
18.      (mapcar '(lambda (x / v v1)
    
19.           (setq v  (xdrx_vector_perpvector (cadr x)) ;_垂向量
    
20.           v1 (xdrx_vector_product v d1) ;_放大的指定长度
    
21.           p1 (mapcar '+ (car x) v1)
    
22.           )
    
23.           (xdrx_line_make (car x) p1) ;_绘制短线
    
24.         )
    
25.        lst
    
26.      )
    
27.      (redraw)
    
28.     )
    
29.   )
    
30.   (princ)
    
31. )

(defun c:tt (/ e d d1 spt)<br />   (if (and (setq e (entsel))<br />      (setq spt (xdrx_curve_getstartpoint (car e)))<br />      (xd::pnt:mark spt 1) ;_标记起点<br />      (xd::pnt:drawarrow<br />        (xdrx_curve_getstartpoint (car e))<br />        (xdrx_curve_getfirstderiv<br />          (car e)<br />          (xdrx_curve_getParamAtPoint (car e) spt)<br />        )<br />        2<br />      )        ;标示曲线方向<br />      (setq d (getdist (cadr e) "\n间距："))<br />      (setq d1 (getdist (cadr e) "\n线长: "))<br />       )<br />     (progn (setq lst (XD::Curve:NumDiv (car e) nil nil d))<br />      (mapcar '(lambda (x / v v1)<br />           (setq v  (xdrx_vector_perpvector (cadr x)) ;_垂向量<br />           v1 (xdrx_vector_product v d1) ;_放大的指定长度<br />           p1 (mapcar '+ (car x) v1)<br />           )<br />           (xdrx_line_make (car x) p1) ;_绘制短线<br />         )<br />        lst<br />      )<br />      (redraw)<br />     )<br />   )<br />   (princ)<br /> )

csharp

定数等分还可以用更简单的getsamplept

zhangq_cai1

pl画的线不行  参数类型错误: 二维/三维点: nil

zhangq_cai1

请高手测试一下~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~····