API应用曲线等分或等距点

st788796 · 发表于 2014-9-30 00:02:20

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 st788796 于 2014-10-1 15:59 编辑

http://bbs.xdcad.net/forum.php?mod=viewthread&tid=676273&extra=page%3D1

st788796 · 发表于 2014-9-30 08:03:02

一个按指定间隔绘制短线例子

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

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

liuyj · 发表于 2014-10-1 15:38:05

有点问题，输入的是距离，可是等分时用的是param，结果我试了好多次都只能画出端点的那根线，后来仔细看了看代码，距离输了个很小的数值（小于endparam），才看到效果了

st788796 · 发表于 2014-10-1 16:11:23

本帖最后由 st788796 于 2014-10-1 16:17 编辑

liuyj 发表于 2014-10-1 15:38
有点问题，输入的是距离，可是等分时用的是param，结果我试了好多次都只能画出端点的那根线，后来仔细看了 ...

谢谢指正，搞错了，应该用 xdrx_curve_getdistatpoint

一楼链接已修改

liuyj · 发表于 2014-10-1 22:02:06

再请教一下，xdrx_curve_getfirstderiv这个函数经常没有返回值，是什么情况？

st788796 · 发表于 2014-10-1 22:04:44

liuyj 发表于 2014-10-1 22:02
再请教一下，xdrx_curve_getfirstderiv这个函数经常没有返回值，是什么情况？

secondderiv 二阶倒数有时候会没有, firstderiv 一阶倒数还没有碰到没有的情况

liuyj · 发表于 2014-10-1 22:30:26

您试试我这条曲线，怎么也弄不出效果来。

st788796 · 发表于 2014-10-1 23:20:16

liuyj 发表于 2014-10-1 22:30
您试试我这条曲线，怎么也弄不出效果来。

一楼链接已修改, 少了一个 xdrx_curve_getparamatdist

liuyj · 发表于 2014-10-2 01:01:05

对圆弧似乎没有效果

XDSoft · 发表于 2014-10-2 04:35:30

liuyj 发表于 2014-10-2 01:01
对圆弧似乎没有效果

弧线测试可以，如果不行，请去下载最新的 10.02 函数库。

liuyj · 发表于 2014-10-2 21:42:47

本帖最后由 liuyj 于 2014-10-2 21:45 编辑

为什么在R18X64位的环境下，(xdrx_curve_getfirstderiv (car e) 0.)这句对圆弧没有返回值呢？因此也无法绘制箭头。加载了10.02的函数库了

iLisp · 发表于 2014-10-2 22:30:16

liuyj 发表于 2014-10-2 21:42
为什么在R18X64位的环境下，(xdrx_curve_getfirstderiv (car e) 0.)这句对圆弧没有返回值呢？因此也无法绘 ...

命令: (xdrx_curve_getfirstderiv (entlast) 0.0)
(0.0 1.0 0.0)

liuyj · 发表于 2014-10-2 22:50:30

怪了，我的电脑无论是xdrx_curve_getfirstderiv还是vlax-curve-getFirstDeriv，对圆弧就是仅能返回nil，什么情况这是？

XDSoft · 发表于 2014-10-2 23:05:57

liuyj 发表于 2014-10-2 22:50
怪了，我的电脑无论是xdrx_curve_getfirstderiv还是vlax-curve-getFirstDeriv，对圆弧就是仅能返回nil，什 ...

除了圆弧以为，其他曲线都正常吗？

liuyj · 发表于 2014-10-2 23:49:49

是的，我试了line、LWPOLYLINE、spline、arc等，只有arc是这样的，其余的都正常。

账号		自动登录	找回密码
密码			立即注册

[教学] API应用曲线等分或等距点

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评

[教学] API应用 曲线等分或等距点

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评

[教学] API应用曲线等分或等距点