iCAx开思工具箱

标题: [autolisp]刚学，试编个画五角星的lip，但不成功，求解，谢 [打印本页]

作者: blackhold 时间: 2008-5-31 20:56
标题: [autolisp]刚学，试编个画五角星的lip，但不成功，求解，谢
刚学autolisp，试编个画五角星的lip，但不成功，求解，谢
写的程序如下：
(defun c:wu()

;以下p1值须由使用者输入,p2、p3、p4、p5自动运算
(setq p1 (getpoint "请输入第一点:"))
(setq l (getreal "请输入五角星每边长度:"))
(setq p2 (polar p1 (* pi (/ -36 180)) l))
(setq p3 (polar p2 (* pi (/ 108 180)) l))
(setq p4 (polar p3 (* pi (/ -108 180)) l))
(setq p5 (polar p4 (* pi (/ 36 180)) l))
;按p1、p2、p3、p4、p5画线
(command "pline" p1 p2 p3 p4 p5 "c")
(prin1)
)

但不能实现我要的功能，请高人解答，谢谢。。。
图形如下：
(, 下载次数: 7)

作者: blackhold 时间: 2008-5-31 21:05
已得解

(setq p2 (polar p1 (* pi (/ -36 180)) l))
(setq p3 (polar p2 (* pi (/ 108 180)) l))
(setq p4 (polar p3 (* pi (/ -108 180)) l))
(setq p5 (polar p4 (* pi (/ 36 180)) l))

的180换成180.0就ok了。。。。

作者: lenlenq 时间: 2010-5-12 19:43

blackhold 发表于 2008-5-31 20:56
刚学autolisp，试编个画五角星的lip，但不成功，求解，谢
写的程序如下：
(defun c:wu()

;以下p1值须由使用者输入,p2、p3、p4、p5自动运算
(setq p1 (getpoint "请输入第一点:"))
(setq l (getreal "请输入五 ...

只要注意数值为实型数就OK了

欢迎光临 iCAx开思工具箱 (https://t.icax.org/)