筷子放在杯子中的问题

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

这里高手挺多，请解决一下这个问题http://www.ok-pump.com/lyb/topic.asp?l_id=15&t_id=1048

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

这里有好几种方法！ http://www.xdcad.net/forum/showthread.php?s=&threadid=110857

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

第一个问题：

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

本帖最后由作者于 2004-5-4 12:20:31 编辑

第二个问题：做了个小程序源代码如下 (defun c:kz( / p1 p2 p3 p20 x)
(setq c (getdist "请选择筷子的宽度:")
p1 (getpoint "请选择杯子的左上角:")
p20 (getpoint "请选择杯子的右下角:")
p2 p20)
(setq x 1 )
(while (< 0.00000000000001 x)
(setq p3 (polar p2 (- (angle p2 p1) (/ pi 2)) c))
(setq x(- (car p3) (car p20)))
(setq p2 (polar p2 (* -1 pi) x))
) (setq osmode(getvar "osmode")) (SETVAR "OSMODE" 0)
(command "pline" p1 p2 p3 "") (SETVAR "OSMODE" osmode)
)

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

操作说明

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

先加载4楼程序，然后运行kz命令。再按照5楼的方法摆放即可。

账号		自动登录	找回密码
密码			注册

筷子放在杯子中的问题

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源