[已经解决]：问个lisp调用“line”命令出错的问题？

fl202 · 发表于 2009-2-17 09:55:59

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

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

×

(command  "line"  xt1  "a"  30  "l"  4000 "") 其中的xt1是鼠标选取屏幕上的坐标点，没有问题。
这个命令应该是在鼠标定位点上画一个角度为30°长度为4000的直线。
可我每次画出来的线的角度都有问题，而长度和线段的起点都是对的。即使是设置弧度(/ pi 6)出来的也不是那个30°的角。
不知道这个角度该怎么设置才好。求高手指教。谢谢。

  (setq xt1 (getpoint "\n 请选择基点的坐标："))
  (setq xt2 (polar xt1 (/ pi 6) 4000))
  (command "line" xt1 xt2 "")
当我这样编写时就没有错误，就是要多设置一个变量。真不知道问题出在哪里？

Underway · 发表于 2009-2-17 10:46:07

(command "line" xt1 "a" 30 "l" 4000 "")
===>
(command "line" xt1 "@4000<30" "")

fl202 · 发表于 2009-2-18 08:23:27

回复2楼：
我调试过了。用你的语句就可以实现预期目标了，非常感谢！

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

[已经解决]：问个lisp调用“line”命令出错的问题？

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

相关帖子