[求助]：一个头大的问题希望高手能解决?

xxming · 发表于 2006-2-11 10:21:39

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

能不能在一个在红线范围内计算出该建筑物的总面积:要求根据建筑上标砼\混\砖\等结构及层数,自动分类统计出总建筑面积(注:与红线相交算建筑物全部面积

xyp1964 · 发表于 2006-2-11 12:17:27

理论上可行，关键要看所绘的原图是否规范，比如层、颜色、文字位置等。
发个简单的dwg图看看。

lidejun_55 · 发表于 2006-2-11 14:19:29

看看做的可以用吗？
命令：tj

xxming · 发表于 2006-2-11 16:37:54

xyp1964 斑竹:建筑物和文字(结构和层数)在固定的图层,提议最好程序能在每个建筑物直接用红线画出并标注面积用于方便检查。谢了

xyp1964 · 发表于 2006-2-11 22:40:02

没有DWG文件无法知道绘图的原则或习惯！

xiao_longxin · 发表于 2006-2-13 13:03:40

据我所知还没有比较完善的方法，主要是比较复杂的图形封闭区域不好搜索，出错率较大

xxming · 发表于 2006-2-14 15:20:14

xyp1964 斑竹：图形文字(层数、结构)及建筑物均在dxt图层中，建筑物用直线或多义线画的。

ouyangsong · 发表于 2006-3-5 20:21:01

你那个层次注记可有属性。在那个里面叠加。我用的是测绘软件，里面都有属性。

xyp1964 · 发表于 2006-3-14 18:43:44

最初由 xxming 发布[/B]

坐标程序

[FONT=courier new];;;坐标
(defun C:zb ()
(CMDLASC0)
(if(null mode)(setq mode "1"))
(setq mode (ukword 1 "1 2" "\n形式 : 1-水平/2-倾斜" mode)
h (* SC 300)
)
(if (= mode "2")
(setq NO2 (ureal 1 "" "\n倾斜角度" NO2))
)
(setvar "osmode" 39)
(while (setq p1 (getpoint "\n确定坐标标注点(交点/圆心/端点)<退出> : "))
(setvar "osmode" 0)
(if (setq p2 (getpoint p1 "\n放置位置<退出> : "))
(progn
(setq dx (- (car p2) (car p1))
a (strcat "X=" (rtos (cadr p1) 2 3))
b (strcat "Y=" (rtos (car p1) 2 3))
c (max (strlen a) (strlen b))
)
(if (>= dx 0)
(progn
(setq p3 (list (+ (car p2) (* c h 0.7)) (cadr p2))
rp1 (list (+ (car p2) (/ (* c h 0.7) 2))
(+ (cadr p2) (+ (/ h 2) (/ bl 1)))
)
rp2 (list (+ (car p2) (/ (* c h 0.7) 2))
(- (cadr p2) (+ (/ h 2) (/ bl 1)))
)
)
)
(progn
(setq p3 (list (- (car p2) (* c h 0.7)) (cadr p2))
rp1 (list (- (car p2) (/ (* c h 0.7) 2))
(+ (cadr p2) (+ (/ h 2) (/ bl 1)))
)
rp2 (list (- (car p2) (/ (* c h 0.7) 2))
(- (cadr p2) (+ (/ h 2) (/ bl 1)))
)
)
)
)
(mkla "_总图-坐标" 3)
(command "line" p1 p2 "")
(setq ss1 (ssadd))
(SETVAR "PLINEWID" 0)
(command "line" p2 p3 "")
(setq ss1 (ssadd (entlast) ss1))
(command "text" "j" "m" rp1 h "0" a)
(setq ss1 (ssadd (entlast) ss1))
(command "text" "j" "m" rp2 h "0" b)
(setq ss1 (ssadd (entlast) ss1))
(if (= mode "2")
(command "rotate" ss1 "" p2 NO2)
)
(setq pt2 nil)
(setvar "osmode" 39)
)
(setvar "osmode" 39)
)
)
(CMDLA1)
)
(PXYP "ZB (坐标)")[/FONT]

[FONT=courier new];;;坐标 
(defun C:zb () 
  (CMDLASC0) 
  (if(null mode)(setq mode "1")) 
  (setq        mode (ukword 1 "1 2" "\n形式 : 1-水平/2-倾斜" mode) 
        h   (* SC 300) 
  ) 
  (if (= mode "2") 
    (setq NO2 (ureal 1 "" "\n倾斜角度" NO2)) 
  ) 
  (setvar "osmode" 39) 
  (while (setq p1 (getpoint "\n确定坐标标注点(交点/圆心/端点)<退出> : ")) 
    (setvar "osmode" 0) 
    (if        (setq p2 (getpoint p1 "\n放置位置<退出> : ")) 
      (progn 
        (setq dx (- (car p2) (car p1)) 
              a         (strcat "X=" (rtos (cadr p1) 2 3)) 
              b         (strcat "Y=" (rtos (car p1) 2 3)) 
              c         (max (strlen a) (strlen b)) 
        ) 
        (if (>= dx 0) 
          (progn 
            (setq p3  (list (+ (car p2) (* c h 0.7)) (cadr p2)) 
                  rp1 (list (+ (car p2) (/ (* c h 0.7) 2)) 
                            (+ (cadr p2) (+ (/ h 2) (/ bl 1))) 
                      ) 
                  rp2 (list (+ (car p2) (/ (* c h 0.7) 2)) 
                            (- (cadr p2) (+ (/ h 2) (/ bl 1))) 
                      ) 
            ) 
          ) 
          (progn 
            (setq p3  (list (- (car p2) (* c h 0.7)) (cadr p2)) 
                  rp1 (list (- (car p2) (/ (* c h 0.7) 2)) 
                            (+ (cadr p2) (+ (/ h 2) (/ bl 1))) 
                      ) 
                  rp2 (list (- (car p2) (/ (* c h 0.7) 2)) 
                            (- (cadr p2) (+ (/ h 2) (/ bl 1))) 
                      ) 
            ) 
          ) 
        ) 
        (mkla "_总图-坐标" 3) 
        (command "line" p1 p2 "") 
        (setq ss1 (ssadd)) 
        (SETVAR "PLINEWID" 0) 
        (command "line" p2 p3 "") 
        (setq ss1 (ssadd (entlast) ss1)) 
        (command "text" "j" "m" rp1 h "0" a) 
        (setq ss1 (ssadd (entlast) ss1)) 
        (command "text" "j" "m" rp2 h "0" b) 
        (setq ss1 (ssadd (entlast) ss1)) 
        (if (= mode "2") 
          (command "rotate" ss1 "" p2 NO2) 
        ) 
        (setq pt2 nil) 
        (setvar "osmode" 39) 
      ) 
      (setvar "osmode" 39) 
    ) 
  ) 
  (CMDLA1) 
) 
(PXYP "ZB  (坐标)")[/FONT]

hisum · 发表于 2006-3-14 19:41:48

这取决于地形图绘制时是否给建筑物输入属性，如果所有房屋都在一个层，而且没有其它属性的话，那你只有一个一个手动计算面积了，呵呵。程序也不是万能的，数据必须合要求才行。这样的功能当然是非常值得期待的，如果在地形图提供的时候提出要求，把房屋按属性楼层分开，应该会好一点。

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：一个头大的问题希望高手能解决?

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子