[LISP程序]：高难度的Lisp 题目

lihb · 发表于 2004-10-29 23:13:22

最终的目的是用最好的办法和最快的时间把像那样的道路画出来。
只要标出宽度线的那里宽度对了就可以。线要求是2Dpline，其它没有什么要求。

14楼和15楼的方法我用过。但是本人的LISP程序学得不是很好，能不能把具的代码写出来呀。

lsjjm · 发表于 2004-10-30 12:57:56

最初由 lihb 发布
[B]最终的目的是用最好的办法和最快的时间把像那样的道路画出来。'... [/B]

对不起呀, 我们不是学建筑和公路的, 能否用CAD或通俗的语言来说明?

dearjdz123 · 发表于 2004-10-31 00:44:16

问题总会解决的,高手在哪里呀

hop_wh · 发表于 2004-11-2 10:34:51

受教,受教,这个问题很经典

xyp1964 · 发表于 2004-11-2 15:50:02

楼主：把图（dwg格式）贴出来也许能给你编个程序，要不？

lihb · 发表于 2004-11-3 22:08:42

这个问题我以用VBA解决了。但是还是不太理想。
有时会出错，我还需整理一下，调试。调试好了共享给大家吧。

xyp1964 · 发表于 2004-11-4 22:31:15

高手？！解决了超难题，刮目相看？！

dandee · 发表于 2004-11-5 11:34:53

你的问题可以解决的，也不算高难度。
告诉你一个思路:
画pline线的一点，然后用(cadr (grreadd t))随便的得到一点，构成pline线，用entlast构成这条pline的选择集aa. 然后画你所需要的点，最后，回到选择集aa,修改pline上的顶点.这样看似
继续画那条pline线

lihb · 发表于 2004-11-6 12:52:29

楼上这个的方法我也想到了,
但是我怎么也不能让那线跟着鼠标移动，达不到那种动态画线．
我在论谈也看到一些，但是还不很明白．
在此再向各位请教请教．

dandee · 发表于 2004-11-7 01:31:30

最简单的方法：做个循环，那条pline 跟着你鼠标位置不同，而反复删除，反复生成，这样就会出现，你的那条pline跟着mouse 移动的效果。

另外一个方法：也是做个循环，只不过反复用 entmod 修改pline,效果相同。

其实认真推敲一下acad "move"这个命令，答案你自己也知道的

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