求cad lisp程序免费下载编号输出闭合线面积的lisp编码

来源：蜘蛛抓取(WebSpider) 时间：2015-05-12 08:24 标签： cad填充边界不闭合
platekg autoCAD lisp通过点选获得面积并求质量，可选择材料密度
无法对多线段图形 CAD 195万源代码下载-
&文件名称: platekg& & [
& & & & &&]
&&所属分类:
&&开发工具: LISP
&&文件大小: 1 KB
&&上传时间:
&&下载次数: 0
&&提 供 者:
&详细说明： autoCAD lisp通过点选获得面积并求质量，可选择材料密度
无法对多线段图形求质量,需对多线段炸裂后再进行操作，尽量避免重线
图形必须闭合
支持删除内部孤岛面积
命令快捷键platekg-
AutoCAD lisp obtained through the tap area and seeking quality, you can choose the material density
unable to multi-line graphics for quality, the need for multi-line burst before doing so, try to avoid heavy line
graphics must be closed
supported the deletion of the internal island area
Command Shortcut platekg
文件列表(点击判断是否您需要的文件，如果是垃圾请在下面评价投诉):
&&platekg.lsp
&输入关键字，在本站195万海量源码库中尽情搜索：lisp cad 求面积 求一款可用于cad中计算面积的lisp程序,要求操作快捷，可显示选取区域，能计算孤岛面积。
lisp cad 求面积 求一款可用于cad中计算面积的lisp程序,要求操作快捷，可显示选取区域，能计算孤岛面积。
碰过很多程序，有些只能算固定封闭区域的面积，有些计算不了内部有孤岛的图形面积。有些在选择时没办法确定被选区域。
cad查询面积很方便啊，点工具——查询——面积，然后下面有提示的，根据提示一步一步的来，你所说的都可以计算得了。
相关知识等待您来回答
软件领域专家Lisp CAD 求助高手!怎么通过代码实现连续画直线?我想实现一个功能,举例,输入一组长度数字（10 20 30 40 20 23 52）其中每组有上限例如10个长度,输入长度后,输入直线角度,最好默认不输入时为零_百度作业帮
拍照搜题，秒出答案
Lisp CAD 求助高手!怎么通过代码实现连续画直线?我想实现一个功能,举例,输入一组长度数字（10 20 30 40 20 23 52）其中每组有上限例如10个长度,输入长度后,输入直线角度,最好默认不输入时为零
Lisp CAD 求助高手!怎么通过代码实现连续画直线?我想实现一个功能,举例,输入一组长度数字（10 20 30 40 20 23 52）其中每组有上限例如10个长度,输入长度后,输入直线角度,最好默认不输入时为零度,切每段直线的端点处加入4mm的圆圈,我的未完成代码：(defun tes0();输入一组线长)(defun tes1();循环控制
(setq p0(getpoint"\n选择起始点"))
(setq ang (getangle p0"\n选择直线方向或输入直线角度")))(defun tes2();pn线起始点控制
(setq p0(getpoint"\n选择起始点"))
(setq ang (getangle p0"\n选择直线方向或输入直线角度"))
(setq le (getdist"\n输入直线长度"))
)(defun tes3();pd线终止点控制)(defun c:ww ();划线并添加圆圈
(setvar "blipmode" 0)
(setq pn(tes2))
(setq pd(tes3))
(setq #os (getvar "osmode"));取得当前捕捉设置
(setq #k (getvar "clayer")) ;;取得当前图层
(setvar "clayer" "0");切换到图层0
(command "circle" pd 1.5)
(setvar "clayer" #k);恢复原来图层
(setvar "osmode" #os);恢复捕捉设置
(command "line" pn pd)
(command pause)
(defun c:ww (/ group);循环读入数据 2可调为你想要的数据个数(setq group '())(repeat 2(setq group (cons (getreal) group)))(setq group (reverse group))\x05\x05;根据数的个数循环处理每一个长度(setq number (length group))(repeat number(setq item (car group))(setq p1 (getpoint "选择起点"))(setq ang 0)(if (setq ang_test (getangle "选择角度"));默认ang为0 若有输入ang 则为ang值(setq ang ang_test) \x05\x05\x05\x05\x05)(setq p2 (polar p1 ang item) );使用极坐标通过起点以及角度长度获取终点坐标(command "line" p1 p2 "")(command "circle" p2 4)(setq group (cdr group))))不知道是不是你想要的

我要回帖

更多关于 cad填充边界不闭合 的文章

 

随机推荐