使用lisp实现在cass中绘制缓和曲线子函数

fxj0927

(defun hz_hhqx ()
  (setq x0 nil)
  (setq y0 nil)
  (setq x0 (nth 0 p0))
  (setq y0 (nth 1 p0))
  (setq L3 0.0)
  (setq ang3 (rem (- (/ (* pi 5) 2) ang0) (* pi 2)))
  (setq bln (/ 1.0 ra))
  (setq blm (/ (- ra rb) 2.0 Ls ra rb))
  (setq sj1 '(0.1739274226 0.3260725774 0.3260725774 0.1739274226))
  (setq sj2 '(0.0694318442 0.3300094782 0.6699905218 0.9305681558))

  (setvar "osmode" 0)
  (command "pline" (list x0 y0 0) "w" "0" ""
    (while (< L3 Ls)
      (cond

( (>= (- Ls L3) 0.5)

  (setq kk 0)

  (setq xi3 0 yi3 0)

  (setq L3 (+ L3 0.5))

  (repeat 4

    (setq sj1i (nth kk sj1))

    (setq sj2i (* (nth kk sj2) L3))
            (setq angii3 (+ ang3 (* zx sj2i (+ bln (* sj2i blm)))))
            (setq xi3 (+ xi3 (* sj1i (cos angii3))))
            (setq yi3 (+ yi3 (* sj1i (sin angii3))))
            (setq kk  (1+ kk))
          );repeat
          (setq angi3 (+ ang3 (* zx L3 (+ bln (* L3 blm))) (* 0.5 pi)))
          (setq xi3 (+ x0 (* L3 xi3)))
          (setq yi3 (+ y0 (* L3 yi3)))

  (command (list xi3 (- (* 2 y0) yi3) 0))

);画0.5

( (and (> (- Ls L3) 0) (< (- Ls L3) 0.5))

  (setq kk 0)

  (setq xi3 0 yi3 0)

  (setq L3 Ls)

  (repeat 4

    (setq sj1i (nth kk sj1))

    (setq sj2i (* (nth kk sj2) L3))
            (setq angii3 (+ ang3 (* zx sj2i (+ bln (* sj2i blm)))))
            (setq xi3 (+ xi3 (* sj1i (cos angii3))))
            (setq yi3 (+ yi3 (* sj1i (sin angii3))))
            (setq kk  (+ kk 1))
          );repeat
          (setq angi3 (+ ang3 (* zx L3 (+ bln (* L3 blm))) (* 0.5 pi)))
          (setq xi3 (+ x0 (* L3 xi3)))
          (setq yi3 (+ y0 (* L3 yi3)))

  (command (list xi3 (- (* 2 y0) yi3) 0))

);画剩余
      );cond
    );while
  );command
  (setvar "osmode" 1)
  (princ)
);hz_hhqx

我自己写的。需要的 拿去用。

Real_King

谢谢！！！很有用的东西

panzhongw

这样不是很精确啦

fxj0927

panzhongw 发表于 2013-3-17 17:23
这样不是很精确啦

很久之前写的东西了，短距离适用，长距离绘制有误差。绘制一段长度的曲线后终止命令，再启用继续绘制，这样要相对精确点。

zml84

缓和曲线较精确计算lisp源码，参见 http://zml84.blog.sohu.com/85831383.html

fxj0927

zml84 发表于 2013-3-26 10:25
缓和曲线较精确计算lisp源码，参见 http://zml84.blog.sohu.com/85831383.html

嗯   好东西~

panziyang000

楼主，我对这个不懂 ，能不能教下在CAD中加载后 ，怎么用呢

h199101

zml84 发表于 2013-3-26 10:25
缓和曲线较精确计算lisp源码，参见 http://zml84.blog.sohu.com/85831383.html

这代码怎么用啊 也没有新的命令 加载后什么东西都不跳出来 新手请原谅