花锦绣 发表于 2005-6-9 04:42:00

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

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


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


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


* * * * * * * * * * * * * * * * * * * 下附供程序插入的图块 * * * * * * * * * * * * * * * * * * * * * * * * * *


houlinbo 发表于 2005-7-13 11:29:00

<P>您的附件是什么意思？</P>

yxp 发表于 2005-7-27 13:10:00

这个也叫源码？怎么没有一点算法。
页: [1]
查看完整版本: 计算面积的小程序，请多指教。