这个想法不知能不能在Lisp中实现呢？

linyk · 发表于 2004-2-19 17:56:00

我想在一条直线上插入一个块，这块比如说是一个圆，那么有没有办法在按下插入点之后同时也把圆里面的直线修剪掉呢？不知用Lisp行不行呢？因为我只能看懂一小点的lisp代码，还请高手们指点一下吧。

meflying · 发表于 2004-2-19 18:01:00

如果仅仅是圆还好些，如果是复杂图块，会很困难

linyk · 发表于 2004-2-19 18:09:00

meflying兄能否给个是圆的程式呢。我也好学习研究。跪求你了！

meflying · 发表于 2004-2-19 18:13:00

首先，你不要用这样的语气，好象我很小气一样。。。

如果你想从圆的程序中得到复杂图块的程序，我想这个还是比较困难的，至少指导作用不大，否则我就直接把程序给你写出来了

linyk · 发表于 2004-2-19 18:24:00

那好啊，就请飞哥贴个圆的程序出来吧。因为我最近也学了点lisp的皮毛，但就是想不出如何来做啊，找不到思路呢。

meflying · 发表于 2004-2-19 18:38:00

我4楼的话算白说了，

建议你从基础慢慢学习

无痕 · 发表于 2004-2-19 22:22:00

我本想帮你，可是我辛苦写了一段后回贴，说回贴出错。唉，。。。。回退又不能保留已经写的内容

山河水 · 发表于 2004-2-20 09:49:00

没关系，我来帮你吧。

(command "line" '(0 0) '(100 100) "")

(setq en1 (entlast))

(setq "osmode" 512)

(setq c (getpoint "\n在圆上取一点为圆心："))

（command "circle" c 10）

(setq en2 (entlast))

(command "trim" en1 en2 "" c "")

这样就ok了！！！

Student · 发表于 2004-2-20 15:52:00

"在按下插入点之后同时也把圆里面的直线修剪掉"这个想法能实现。步骤如下： 1。做好各种块对应的块轮廓线块。 2。选择插入位置 3。先带“*”号插入轮廓线块 4。以轮廓线块为边界，trim 轮廓线内的线 5。erase 轮廓线块 6。插入真正要插入的块。有点罗嗦，也许有更好的办法。当然，在编程实现时，还要有些技巧和注意事项。借用meflying的话“多动脑筋”。

linyk · 发表于 2004-2-20 17:37:00

实在感谢楼上几位朋友给我的指点，在下一定用功学习，现在请高人指点，以后也希望能指点他人。多谢了！

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