[LISP程序]：该程序错在哪?

wuz · 发表于 2006-2-13 15:56:40

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

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

×

(if (>= ang1 pi)
   (setq kro (rtd ang))
   (setq kro (+ (rtd ang) 180))
  )
  (command "insert" "window" pt0 (/ w 1000) (/ s 100) kro)
  非水平墙insert window偶尔出错,少转180度,这是高校教材中的一段.
请高手改一下.

xyp1964 · 发表于 2006-2-13 16:54:28

可能：

[FONT=courier new](if (>= ang1 pi)
(setq kro (rtd ang1))
(setq kro (+ (rtd ang1) 180))
)[/FONT]

xpoy_0007 · 发表于 2006-2-16 09:07:22

多一下就够灌多一次总可以吧!我要下载一点东西的啊!好急的.

zxq0220 · 发表于 2006-2-16 11:33:15

(if (OR (> ang1 pi) (EQUAL ANG1 PI 1E-5))
(setq kro (rtd ang))
(setq kro (+ (rtd ang) 180))
)
或
(setq kro (+ (rtd ang) (if (or (> ang1 pi) (equal ang1 pi 1e-5)) 0 180)))

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

[LISP程序]：该程序错在哪?

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

相关帖子

浏览过的版块