我是新手，求助入门

jie10121 · 发表于 2004-4-23 10:54:00

我是新手，刚刚接触autolisp。老师让我们编写三个程序1.画五角星，2.画梅花瓣，3.画轴承。我不知道从何下手。绘图是不是要先学习点几何知识啊？该往哪方面考虑呢？我一点头绪都没有。请各位大侠帮帮我吧！
如果可以能将回帖发到我信箱吗？
谢谢了。

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

龙龙仔 · 发表于 2004-4-23 12:42:00

画五角星

jie10121 · 发表于 2004-4-25 19:01:00

那梅花跟轴承呢？应该怎么办呢？我需要的轴承是圆环里面套相切的小圆。能再帮我看看吗？

雪山飞狐_lzh · 发表于 2004-4-25 19:25:00

你发个图上来好办些

jie10121 · 发表于 2004-4-26 16:34:00

我贴两张图，大概是这样的。

ozh3g4lvhy1.bmp

jie10121 · 发表于 2004-4-26 16:45:00

a5o5eitfqiq.jpg

jie10121 · 发表于 2004-4-26 16:49:00

最好能将花瓣数和轴承里的小圆数设定成n，就是说不规定要几瓣或者几个小圆。谢谢了。

zoe · 发表于 2004-4-26 20:35:00

后两个图的道理跟那个五角星不是一样的吗？好好看一下2楼给的程序，就可以举一反三了吧。我觉得其实还可以用矩阵的方法来实现。

jie10121 · 发表于 2004-4-27 12:55:00

2楼给的程序我不是很懂。
(setq HOLDOSMODE (getvar "OSMODE"))
(setvar "OSMODE" 0)中getvar,setvar ,osmode ,holdosmode是什么意思？
(command "_.pline" P1 (polar CENTER (+ A ANG) DIS))这句也不懂。
(command (polar CENTER (+ (* A I) ANG) DIS))这句也不懂。
(command "c")中c又是什么？
请高手指教！

jie10121 · 发表于 2004-4-27 13:16:00

我在书上找到另一种写法。我也不是很懂。
（defun C:Star()
               (initget 1)
      (setq Center(getpoint"星的中心:"))
      (initget(+ 1 2 4))
            (setq OutRad (getdist"外圆半径："Center))
      (initget(+1 2 4))
      (setq InRad (getdist"内圆半径："Center))
      (initget(+1 2 4))
      (setq Points(getint"角点数:"))
      )
(setq Incr (/(* 2 pi) Points))
(setq Incr2 (/Incr2))
(command &quotLINE")
(setq Count 0)
(while (<Count Points)
                     (command (polar Center (* Count Incr ) OutRad))
                     (if (=Count 0)
                                                               (command "width" "0" "0"))
                     (command (polar Center (+(* Count Incr）Incr2) inRad))
                     (setq Count (1+count ))
)
(command "close")
(pronc)
)

我是新手，求助入门

发表回复

精选推荐