收藏 分销(赏)

CAD连续面积标注lisp插件.docx

上传人:天**** 文档编号:2245440 上传时间:2024-05-23 格式:DOCX 页数:3 大小:19.62KB
下载 相关 举报
CAD连续面积标注lisp插件.docx_第1页
第1页 / 共3页
CAD连续面积标注lisp插件.docx_第2页
第2页 / 共3页
CAD连续面积标注lisp插件.docx_第3页
第3页 / 共3页
亲,该文档总共3页,全部预览完了,如果喜欢就下载吧!
资源描述

1、CAD连续面积标注lisp插件CAD连续面积标注lisp插件 编辑整理:尊敬的读者朋友们:这里是精品文档编辑中心,本文档内容是由我和我的同事精心编辑整理后发布的,发布之前我们对文中内容进行仔细校对,但是难免会有疏漏的地方,但是任然希望(CAD连续面积标注lisp插件)的内容能够给您的工作和学习带来便利。同时也真诚的希望收到您的建议和反馈,这将是我们进步的源泉,前进的动力。本文可编辑可修改,如果觉得对您有帮助请收藏以便随时查阅,最后祝您生活愉快 业绩进步,以下为CAD连续面积标注lisp插件的全部内容。;;本插件为Autolisp语言CAD插件,用于创建封闭多段线并标注面积,可连续标注.;获取选

2、点所在封闭区域的面积并标注(defun c:mjbz() (setvar cmdecho 0) (setq pt (getpoint ”n选取点:”) (setq zt (getreal ”n字体高度:”)) (while pt (setvar cecolor” ”1) (command ”bpoly” pt ”) (setq en (entlast)) (if (/= en nil) (progn(command ”area o” en)(setq aa (getvar ”area”)(redraw en 3)(alert (strcat 面积=” (rtos aa 2 3)))(command text ”c” pt zt 0 (strcat (rtos aa 2 3)”m2)) ) (setvar ”cecolor” ”bylayer) (setq pt (getpoint n选取点:)) ) (prin1) )(prompt ”*C:MJBZ*)(prin1);

展开阅读全文
部分上传会员的收益排行 01、路***(¥15400+),02、曲****(¥15300+),
03、wei****016(¥13200+),04、大***流(¥12600+),
05、Fis****915(¥4200+),06、h****i(¥4100+),
07、Q**(¥3400+),08、自******点(¥2400+),
09、h*****x(¥1400+),10、c****e(¥1100+),
11、be*****ha(¥800+),12、13********8(¥800+)。
相似文档                                   自信AI助手自信AI助手
百度文库年卡

猜你喜欢                                   自信AI导航自信AI导航
搜索标签

当前位置:首页 > 考试专区 > 中考

移动网页_全站_页脚广告1

关于我们      便捷服务       自信AI       AI导航        获赠5币

©2010-2024 宁波自信网络信息技术有限公司  版权所有

客服电话:4008-655-100  投诉/维权电话:4009-655-100

gongan.png浙公网安备33021202000488号   

icp.png浙ICP备2021020529号-1  |  浙B2-20240490  

关注我们 :gzh.png    weibo.png    LOFTER.png 

客服