筷子放在杯子中的问题

wgl721219

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

ahlzl

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

ljcgq

第一个问题：

ljcgq

第二个问题： 做了个小程序源代码如下 (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

操作说明

ljcgq

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