[求助]请教教小弟！

xjjy

如图：


能否帮我编一个完整的程序，我弄半天，


谢谢！

meflying

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

xjjy

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

meflying

既然是一个完整的程序,你包括数据的输入,,,


你这么多变量是要怎么输入,还有整个图形的位置没有确定,要怎么定...


怎么就不愿意多说几句,

xjjy

如图：


谢谢！


请多包涵！

meflying

这样的人真少见,真要求你说了....


给起点有什么用?要把这个图放到哪儿,插入点,就是这个起点在图的什么位置?


数据是在命令行输入,还是从数据文件输入,还是别的?????


在这里不是用简练耍酷的,不怕说多了,说重复了,就怕说不清楚,你看你,三个帖子加起来才几个字...这样一方面问题没说明白,另一方面,让人觉得你没诚意,好象在使唤别人,让人觉得不舒服,至少我就是这么觉得的

xjjy

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


以上


如有冲撞，请多包涵！


谢谢！！

meflying

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

nono

(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)
)

xjjy

谢谢NONO!!



(setq rpo (polar lpo 0 h1))
改为：         (setq rpo (polar lpo 0 W))就OK了
再次谢谢NONO!!