谁能帮我改下下面程序,调不出来了谢谢啊

yangist · 发表于 2015-1-6 17:01

;;;圆弧三次,画弯头用的
(defun c:rt()
  (setq r1 (getdist "圆弧半径:<可量取>"))
  (setq r2 (* r1 0.5))
  (setq r3 (* r1 1.5))
  (initcommandversion 2)
  (setvar "filletrad" r1)
  (command ".fillet" "m")
  (setvar "filletrad" r2)
  (command ".fillet" "m")
  (setvar "filletrad" r3)
  (command ".fillet" "m")
)

鱼与熊掌 · 发表于 2015-1-6 18:22

pause command 还没结束就开始下个命令所以错了

yangist · 发表于 2015-1-7 07:34

(initcommandversion 2) 是我上网查的网址
http://bbs.mjtd.com/thread-77901-1-1.html

yangist · 发表于 2015-1-7 07:39

本帖最后由 yangist 于 2015-1-7 07:56 编辑

鱼与熊掌发表于 2015-1-6 18:22
pause command 还没结束就开始下个命令所以错了

噢会了 pause pause 谢谢

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

[已解答] 谁能帮我改下下面程序,调不出来了谢谢啊

点评

相关帖子

[已解答] 谁能帮我改下下面程序,调不出来了 谢谢啊

点评

相关帖子

[已解答] 谁能帮我改下下面程序,调不出来了谢谢啊