[求助]类似于revcloud的lisp命令

citykunan · 发表于 2003-10-9 17:34

有没有谁可以编一个类似于revcloud--“云彩“的命令，不过画出来的不是圆弧，是一段段的线？

meflying · 发表于 2003-10-9 17:40

(defun c:test( / pt)
  (setq pt (getpoint "\nEnter the first point:"))
  (if pt
(progn
   (command "_.pline" pt)
   (while (= (car (setq pt (grread 5))) 5)
(command (cadr pt))
   )
   (command "")
)
  )
  (princ)
)

如果想用断开的直线，将pline改为line就可以了

BDYCAD · 发表于 2003-10-9 18:35

這個很好的, 但将pline改为spline就不可以的啦, 呵呵, 你的腦筋動的太多所以好用.

----------------------------------------
我愛CAD, 多多交流, 共同進步.

meflying · 发表于 2003-10-9 18:37

不过楼主要的就是一段一段的线，而不是光滑的曲线

citykunan · 发表于 2003-10-10 09:26

谢谢

jaminth · 发表于 2008-2-27 22:27

revcloud--“云彩“的命令，反过来.....

想要画出来的是圆弧，不是一段段的线,请meflying帮一下忙!

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

[求助]类似于revcloud的lisp命令

浏览过的版块