[LISP程序]：请教, 为什么每次的计算结果不一样?

zhaozhi · 发表于 2003-8-15 13:18:54

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

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

×

;

(defun c:9()
  (setq pa (getpoint "\n input left corner"))
  (setq ww (getreal "\n width"))
  (setq hh (getreal "\n height"))
  (setq jg (getreal "\n jamb gap"))
  (setq sg (getreal "\n sill gap"))
  (setq hdh (getreal "\n head gap"))


  ;
  ;
  ;
  (setq pb (polar pa 0 ww))
  (setq pc (polar pb (/ pi 2) hh))
  (setq pd (polar pc pi ww))
  ;
  ;
  ;
  (command "pline" pa pb pc pd "c")
  ;
  ;
  (setq ha1 (polar pa (/ pi 2) sg))
  (setq ha (polar ha1 0 jg))
  (setq hb (polar ha 0 (- ww (* 2 sg))))
  (setq hc (polar hb (/ pi 2) (- hh (+ hdh jg))))
  (setq hd (polar hc pi (- ww (* 2 jg))))
  (setq h2 (polar hd (/ pi 2) hdh))
  (setq h1 (polar hc (/ pi 2) hdh))

  ;
  ;
  ;
  (command "line" ha h2 "")
  (command "line" ha hb "")
  (command "line" hb h1 "")
  (command "line" h2 h1 "")
  (command "line" hd hc "")
  )

liusz11 · 发表于 2003-8-15 14:24:34

你看到计算结果了吗？还是说每次程序运行的结果不同，即没正确地画出你所需的图形？
不知你上面的程序写全了没有，是否对各种变量进行了设置，试举一例：
(setq ocmde (getvar "cmdecho"))
  (setq oosmode (getvar "osmode"))
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  .
  .
  .
  (setvar "cmdecho" ocmde)
  (setvar "osmode" oosmode)
当然视程序不同，还会有不同的变量需设置，另外还应加上出错程序。

tuger · 发表于 2003-8-15 17:17:47

还有在主程序(defun c: 9 (....)
里面应将变量放进去，否则第一次可能对，后面就会出错，因为变量没清空。

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

[LISP程序]：请教, 为什么每次的计算结果不一样?

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

相关帖子

浏览过的版块