eastwood 发表于 2006-5-23 15:13:08

请教怎么用autocad 画渐开线!

请教怎么用autocad画渐开线!
请教怎么用autocad画渐开线!
跪谢!

sallyshi 发表于 2006-5-23 16:02:27

Re: 请教怎么用autocad 画渐开线!

用Autolisp或者用VBA用程式来画。。可以上网搜一下程式。。

eastwood 发表于 2006-5-23 18:03:33

Re: 请教怎么用autocad 画渐开线!


(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")
)
有人用autolisp写的,不知道怎么用,能给点提示吗?

skudy 发表于 2006-5-23 18:08:59

Re: 请教怎么用autocad 画渐开线!

又學了一招﹕)

meyer510 发表于 2006-5-23 19:24:42

Re: 请教怎么用autocad 画渐开线!

我已经将使用方法做成录象，你下载后即可观看。
不过该程序好象有问题，最后提示“; 错误: no function definition: GETVER”，我不会修改，你再找找还有没别的了。

xnngae 发表于 2006-5-25 14:19:26

Re: 请教怎么用autocad 画渐开线!

用PCCAD插件调入不是更简单吗？

txm123456789 发表于 2006-5-25 15:04:08

Re: 请教怎么用autocad 画渐开线!

三楼的程式有点小问题，应是这样的
(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 (getvar "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 "PLINE" XY)
(SETQ ST (+ st step))
)
(command "")
(setvar "osmode" os)
(command "UCS" "P")
)

meyer510 发表于 2006-5-25 20:11:44

Re: 请教怎么用autocad 画渐开线!

楼上的程序也不对，运行后

命令: jkx

请输入中心点:
请输入分度圆直径:100

渐开线精细度(0<精细度<=10):5
UCS
当前 UCS 名称: *世界*
输入选项
[新建(N)/移动(M)/正交(G)/上一个(P)/恢复(R)/保存(S)/删除(D)/应用(A)/?/世界(W)]
<世界>: OR
指定新原点 <0,0,0>:
命令: CIRCLE 指定圆的圆心或 [三点(3P)/两点(2P)/相切、相切、半径(T)]: 0,0
指定圆的半径或 [直径(D)]: 50.00000000000000
命令: PLINE
指定起点:
当前线宽为 0.0000
指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]: PLINE
需要二维角点或选项关键字。
; 错误: 函数被取消

xue12300 发表于 2006-5-25 21:19:06

Re: 请教怎么用autocad 画渐开线!

我还没用过，不知道你们说的是不时能行。有时间我一定要试试。

HAWK1325 发表于 2015-4-1 17:11:56

擦，只是点了一下~~就扣了我10点威望，总的扣了我20威望~~~心疼~~
页: [1] 2
查看完整版本: 请教怎么用autocad 画渐开线!