Autolisp:利用AuoCAD之Lisp编程案例之自动智能获取所选对象的面积并标注在指定位置-阿里云开发者社区

开发者社区> 一个处女座的程序猿> 正文

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

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

输出结果

image.png


实现代码

;; 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)

)


版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
+关注
一个处女座的程序猿
国内互联网圈知名博主、人工智能领域优秀创作者,全球最大中文IT社区博客专家、CSDN开发者联盟生态成员、中国开源社区专家、华为云社区专家、51CTO社区专家、Python社区专家等,曾受邀采访和评审十多次。仅在国内的CSDN平台,博客文章浏览量超过2500万,拥有超过57万的粉丝。
1701
文章
0
问答
文章排行榜
最热
最新
相关电子书
更多
文娱运维技术
立即下载
《SaaS模式云原生数据仓库应用场景实践》
立即下载
《看见新力量:二》电子书
立即下载