[求助]请教教小弟！

xjjy · 发表于 2004-10-16 10:49:00

如图：
能否帮我编一个完整的程序，我弄半天，
谢谢！

csh3etuflx4.GIF

meflying · 发表于 2004-10-16 10:57:00

程序用来做什么???你什么的不说,怎么编?????????

xjjy · 发表于 2004-10-16 11:07:00

图示尺寸为变量，按图编就可以，谢谢！

meflying · 发表于 2004-10-16 11:12:00

既然是一个完整的程序,你包括数据的输入,,,
你这么多变量是要怎么输入,还有整个图形的位置没有确定,要怎么定...
怎么就不愿意多说几句,

xjjy · 发表于 2004-10-16 11:18:00

如图：
谢谢！
请多包涵！

1ar1lwgy1kl.GIF

meflying · 发表于 2004-10-16 11:31:00

这样的人真少见,真要求你说了....
给起点有什么用?要把这个图放到哪儿,插入点,就是这个起点在图的什么位置?
数据是在命令行输入,还是从数据文件输入,还是别的?????
在这里不是用简练耍酷的,不怕说多了,说重复了,就怕说不清楚,你看你,三个帖子加起来才几个字...这样一方面问题没说明白,另一方面,让人觉得你没诚意,好象在使唤别人,让人觉得不舒服,至少我就是这么觉得的

xjjy · 发表于 2004-10-16 11:46:00

我来这里是寻求帮助的，并不是来看你脸色的，只要能符合要求，任何方法都可以，提示输入可以，对话宽也可以，条条大路通罗马，我并没有具体要求，我要学习的是方法，我不是一定要画出此图，不懂才来问，你自侍高明，心情不好，请不要拿我来出气，请自重，我并没有点名要你来帮我，我想此论坛高手如云，有能耐心帮助他人的大哥，
以上
如有冲撞，请多包涵！
谢谢！！

meflying · 发表于 2004-10-16 12:26:00

不知道是你看我脸色,还是我看你脸色,我三番五次请求你把要求说具体点(因为你开始要求的是完整的程序,而不是7楼所说的,是学习方法),而你总是不愿意说详细些,我才多说了几句...而且在问的过程中,我已经把关键部分做好了,只等你说具体点,把头尾等细节做好,好让它"完整"...唉...

nono · 发表于 2004-10-16 12:56:00

(defun c:test (/ os po w h1 h2 wpo h1lpo ang rad ang1 h1rpo l lpo rpo)
   (setvar "cmdecho" 0)
   (setq os (getvar "osmode"))
   (setvar "osmode" 0)
   (setq po (getpoint "\n选取一点:"))
   (setq w (getdist po "\nW值:"))
   (setq h1 (getdist po "\nH1值:"))
   (setq h2 (getdist po "\nH2值:"))

   (setq wpo (polar po 0 w))
   (setq h1lpo (polar po (* pi 1.5) h1))
   (setq ang (getangle "\nAng角度:"))
   (setq rad (getdist "\nRad半径:"))
   (setq ang1 (- (* pi 1.5) ang))
   (setq h1rpo (polar wpo (* pi 1.5) h1))
   (setq l (/ (- h2 h1) (cos ang)))
   (setq lpo (polar h1lpo ang1 l))
   (setq rpo (polar lpo 0 h1))
   (command "pline" h1lpo lpo rpo h1rpo "")
   (setq en1 (entlast))
   (command "line" h1rpo wpo po h1lpo "")
   (setvar "filletrad" rad)
   (command "FILLET" "p" en1)
   (setvar "osmode" os)
   (prin1)
)