cad渐开线画法lisp程序_CAD插件—

机械行业在使用CAD的时候，常常会需要绘制圆的渐开线。在网上找到一个画渐开线的LISP程序，不知道有没有人需要。

什么是圆的渐开线？

把一条没有弹性的细绳绕在一个定圆上，拉开绳子的一端并拉直，使绳子与圆周始终相切。绳子端点的轨迹是一条曲线。这条曲线叫做圆的渐开线。这个定圆叫做渐开线的基圆。

圆的渐开线广泛应用于齿轮的啮合，齿轮的受力总是沿着与基圆相切的方向。标准齿轮分度圆的压力角为20度，齿轮上的渐开线压力角不会超过80度。在下面程序中，为了直观，渐开线的压力角设置为360度。

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

(if (= step nil)

(setq step 1)

)

(setq rd (/ d 2))

(setq os (getvar "osmode"))

(setvar "osmode" 0)

(command "UCS" "O" 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 (

(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")

)

使用方法如下：

将上面的代码复制到记事本中，另存为*.lsp文件，然后到CAD里输入AP加载保存的LSP文件，加载成功后输入JKX命令后根据提示确定圆心点、输入半径和精度，就可以绘制出渐开线了。

绘制结果如下图：

感觉渐开线的起点画得有点问题，不知道能不能用。

cad渐开线画法lisp程序_CAD插件——绘制圆的渐开线相关推荐

cad渐开线画法lisp程序_CAD画齿轮的渐开线程序 (LSP)和渐开线齿轮关系
一. CAD 中齿轮画法有下面一段渐开线程序: ;;;begain suprgear.lsp ;************************************************* ; ...
cad渐开线画法lisp程序_cad渐开线怎么画
回答: AutoCAD绘制展开线的话,用程序绘制比较简单,程序如下:(defunC:tes(/&dis1&k1&kw1ang1objpt1pt2tc1) (vl-load-co ...
cad渐开线画法lisp程序_CAD渐开线画法
Sub JKX() Dim O As Variant ' 基圆圆心坐标 Dim R As Double ' 基圆半径 Dim T As Double ' 展开角度(正角度为逆时针,负角度为顺时针) D ...
中望CAD调用lisp在哪_中望CAD+加载LISP程序速度提升高达8倍
对于即将推出的全新一代二维CAD平台软件中望CAD+,广州中望数字化设计软件有限责任公司中望CAD+研发总监何祎认为,"Lisp 是CAD 应用发展中使用最普遍的程序语言之一.数以百万计的设 ...
cad批量等高线lisp,利用AUTOLISP自动绘制等高线的尝试
利用A U T O L ISP自动绘制等高线的尝试吕坚明 (金华市测绘院,浙江金华 321000) 摘要:本文简述了在A U T O CAD中自动绘制等高线的方法,并给出了简易的数据格式和相应A ...
五边形lisp程序_CAD LISP 程序
CAD LISP 程序 1. 计算所有线段总长度 ( 加载后只需框选所有线段便可得出这些线段的总长度 ) (defun c:LL () (setvar "cmdecho" 1) ( ...
中望CAD调用lisp在哪_中望CAD加载LISP程序
CAD的出现,给我们的绘图工作带来了很大的便利,而随着工作的不断细化,广大设计师对CAD的要求也在不断的增强,有些工作中需要的功能,在CAD软件中并没有提供,在这样的背景下,直接导致了LISP程序的产 ...
中望CAD调用lisp在哪_中望CAD加载LISP程序（图文教程）
CAD的出现,给我们的绘图工作带来了很大的便利,而随着工作的不断细化,广大设计师对CAD的要求也在不断的增强,有些工作中需要的功能,在CAD软件中并没有提供,在这样的背景下,直接导致了LISP程序的产 ...
一键快速设置图层lisp程序_CAD快速切换图层LISP代码
CAD 快速切换图层 LISP 代码给楼主发一个图层更改的 lisp 程序,按对应数字键就可以切换到相应的图层.很方便. 0 ---- 0 1 ---- OBJ 2 ---- 6t 3 ---- S ...

cad渐开线画法lisp程序_CAD插件——绘制圆的渐开线

cad渐开线画法lisp程序_CAD插件——绘制圆的渐开线相关推荐

最新文章

热门文章