TO:"sailorcwx"兄和"xxsheng兄"程序OK,大恩不言谢啦!!!

sailorcwx · 发表于 2008-6-5 22:17:00

由xxsheng来拼合吧，程序太长了，没心思看

linhui12 · 发表于 2008-6-5 23:10:00

xxsheng兄,麻烦您接这最后一棒吧,将sailorcwx兄写的与您的拼合一下.谢谢了

xxsheng · 发表于 2008-6-7 14:53:00

<br/>;把这一句(mapcar '(lambda(x)(apply 'command (append '("._3dpoly") x '("")))) rcz)<br/>改成(mapcar 'drawpipers m r n rcz),,,,,,,,,,,如果想要原来画的线,可以直接添加在上面那一句的后面就可以!<br/>

linhui12 · 发表于 2008-6-7 21:58:00

本帖最后由作者于 2008-6-11 17:55:02 编辑

按照以上提示修改后还是不行啊,双线管部分还是画不出来...怎么办????

linhui12 · 发表于 2008-6-10 15:49:00

怎么有人看没人帮,请各位大虾出手帮帮...

linhui12 · 发表于 2008-6-10 23:39:00

临睡前顶起来吧,提高提高爆光率......,等人出手

artken · 发表于 2008-6-11 04:32:00

是啊

xxsheng · 发表于 2008-6-11 08:27:00

DW nil
               R nil
               N nil
           DstDW nil
           DstR nil
           DstN nil
               dh  (cons
				(car x) dh)
加上面那些语句做什么用?基本上来说添加(mapcar 'drawpipers m r n rcz)这句后两个程序已经联合了!
你竟然会知道"drawpipers"中要用到每根多义线的起点坐标"PTA"?真不知道你怎么知道的!
主要是函数drawpipers的问题:
首先缺少ACADSPC变量的定义,(添加上以后可以画出几条管来)
其次不能全部画出管,可能是r,n和线两点长度的大小不正确导致计算出错,,,
所以解铃还须系铃人,找sailorcwx把函数drawpipers修改一下就可以了.

sailorcwx · 发表于 2008-6-11 12:53:00

哦，漏掉了

有时间再弄，这几天很忙

linhui12 · 发表于 2008-6-12 07:26:00

等.....

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