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

筱东

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

XDSoft

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

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

筱东

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



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

seerwj

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

果然好东西

筱东

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

eachy

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

筱东

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

eachy

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

筱东

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

eachy

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

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

2. (while (<= j z)
   
3.     (setq i 1)
   
4.     (while (<= i 10)
   
5.       (command "rotate" e10 "" p0 pj)
   
6.       (setq yd (* r pj (/ pi 180) i))
   
7.       (setq pt (polar pt0 0 yd))
   
8.       (command "copy" e0 "" pt0 pt)
   
9.       (command "region" "l" "")
   
10.       (setq e1 (entlast))
    
11.       (command "subtract" e10 "" e1 "")
    
12.       (setq i (+ i 1))
    
13.     )
    
14.     (setq j (+ j 1))
    
15.   )

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

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

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

筱东

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

aaaa5200

谢谢斑竹！