Autolisp：利用AuoCAD之Lisp编程案例之自动智能获取所选对象的面积并标注在指定位置
生活随笔
收集整理的这篇文章主要介绍了
Autolisp：利用AuoCAD之Lisp编程案例之自动智能获取所选对象的面积并标注在指定位置
小编觉得挺不错的,现在分享给大家,帮大家做个参考.
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编程案例之自动智能获取所选对象的面积并标注在指定位置的全部内容，希望文章能够帮你解决所遇到的问题。
- 上一篇： Matlab之DNN：基于Matlab利
- 下一篇： Autolisp：利用AuoCAD之Li