[求助]：新手问题，画五角星

godsmother · 发表于 2005-4-7 11:33:02

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

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

×

cad刚入门，新手问题，如何画五角星？哪位有块吗？

xxming · 发表于 2005-4-7 20:28:12

;自已编了一个你试试
(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)

eachy · 发表于 2005-4-7 20:38:44

画5边形，然后连线

xyp1964 · 发表于 2005-4-7 22:52:07

(command "text" "j" "MC" pause "700""""☆")

125812581258 · 发表于 2005-4-7 23:05:06

2楼的,你不是用CAD画的呀

godsmother · 发表于 2005-4-9 11:30:21

最初由 eachy 发布
[B]画5边形，然后连线 [/B]

晕我就是这样画的，总觉得这是旁门左道，自己有点汗颜……
不过，也能画出来哈哈！

xyp1964 · 发表于 2005-4-9 12:45:08

最初由 godsmother 发布
[B]
晕我就是这样画的，总觉得这是旁门左道，自己有点汗颜……
不过，也能画出来哈哈！ [/B]

五角星有多种多样，不知要啥样子的？☆★……

fwkkun · 发表于 2005-4-9 19:55:12

画五边形,,连结各点.修剪

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

[求助]：新手问题，画五角星

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

相关帖子

浏览过的版块