[autolisp]刚学，试编个画五角星的lip，但不成功，求解，谢

blackhold · 发表于 2008-5-31 20:31:11

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

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

×

--------------------------------------------------

已得解

(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了。。。。

--------------------------------------------------

刚学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)

)

但不能实现我要的功能，请高人解答，谢谢。。。

图形如下：

791221ni · 发表于 2008-6-7 18:51:47

(defun c:xing()
(while (progn
            (if (setq pt0 (getpoint "\n请输入起点:"))
               (setq dist1 (getdist "\n请输入边长度:"))
            )
         )
(setq List1 (list pt0))
(setq i 0)
(repeat 5
   (setq Pt0 (polar pt0 (* (/ pi 5) (* i 6)) dist1))
   (setq List1 (append List1 (list Pt0)))
   (setq i (+ i 1))
)
(command "PLINE" (foreach Pt List1 (command Pt)))
)
(princ)
)

跑、赶紧跑 · 发表于 2015-11-6 09:30:46

(defun c:wjx()

  ;以下O、R值须由用户输入
  (setq O (getpoint "\n 请输入基准点："))
  (setq R (getdist O "\n 请输入五角星半径："))
  ;以下p1、p2、p3、p4、p5值须由程序依据O、R求出
  (setq p1 (polar O (* pi 0.5) R))
  (setq p2 (polar O (* pi 0.9) R))
  (setq p3 (polar O (* pi 1.3) R))
  (setq p4 (polar O (* pi 1.7) R))
  (setq p5 (polar O (* pi 0.1) R))
  ;以下依据p1、p2、p3、p4、p5画出五角星
  (command "pline" p1 p3 p5 p2 p4 "c")
  (prin1)

  )

iLisp · 发表于 2015-11-9 08:07:41

本帖最后由 iLisp 于 2015-11-9 08:09 编辑

这样写, 注意关掉捕捉

(defun c:xing (/ p0 r an san _pi2 p1 p2 p3 p4 p5 p12 p23 p34 p45 p51)
(if (and (setq p0 (getpoint "\nCenter: "))
(setq r (getdist p0 "\nRadius: "))
)
(progn
(setq an (* pi 0.4)
san (- (* pi 0.5) an)
_pi2 (* pi 0.5)
p1 (polar p0 san r)
p2 (polar p0 _pi2 r)
p3 (polar p0 (+ _pi2 an) r)
p4 (polar p0 (+ _pi2 an an) r)
p5 (polar p0 (- san an) r)
p12 (inters p1 p3 p2 p5)
p23 (inters p2 p4 p1 p3)
p34 (inters p2 p4 p3 p5)
p45 (inters p4 p1 p3 p5)
p51 (inters p5 p2 p4 p1)
)
(setvar "cmdecho" 0)
(apply 'command
(cons ".pline" (list p1 p12 p2 p23 p3 p34 p4 p45 p5 p51))
)
(command "c")
;|
(command ".rotate" "l" "" p0 "r" p0 p1)
(while (/= 0 (getvar "cmdactive"))
(command pause)
)
|;
)
)
(princ)
)

(defun c:xing (/ p0 r an san _pi2 p1 p2 p3 p4 p5 p12 p23 p34 p45 p51) 
  (if (and (setq p0 (getpoint "\nCenter: ")) 
           (setq r (getdist p0 "\nRadius: ")) 
      ) 
    (progn 
      (setq an         (* pi 0.4) 
            san         (- (* pi 0.5) an) 
            _pi2 (* pi 0.5) 
            p1         (polar p0 san r) 
            p2         (polar p0 _pi2 r) 
            p3         (polar p0 (+ _pi2 an) r) 
            p4         (polar p0 (+ _pi2 an an) r) 
            p5         (polar p0 (- san an) r) 
            p12         (inters p1 p3 p2 p5) 
            p23         (inters p2 p4 p1 p3) 
            p34         (inters p2 p4 p3 p5) 
            p45         (inters p4 p1 p3 p5) 
            p51         (inters p5 p2 p4 p1) 
      ) 
      (setvar "cmdecho" 0) 
      (apply 'command 
             (cons ".pline" (list p1 p12 p2 p23 p3 p34 p4 p45 p5 p51)) 
      ) 
      (command "c") 
      ;| 
      (command ".rotate" "l" "" p0 "r" p0 p1) 
      (while (/= 0 (getvar "cmdactive")) 
        (command pause) 
      ) 
      |; 
    ) 
  ) 
  (princ) 
)

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

[autolisp]刚学，试编个画五角星的lip，但不成功，求解，谢

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

相关帖子