[LISP程序]：画3D直齿圆柱齿轮

筱东 · 发表于 2008-12-12 21:23:57

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

一个画3D直齿圆柱齿轮的LISP程序。我试用了，虽然没有错误，但运行速度慢，不知如何解决？请高手赐教，谢谢！！！

XDSoft · 发表于 2008-12-15 21:37:42

最初由筱东发布
[B]一个画3D直齿圆柱齿轮的LISP程序。我试用了，虽然没有错误，但运行速度慢，不知如何解决？请高手赐教，谢谢！！！ [/B]

运行速度怎么个慢法泥,不能忍受的慢吗? 现在的机器运行这样的程序应该毫秒计了. 具体说说看.

筱东 · 发表于 2008-12-16 19:21:47

抱歉！昨天你让我去跟贴的时候，我一下找不到自己的帖子，以为你把我的删除了。今天我是搜索到的，我到现在还不知道我的帖子在什么位置，等下找找看。再次说声：抱歉！
慢的程度实在是不能忍受的：刚开始还可以，然后越来越慢，CPU的占用率是100%。如果把齿数输入较小的数字，还能执行的比较顺畅……
我觉得我的机子配置还好吧：Celeron(R) CPU 1.7GHz
1.69 GHz,384 MB 的内存

哦，你把我的帖子转到另一栏了，难怪找不到呢！！

seerwj · 发表于 2008-12-17 12:40:44

Sub Ch6_AddButton()
Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)

' 建立一个新工具栏
Dim newToolbar As AcadToolbar
Set newToolbar = currMenuGroup.Toolbars.Add("TestToolbar")

' 在新工具栏上增加一个按钮
Dim newButton As AcadToolbarItem
Dim openMacro As String

' 赋值这个宏的VB表达式为"ESC ESC _open "
openMacro = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(32)
Set newButton = newToolbar.AddToolbarButton _
("", "NewButton", "Open a file.", openMacro)
End Sub

qjqsy · 发表于 2008-12-17 13:34:42

果然好东西

筱东 · 发表于 2008-12-18 00:29:16

VB稍熟一点，工具栏按钮我创建了，后面该怎样操作啊？原谅初学LISP，谢谢！

eachy · 发表于 2008-12-20 14:28:19

看不懂画的是什么，那些输入参数对应图形的哪部分？

筱东 · 发表于 2008-12-20 23:00:47

不好意思，现在才有时间回复楼上的斑竹，附图说明参数。
你输入的齿数是6，如果你输入50的话，运行速度会越来越慢，正如我前面所说的。有没有办法让它快一点……

eachy · 发表于 2008-12-20 23:57:03

你还是对各个参数给个例子吧

筱东 · 发表于 2008-12-21 00:14:40

例如：模数=16，齿数=100，齿轮宽度=50，齿轮轴径=20，轮辐厚度=25，轮毂端面半径=15
轮缘端面半径=28

eachy · 发表于 2008-12-21 07:00:50

最初由筱东发布
[B]例如：模数=16，齿数=100，齿轮宽度=50，齿轮轴径=20，轮辐厚度=25，轮毂端面半径=15
轮缘端面半径=28 [/B]

100个齿CAD就 Over 了，你的程序用了太多次的面域运算，提速的关键是减少运算次数。

(while (<= j z)
(setq i 1)
(while (<= i 10)
(command "rotate" e10 "" p0 pj)
(setq yd (* r pj (/ pi 180) i))
(setq pt (polar pt0 0 yd))
(command "copy" e0 "" pt0 pt)
(command "region" "l" "")
(setq e1 (entlast))
(command "subtract" e10 "" e1 "")
(setq i (+ i 1))
)
(setq j (+ j 1))
)

上面这段程序，圆旋转-〉求差积，齿数越多、模数越多则这个差积运算次数越多，结果就是运行越来越慢。

改进方法：
圆不动，那个“锯条”绕圆心复制旋转，最后用圆（面域）和那些“锯条执行一次差积运算。

筱东 · 发表于 2008-12-21 11:48:25

谢谢斑竹！还得赶紧学习啊，等有了改进后的程序再贴上来。你们回复的速度是我见到的最快的，愿xdcad越办越好。

aaaa5200 · 发表于 2008-12-23 10:38:37

谢谢斑竹！

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

[LISP程序]：画3D直齿圆柱齿轮

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [LISP程序]：画3D直齿圆柱齿轮

给版主的话

初学LISP