[求助]：如何画渐开线？

hualongxu

感谢斑竹你提供的LISP程序
不过本人在使用时遇到这样的问题，请予以解答！
在输入“渐开线精细度”数值后
命令行提示：; 错误: no function definition: GETVER
请问这是何故？

joinly

这里有个很好的演示:http://www.xdcad.net/techcenter/article/htmlcache/1732.html

abecjw365

可以现在excel里算出坐标
再用cad画

hualongxu

谢谢17、18楼的朋友，不过如果想把渐开线画的较为精确的话，使用EXCEL的工作量很大，斑竹的LISP我使用后，出现的问题，不知道哪位高手可以赐教！这里小弟先谢过了！！

KEVIN_6603

的确，EXCEL的工作量很大，还是LISP应用比较简单，但小弟很小了解关于LISP之类的编程，很有兴趣阿，请高手赐教！

tongtong423

vba 和list的编写哪一个更强一些？

wbn670502

谢谢17楼的,看了你的演示,我一下就懂了,原来自己研究了半天也没有明白.

yuangang2005

这些程序是人好东东，但是对于那些不懂的人来说只有用那些笨方法了。

chenwenyong

非专业人员不要看关天渐开线的东西

sjs2003

我这用Lisp编了一个画渐开线的程序!!!!


(defun C:jkx ()
(setq pi1 (/ pi 180))
(setq po0 (getpoint " \n 请输入中心点:"))
(if (= po0 nil)
(setq po0 (list 0 0 0))
)
(SETQ d (GETREAL "\n 请输入分度圆直径:"))
(if (= d nil)
(setq d 100)
)
(setq step (getreal "\n 渐开线精细度(0<精细度<=10):"))
(if (= step nil)
(setq step 1)
)
(setq rd (/ d 2))
(setq os (getver "osmode"))
(setvar "osmode" 0)
(command "UCS" "OR" po0)
(command "CIRCLE" "0,0" rd)
(SETQ R (* rd (COS (* PI1 20)))) ;标准齿轮分度圆的压力角为20度
(SETQ ST 0)
(SETQ STR (* PI1 ST))
(SETQ X (* R (+ (COS STR) (* STR (SIN STR)))))
(SETQ Y (* R (- (SIN STR) (* STR (COS STR)))))
(SETQ XY (LIST X Y))
(COMMAND "PLINE" XY)
(SETQ ST (+ st step))
(WHILE (<= ST 80) ;齿轮上的渐开线压力角不会超过80度
(SETQ STR (* PI1 ST))
(SETQ X (* R (+ (COS STR) (* STR (SIN STR)))))
(SETQ Y (* R (- (SIN STR) (* STR (COS STR)))))
(SETQ XY (LIST X Y))
(COMMAND XY)
(SETQ ST (+ st step))
)
(command "")
(setvar "osmode" os)
(command "UCS" "P")
)
我试了一下,系统提示错误,
; 错误: no function definition: GETVER
请高手帮忙看看这个LISP

fanlirong

好，这样可以在CAD里画好渐开线，转到proe里画齿轮，可以吗

任帆

我看不懂那些程序呀?能不能用一些簡單的表示方法呀?

simon123

有些不太懂哦~~~~~~~~~~~~~~

xuzpvip

错误: no function definition: GETVER，
我也是这样？求助！！！

bluesky111

将(getver "osmode")改为(getvar "osmode")就OK了