【转帖】直接把面积写在图上的lisp,要的可要顶啊!
 

直接把面积写在图上的lisp,要的可要顶啊!
www.dimcax.com
直接把面积写在图上的lisp,要的可要顶啊!
直接把面积写在图上的lisp,要的可要顶啊!
;; write area value of a close polygon to drawing
(defun c:mj(/ 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)
)

这样很好,非常 感谢!

不错!支持!感谢上传.

这样的形式好，不用下载花钱

这样的形式好，不用下载花钱
大家都喜欢

怎么用呀
我想要但不知道怎么用！怎么去改
在事业的追赶里我不的不努力去学习

顶上去把 怎么用的啊 我是菜鸟 呵呵

经使用确认，程序必然有错。 问题1：只能选一个圆或一个矩形，对于负责的形状，不能进行对象多选； 问题2：试过画了一个图形，切分变小后，得出的面积居然不变。
还望楼主多多改进此程序。

招聘(广告)经使用确认，程序必然有错。 问题1：只能选一个圆或一个矩形，对于负责的形状，不能进行对象多选； 问题2：试过画了一个图形，切分变小后，得出的面积居然不变。
还望楼主多多改进此程序。
楼上的，切分变小后是否是几个单独的 串线呢？如果不是，那你选的还是原来的，故面积不变

非常 感谢

非常好的东西
希望搞机械的朋友能够建成一个群