carolwa 发表于 2006-7-20 15:00:00

怎样直接画已知弧长的弧

在不要计算的情况下，可不可以直接画出已知半径和弧长的弧，

xiaochizi 发表于 2006-7-20 15:52:00

<P>我也想知道</P>

Joseflin 发表于 2006-7-20 16:56:00

请参考：

dada4102 发表于 2006-7-30 20:07:00

看不懂

yu10cheng2 发表于 2006-7-30 21:49:00

可以先用已知半径随便画个圆弧,再用LENGTH(快捷键LEN)命令下的T,再输入弧长即可!可以自己试试,具体看命令提示!

zgzzsn 发表于 2006-8-1 06:17:00

<P>用这个ｌｉｓｐ</P>
<P>可以直接画出已知半径和弧长的弧.</P>
<P>依次点选，端点、圆心，输入弧长值，即可</P>
<P>(defun C:ARCH (/ os pa pb h xa ya xb yb r xL a)<BR>&nbsp; (setq os (getvar "osmode"))<BR>&nbsp; (setvar "osmode" 32)<BR>&nbsp; (setq pa (getpoint "\n duan dian 端点:"))<BR>&nbsp; (setq pb (getpoint "\n yuan xin 圆心:"))<BR>&nbsp; (setq&nbsp; h (getreal&nbsp; "\n hu chang 弧长:"))<BR>&nbsp; (setq xa (car pa) ya (cadr pa))<BR>&nbsp; (setq xb (car pb) yb (cadr pb))<BR>&nbsp; (setq&nbsp; r (sqrt (+ (* (- xa xb) (- xa xb)) (* (- ya yb) (- ya yb)))))<BR>&nbsp; ;(setq xL (* 2 r (sin (/ h (* 2 r)))))<BR>&nbsp; (setq a (* (/ h r) (/ 180 pi)))<BR>&nbsp; (setvar "osmode" os)<BR>&nbsp; ;(command "arc" pa "c" pb "L" xL)<BR>&nbsp; (command "arc" pa "c" pb "A" a)<BR>&nbsp; )</P>

li_derun 发表于 2006-8-2 16:22:00

5楼说的可以解决

asong83 发表于 2006-8-12 16:51:00

lisp好像不能用哦

hnxieliang 发表于 2006-8-14 12:41:00

<P>晕，有这么复杂吗？</P>
<P>用圆弧命令画已知半径任意圆弧，再用len命令确定圆弧长度不就OK？</P>

fifaeric 发表于 2007-10-18 11:04:00

<p>我试用了，5楼6楼都不错，谢谢</p>
页: [1]
查看完整版本: 怎样直接画已知弧长的弧