[求助]：lisp画线出错

960322 · 发表于 2008-9-6 11:27:48

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

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

×

如题：

(setq pa (getpoint "\n选择需标高点："))
  (setq pb (polar pa pi (* 800 n)))
  (setq pc (polar pa 0 (* 300 n)))
  (setq pg (polar pa (/ pi 2) (* 250 n)))
  (setq pd (polar pg pi (* 250 n)))
  (setq pe (polar pg 0 (* 250 n)))
  (setq pf (polar pg 0 (* 1450 n)))
  (command "pline" pe pa pd pf "")

也就是一个画标高符号的程序，当屏幕显示范围比较小的时候画出来没问题，而当屏幕显示范围很大的时候画出来的线要么是0长度，要么是乱画的。感觉象是精度问题，请问到底是为什么？如何解决。

也就是说，如果已知pa pb两点，怎样画直线pa pb比较好。

Underway · 发表于 2008-9-6 13:20:55

补捉在作怪....

qjcpj · 发表于 2008-9-6 13:21:53

(setvar "osmode" 0)

960322 · 发表于 2008-9-8 19:21:59

是这样的，谢谢楼上两位

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

[求助] [求助]：lisp画线出错

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

相关帖子