Autolisp:利用AuoCAD之Lisp编程案例之自动智能获取所选对象的面积并标注在指定位置

目录

输出结果

实现代码


输出结果

实现代码

;; write area value of a close polygon to drawing
(DEFUN C:EA(/ OLDOS PT STA QAREA)
;;(setq olderr *error*)(setq *error* myerr)(SETVAR "CMDECHO" 0)(SETQ OLDOS (GETVAR "OSMODE"))
;;(SETVAR "OSMODE" 0)(SETQ STA (CAR (ENTSEL)))(COMMAND "AREA" "E" STA)(SETQ QAREA (RTOS (GETVAR "AREA") 2 2))(SETQ PT (GETPOINT"\nPick the point you want to write area:"))(COMMAND "TEXT" PT "" "" QAREA)
;;  (SETVAR "OSMODE" OLDOS)(SETVAR "CMDECHO" 1)(setq *error* olderr)(PRINC)
)

Autolisp:利用AuoCAD之Lisp编程案例之自动智能获取所选对象的面积并标注在指定位置相关推荐

  1. Autolisp:利用AuoCAD之Lisp编程案例之自动智能绘制枫叶玫瑰

    Autolisp:利用AuoCAD之Lisp编程案例之自动智能绘制枫叶玫瑰 目录 输出结果 实现代码 输出结果 实现代码 ;风玫瑰程序: GXFMG.LSP 1989.1. (defun dbh(a) ...

  2. 【转载】:Autolisp:利用AuoCAD之Lisp编程案例之智能加工齿轮的演示程序-----一个处女座程序猿

    利用AuoCAD之Lisp编程案例之智能加工齿轮的演示程序 (defun dlg1();初始化对话一 (set_tile "_m" "5");模数列表第6项 ( ...

  3. Lisp:AutoLisp入门、操作编程实例详细攻略

    Lisp:AutoLisp入门.操作编程实例详细攻略 目录 AutoLisp入门 1.图文教程 AutoLisp操作 AutoLisp入门 AutoLISP是由Autodesk公司开发的一种LISP程 ...

  4. arcgis python编程案例-ArcGIS Python编程案例-电子资料链接

    ArcGIS Python编程案例(1)-Python语言基础 https://www.jianshu.com/p/dd90816d019b ArcGIS Python编程案例(2)-使用ArcPy编 ...

  5. ArcGIS Python编程案例-电子资料链接

    ArcGIS Python编程案例(1)-Python语言基础 https://www.jianshu.com/p/dd90816d019b ArcGIS Python编程案例(2)-使用ArcPy编 ...

  6. 特别行政区界线lisp_CAD 系统变量参数大全 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...

    本帖最后由 1291500406 于 2019-1-29 20:52 编辑 CAD 系统变量参数大全 一.数学运算功能函数 1.1(十  数值 数值-)返回:累计实数或整数数值 1.2(一  数值 数 ...

  7. Python:Python语言的简介(语言特点/pyc介绍/Python版本语言兼容问题(python2 VS Python3))、安装、学习路线(数据分析/机器学习/网页爬等编程案例分析)之详细攻略

    Python:Python语言的简介(语言特点/pyc介绍/Python版本语言兼容问题(python2 VS Python3)).安装.学习路线(数据分析/机器学习/网页爬等编程案例分析)之详细攻略 ...

  8. 数学编程:经典数学编程案例之斐波那契:斐波那契数列的简介、代码实现、exe程序应用(斐波纳契时钟设计)之详细攻略

    数学编程:经典数学编程案例之斐波那契:斐波那契数列的简介.代码实现.exe程序应用(斐波纳契时钟设计)之详细攻略 目录 斐波那契数列的简介 斐波那契数列代码实现 1.python代码实现 2.Java ...

  9. Python花式编程案例集锦(5)

    问题描述: 输入三个序列,例如:[0.9,0.5,0.7],[0.4,0.6,0.3],[0.5,0.2,0.4],输出三个序列中各取一个相乘后最大的值,以及组合方式,如最大值为0.9*0.6*0.5 ...

最新文章

  1. Error: cannot allocate vector of size XX Gb
  2. 部署eureka和config
  3. 时间序列研(part1)--随机过程
  4. 标志寄存器_访问标志寄存器,并与寄存器B |交换标志寄存器F的内容 8085微处理器...
  5. FreeEIM 在盛大的开幕仪式结束之后
  6. 如何使用Node.js和CloudFormation在AWS Lambda中构建和部署GraphQL服务器
  7. eBPF and IO Visor: The what, how, and what next!
  8. mysql hash分区 创建_如何建mysql hash数据库分区
  9. 如何重置 Docker 里的 gitlab root 用户密码
  10. paip.网站提示SESSION过期 登录过期 以及二次登录的问题
  11. java 8 64_java8离线安装包64位
  12. 小米上的lineageos
  13. kettle各组件说明
  14. win10开机自动拨号上网
  15. EMQX的Web管理后台-Dashboard
  16. 前端程序员《HTML》标签学习
  17. 博士申请 | 新加坡南洋理工大学尹旬元老师招收机器学习方向全奖博士/博后
  18. 密码的自动生成器:密码由大写字母/小写字母/数字组成,生成12位随机密码
  19. 适合所有手环的app_Keep 手环评测:一只手环就能指导运动?Keep 想做你手腕上的魔鬼教练...
  20. 理解线性变换和基(坐标)变换

热门文章

  1. 在Ubuntu中安装PHP,MySQL,Nginx和phpMyAdmin
  2. c语言打印一个整数的二进制形式
  3. 02-Unity深入浅出(二)
  4. js中(function(){}()),(function(){})(),$(function(){});之间的区别
  5. VirtualBox Nonexistent host networking interface 错误解决方案
  6. linux下普通用户更改密码原理(S权限)、SetUID
  7. 写了一个 SSO 单点登录的代码示例给胖友!
  8. 可用性高达99.999%!支付系统高可用架构设计实战
  9. 9个用于构建容错系统的开源工具
  10. 蚂蚁金服CTO鲁肃:支付宝成就了我,我做了很多“拧螺丝”的事儿