明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 12499|回复: 15

封闭域面积标注程序

  [复制链接]
发表于 2004-7-27 22:30 | 显示全部楼层 |阅读模式
本帖最后由 作者 于 2004-8-15 11:49:08 编辑

建筑设计,特别是住宅设计,面积问题是大家最关心的,就象咱家的客厅如果当时能大上几平米,咱的朋友就都能来了! 下面提供一个封闭域面积标注程序供参考,特别是建筑师朋友。 --------------------------- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;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 (封闭域面积)") ------------------------- 请讨论和指教。 ------------------------- 使用中有问题请回复!

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2004-8-14 16:29 | 显示全部楼层
CAD中有面积标注。
发表于 2004-8-22 22:19 | 显示全部楼层
为太明白
发表于 2006-8-13 13:15 | 显示全部楼层
不能调标注字体大小?还有为什么标注的单位好像是平方公里?改成米行么?
发表于 2008-4-18 00:01 | 显示全部楼层
能增加一个功能,把封闭曲线的层名写出来吗?谢谢!
发表于 2008-7-31 12:51 | 显示全部楼层

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

发表于 2009-1-9 16:36 | 显示全部楼层

好东西,我怎么下不了

发表于 2009-6-10 14:55 | 显示全部楼层
为什么标注出来都是0?
发表于 2009-11-23 15:03 | 显示全部楼层

怎麼改變標注的大小啊?

還有能修改設置嗎?

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

发表于 2009-11-23 19:43 | 显示全部楼层

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

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

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 22:20 , Processed in 0.278405 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表