谁有三维五角星的LSP原程序啊！！急用！

rocklee123

谁能帮我用AOTOLISP做一个三维的五角星啊尺寸什么的都随便啊！
哎~~~~~~~~都怪大学时候没认真学啊现在要用我早把AOTOLISP忘光了
把*.lsp 和*.dcl发到我的邮箱里面就可以了rocklee112@126.com
或者直接把程序贴出来也可以啊！！
跪谢

diablo_xie

(defun c:5js()
(setq os (getvar "osmode")
cmdcho (getvar "cmdecho"))
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(tsc)
(setq pt1 (getpoint "\n插入点"))
(setq pt2 (polar pt1 (angtof "-108") (sc 28.9086)))
(setq pt3 (polar pt2 pi (sc 28.9086)))
(setq pt4 (polar pt3 (angtof "-36.00") (sc 28.9086)))
(setq pt5 (polar pt4 (angtof "-108")(sc 28.9086)))
(setq pt6 (polar pt5 (angtof "36")(sc 28.9086)))
(setq pt7 (polar pt6 (angtof "-36")(sc 28.9086)))
(setq pt8 (polar pt7 (angtof "108")(sc 28.9086)))
(setq pt9 (polar pt8 (angtof "36")(sc 28.9086)))
(setq pt10 (polar pt9 pi (sc 28.9086)))
(command "color" "r")
(command "pline" pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9 pt10 "c")
(setq s1 (entlast))
(command "-bhatch" "p" "s" "s" s1 "" "")
(setvar "osmode" os)
(setvar "cmdecho" cmdcho)
)
;比例因子
(defun tsc()
(if (= js_scale nil)
(setq js_scale 1)
) (setq inp (getreal(strcat "\n输入比例因子<"
(rtos js_scale)
">")))
(if inp
(setq js_scale inp)
)
) ;比例放大或缩小 (defun sc(x)
(* x js_scale)
)
(prompt"\n画五角星程序，键入：5js执行，------------------程序设计：小谢")
(princ)

jacdy

不错，学习

 

xiaoxia

这个画出来的是平面的，楼主要的是三维的