计算面积的小程序，请多指教。

花锦绣

计算面积的小程序，请多指教。 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ;计算一闭合线的面积（平方米、亩）
(defun c:jsmj(/ d)
;设定比例，控制插入块缩放比例。有些系统设置不同，可能有出入
(setq d (* 0.001 (getvar "useri1")))
(setq en1 (car(entsel "请选择：")))
(command "_area" "O" en1)
(setq mj_pfm (strcat "S=" (rtos (getvar "area") 2 2) "(平方米)"))
(setq mj_m (strcat "=" (rtos (/ (getvar "area") 666.6667) 2 2) "(亩)"))
(setq pt (getpoint "请选择插入点:"))
(command "layer" "s" "0" "");为了通用，设为0层
(command "_insert" "F:\\jsmj.dwg" pt d d 0 mj_pfm mj_m);块的路径
(princ);不回显
)
* * * * * * * * * * * * * * * * * * * 下附供程序插入的图块 * * * * * * * * * * * * * * * * * * * * * * * * * *

houlinbo

您的附件是什么意思？

yxp

这个也叫源码？怎么没有一点算法。