cad渐开线画法lisp程序_cad渐开线怎么画

回答：

AutoCAD绘制展开线的话，用程序绘制比较简单，程序如下：(defunC:tes(/&dis1&k1&kw1ang1objpt1pt2tc1)

(vl-load-com);加载vlax

(PRinc"

请选择要绘制展开线的圆")

(if(setq&kw1(ssget'((0."CIRCLE"))))

(PRogn

(while(setq&k1(ssname&kw10))

(setq&kw1(ssdel&k1&kw1))

(setqobj(vlax-ename->vla-object&k1));变为vlax对象

(setq&dis1(vlax-curve-getDistAtParamobj(vlax-curve-getEndParamobj)));取得长度

(setqpt2(Vlax-SafeArray->List(Vlax-Variant-Value(vla-get-Centerobj))));取得圆心点

(setqtc1(vla-get-layerobj));取得圆的图层

(setq#r1(vla-get-Radiusobj));取得圆的半径

(setqpt1(polarpt2(*pi1.5)#r1));取得圆最低点

(setqpt2(polarpt10&dis1));展开线另一点

(entmake(list'(0."LINE")(cons8tc1)(cons10pt1)(cons11pt2)));绘制展开线

);while

)

(PRin1)

)

;;复制到记事本,以【.lsp】为后缀命名,打开CAD，Autolisp加载，命令【TES】

cad渐开线画法lisp程序_cad渐开线怎么画相关推荐

cad渐开线画法lisp程序_CAD渐开线画法
Sub JKX() Dim O As Variant ' 基圆圆心坐标 Dim R As Double ' 基圆半径 Dim T As Double ' 展开角度(正角度为逆时针,负角度为顺时针) D ...
cad渐开线画法lisp程序_CAD插件——绘制圆的渐开线
机械行业在使用CAD的时候,常常会需要绘制圆的渐开线.在网上找到一个画渐开线的LISP程序,不知道有没有人需要. 什么是圆的渐开线? 把一条没有弹性的细绳绕在一个定圆上,拉开绳子的一端并拉直,使绳子与 ...
cad渐开线画法lisp程序_CAD画齿轮的渐开线程序 (LSP)和渐开线齿轮关系
一. CAD 中齿轮画法有下面一段渐开线程序: ;;;begain suprgear.lsp ;************************************************* ; ...
五边形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 ...
一键快速设置图层lisp程序_CAD快速切换图层LISP代码 -
CAD快速切换图层LISP代码给楼主发一个图层更改的lisp程序,按对应数字键就可以切换到相应的图层.很方便. 0----0 1----OBJ 2----6t 3----SCETR ... 8--- ...
中望CAD调用lisp在哪_中望CAD+加载LISP程序速度提升高达8倍
对于即将推出的全新一代二维CAD平台软件中望CAD+,广州中望数字化设计软件有限责任公司中望CAD+研发总监何祎认为,"Lisp 是CAD 应用发展中使用最普遍的程序语言之一.数以百万计的设 ...

cad渐开线画法lisp程序_cad渐开线怎么画

cad渐开线画法lisp程序_cad渐开线怎么画相关推荐

最新文章

热门文章