封闭域面积标注程序

xyp1964

建筑设计，特别是住宅设计，面积问题是大家最关心的，就象咱家的客厅如果当时能大上几平米，咱的朋友就都能来了！ 下面提供一个封闭域面积标注程序供参考，特别是建筑师朋友。 －－－－－－－－－－－－－－－－－－－－－－－－－－－ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;fbymj.lsp 封闭域面积(标注)
;;;单位：平方米；画图单位1:1
;;;-- XYP@bsedi.com
;;;2004.07.27
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(prompt "\n\r 加载封闭域面积标注程序。")
(defun c:fbymj(/ pt pt1 en aa)
(cmdla0)
(setq pt (getpoint "\n选取封闭域内一点: "))
(while pt
(setq pt1 pt)
(mkla"封闭域辅助线"8)
(command "bpoly" pt "")
(setq en (entlast))
(if (/= en nil)
(progn
(command "area" "o" en)
(setq aa (getvar "area"))
(redraw en 4);1标准2空白3高亮4低亮 ;;;如果是总图或测量专业，画图单位为米时，下句中1000000.0应改为1.0 ;(alert (strcat "面积=" (rtos (/ aa 1000000.0) 2 2)));;;此句可以显示面积数（单位平方米）
)
)
;(entdel en);;;此句可以删除“封闭域辅助线”
(mkla"面积标注"4) ;;;如果是总图或测量专业，画图单位为米时，下句中1000000.0应改为1.0
(command"text""mc" pt1 "300" "0" (rtos (/ aa 1000000.0) 2 2))
(setq pt (getpoint "\n选取封闭域内一点: "))
)
;(prin1)
(cmdla1)
(pxyp"fbymj (封闭域面积)")
)
;;; 保存原有系统变量，设置程序运行时的系统变量
(Defun cmdla0 ()
(Setq cmdech (Getvar "Cmdecho")
oom (Getvar "Orthomode")
osm (Getvar "Osmode")
la (Getvar "Clayer")
)
(Setvar "Cmdecho" 0)
(Setvar "Regenmode" 0)
) ;;; 建图层: (mala "层名" 颜色号)
(Defun MKLA (a b)
(If (= (Tblsearch "layer" a) nil)
(Command "layer" "m" a "c" b a "")
(Command "layer" "t" a "s" a "c" b a "")
)
) ;;; 恢复原有系统变量
(Defun cmdla1 ();(/ cmdech LA oom osm)
(Setvar "Cmdecho" cmdech)
(Setvar "Clayer" LA)
(Setvar "Orthomode" oom)
(Setvar "Osmode" osm)
(setvar "regenmode" 1)
(Terpri)
(Princ)
) ;;;* 显示命令简写
(DEFUN PXYP (TXT1)
(SETQ TXT1 (STRCAT "\n\r 程序命令: " TXT1 " -- XYP@bsedi.com"))
(PRINC TXT1)
(Princ)
);defun (pxyp"fbymj (封闭域面积)") －－－－－－－－－－－－－－－－－－－－－－－－－ 请讨论和指教。 －－－－－－－－－－－－－－－－－－－－－－－－－ 使用中有问题请回复！

lbg

CAD中有面积标注。

chxhi

为太明白

bbsong

不能调标注字体大小？还有为什么标注的单位好像是平方公里？改成米行么？

flowerson

能增加一个功能，把封闭曲线的层名写出来吗？谢谢！

yansu

能否编写一个自动标注封闭矩形为长X宽的形式，单位为毫米的程序吗？谢谢了！

zili422

好东西，我怎么下不了

wangyl

为什么标注出来都是0？

Charrybao

怎麼改變標注的大小啊？

還有能修改設置嗎？

爲什麽我選中后沒有單位啊？

ljttjl

明经CAD社区 → 行业篇 → 测绘与GIS → 自动标注选择区域的封闭图形的面积和周长程序

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=72983&replyID=&skin=1