VLISP直线模拟曲线（圆、椭圆）

Lisphk · 发表于 2016-9-11 20:31:34

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

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

×

VLISP直线模拟曲线（圆、椭圆）

[sell=3]

(defun tracecurve (obj di / cycle st)
(defun cycle (st stp seg l)
(cond
((< (+ st seg) stp)
(cycle (+ seg st)
stp
seg
(cons (vlax-curve-getPointAtParam obj st) l)
)
)
(t
(and (< st stp)
(setq l
(cons (vlax-curve-getPointAtParam obj st) l)
)
)
(reverse
(cons (vlax-curve-getPointAtParam obj stp) l)
)
)
)
)
(if
(and (not (minusp di))
(not (zerop di))
(vl-position
(vla-get-objectname
(cond
((eq 'ENAME (type obj)) (vlax-ename->vla-object obj))
(obj)
)
)
'("AcDbCircle" "AcDbArc" "AcDbEllipse" "AcDbSpline")
)
)
(cycle
(setq st (vlax-curve-getStartParam obj))
(vlax-curve-getEndParam obj)
(- (vlax-curve-getParamAtDist obj 0.125) st)
nil
)
)
)

(defun tracecurve (obj di / cycle st) 
  (defun cycle (st stp seg l) 
    (cond 
      ((< (+ st seg) stp) 
       (cycle (+ seg st) 
              stp 
              seg 
              (cons (vlax-curve-getPointAtParam obj st) l) 
       ) 
      ) 
      (t 
       (and (< st stp) 
            (setq l 
                   (cons (vlax-curve-getPointAtParam obj st) l) 
            ) 
       ) 
       (reverse 
         (cons (vlax-curve-getPointAtParam obj stp) l) 
       ) 
      ) 
    ) 
  ) 
  (if 
    (and (not (minusp di)) 
         (not (zerop di)) 
         (vl-position 
           (vla-get-objectname 
             (cond 
               ((eq 'ENAME (type obj)) (vlax-ename->vla-object obj)) 
               (obj) 
             ) 
           ) 
           '("AcDbCircle" "AcDbArc" "AcDbEllipse" "AcDbSpline") 
         ) 
    ) 
     (cycle 
       (setq st (vlax-curve-getStartParam obj)) 
       (vlax-curve-getEndParam obj) 
       (- (vlax-curve-getParamAtDist obj 0.125) st) 
       nil 
     ) 
  ) 
)

[/sell]
用法：(traceCurve ent 0.125)

sicky111 · 发表于 2016-9-11 23:36:29

点能不能少一点？

yoyoho · 发表于 2016-9-11 23:45:17

感谢分享! 学习了!

Lisphk · 发表于 2016-9-11 23:46:18

sicky111 发表于 2016-9-11 23:36
点能不能少一点？

点多点少，精度参数控制，下面例子，后面的0.125

(traceCurve ent 0.125)

hao3ren · 发表于 2016-9-12 01:17:02

为什么我手机可以上晓东，电脑却不行

HLCAD · 发表于 2016-9-12 15:58:48

很多年前，线切割机就必须将曲线线段化，现在不知还要不要这样做

XDSoft · 发表于 2016-9-12 16:05:48

hao3ren 发表于 2016-9-12 01:17
为什么我手机可以上晓东，电脑却不行

电脑上有什么提示？

WhoCanSay · 发表于 2016-9-12 16:28:45

XDSoft 发表于 2016-9-12 16:05
电脑上有什么提示？

我与hao3ren相反，手机上不了，电脑上没有问题。主要是看不到验证码，后来有了验证码老是提示不对。

WhoCanSay · 发表于 2016-9-12 16:30:34

还是高飞大师发的那个好，模拟所有曲线

laiz3000 · 发表于 2017-1-2 15:19:04

啥也不说了，感谢楼主分享哇！

qhdycm2016 · 发表于 2017-7-11 08:29:10

感谢楼主分享

1028882406@qq.c · 发表于 2017-7-11 08:50:21

谢谢楼主分享

yyc865433650 · 发表于 2021-7-9 14:26:50

谢谢楼主分享谢谢楼主分享

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

[每日一码] VLISP直线模拟曲线（圆、椭圆）

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

点评

点评

点评