木偶的死亡舞 发表于 2011-11-1 22:13:12

新手问问题 求知道

(defun c:lsp_01()
(setvar "cmdecho" 0)
(setq ww 1300)
(setq hh 1800)
(setq pt1 (getpoint))
(setq pt2 (polar pt1 0 ww))
(setq pt3 (polar pt2 (* 0.5 pi) hh))
(setq pt4 (polar pt3 pi ww))
(command "pline" pt1 pt2 pt3 pt4 "C")
(setq pt5 (polar pt1 (* 0.25 pi) (* (/ (exp 2 0.5) 15) ww)))
(setq pt6 (polar pt5 0 (* (/ 2 5) ww)))
(setq pt7 (polar pt6 (* 0.5 pi) (- hh (* (/ 2 15) ww))))
(setq pt8 (polar pt7 pi (* (/ 2 5) ww)))
(command "pline" pt5 pt6 pt7 pt8 "C"))


刚学习LISP画两个框 上面的代码错误是显示参数过多 不知道哪里出错了 有没有好心人帮下忙指导一下 急求

Andyhon 发表于 2011-11-1 22:41:06

TRy...
(setq pt5 (polar pt1 (* 0.25 pi) (* (/ (exp 2 0.5) 15) ww)))
===>
(setq pt5 (polar pt1 (* 0.25 pi) (* (/ (expt 2 0.5) 15) ww)))
-------------------------
(/ 2 5)==>0         ; check again
(/ 2 5.0) ==> 0.4


木偶的死亡舞 发表于 2011-11-1 22:51:46

Andyhon 发表于 2011-11-1 22:41 static/image/common/back.gif
TRy...
(setq pt5 (polar pt1 (* 0.25 pi) (* (/ (exp 2 0.5) 15) ww)))
===>


谢谢大哥！！

fergus1987 发表于 2011-11-2 08:49:23

学习了！ 谢谢分享
页: [1]
查看完整版本: 新手问问题 求知道