wgl721219 发表于 2004-4-27 16:22:00

筷子放在杯子中的问题

这里高手挺多，请解决一下这个问题<A href="http://www.ok-pump.com/lyb/topic.asp?l_id=15&amp;t_id=1048" target="_blank" >http://www.ok-pump.com/lyb/topic.asp?l_id=15&amp;t_id=1048</A>

ahlzl 发表于 2004-4-27 16:25:00

这里有好几种方法！


<A href="http://www.xdcad.net/forum/showthread.php?s=&amp;threadid=110857" target="_blank" >http://www.xdcad.net/forum/showthread.php?s=&amp;threadid=110857</A>

ljcgq 发表于 2004-5-4 11:36:00

第一个问题：

ljcgq 发表于 2004-5-4 11:42:00

本帖最后由 作者 于 2004-5-4 12:20:31 编辑 <br /><br /> 第二个问题：



做了个小程序源代码如下


(defun c:kz( / p1 p2 p3 p20 x)<BR>       (setq c (getdist "请选择筷子的宽度:")<BR>                                                       p1 (getpoint "请选择杯子的左上角:") <BR>                                                       p20 (getpoint "请选择杯子的右下角:")<BR>                                                       p2 p20)<BR>       (setq x 1 )<BR>       (while (&lt; 0.00000000000001 x)<BR>                                       (setq p3 (polar p2 (- (angle p2 p1) (/ pi 2)) c))<BR>                                       (setq x(- (car p3) (car p20)))<BR>                                       (setq p2 (polar p2 (* -1 pi) x))<BR>                                       )       (setq osmode(getvar "osmode"))         (SETVAR "OSMODE" 0)<BR>        (command "pline" p1 p2 p3       "") (SETVAR "OSMODE" osmode)<BR>)

ljcgq 发表于 2004-5-4 11:57:00

操作说明

ljcgq 发表于 2004-5-5 18:29:00

先加载4楼程序，然后运行kz命令。再按照5楼的方法摆放即可。
页: [1]
查看完整版本: 筷子放在杯子中的问题