墙长统计

hphkjz · 发表于 2014-3-29 09:28:08

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

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

×

大哥能不能帮忙编一个统计墙长的lisp程序，选中所有墙之后电脑计算后在屏幕上显示出墙长总共有多长，这样就不用再一道墙一道墙的加了。

小妖妖 · 发表于 2014-3-29 13:01:54

将墙的中心线放在一个特定层上遍历层统计长度这是我的想法谢谢

hphkjz · 发表于 2014-3-29 15:24:06

小妖妖发表于 2014-3-29 13:01
将墙的中心线放在一个特定层上遍历层统计长度这是我的想法谢谢

你说的很对，一个工程图纸墙有好多好多，要是一道墙一道墙的画不如手算了。如果仁兄能用lisp把墙中线画出来到一个特定的图层上面，再统计长度也能解决问题。但是特别要注意T形墙和墙封头的问题。

st788796 · 发表于 2014-3-29 21:29:40

如果是天正实体统计就简单，弄成Line 就是自找麻烦

hphkjz · 发表于 2014-3-29 22:10:48

st788796 发表于 2014-3-29 21:29
如果是天正实体统计就简单，弄成Line 就是自找麻烦

大哥，一般是天正画的，但是有些的墙厚不一样，需要把它们分类单算。大哥，如果是pline会不会好弄呢？谢谢

st788796 · 发表于 2014-3-30 08:34:45

Pline 画的才不好统计，天正墙体都有信息的，墙厚、长度等，统计方便

hphkjz · 发表于 2014-3-30 10:46:42

st788796 发表于 2014-3-30 08:34
Pline 画的才不好统计，天正墙体都有信息的，墙厚、长度等，统计方便

嗯，我也都是从天正上面挪出来的墙图层，我见单个墙体信息都有，要是所有墙的总信息不知道从哪儿查看，天正小弟也用的不太熟，还望大哥给指点指点。谢谢

st788796 · 发表于 2014-3-30 12:47:46

hphkjz 发表于 2014-3-30 10:46
嗯，我也都是从天正上面挪出来的墙图层，我见单个墙体信息都有，要是所有墙的总信息不知道从哪儿查看，天 ...

总信息要写程序统计了

hphkjz · 发表于 2014-3-30 13:44:15

st788796 发表于 2014-3-30 12:47
总信息要写程序统计了

应该是的大哥，可小弟才能有限，大哥技术精湛，以前仰仗大哥给帮了不少的忙。这次还想劳烦大哥再给编一个这样的程序，大哥你看可好？

st788796 · 发表于 2014-3-30 14:20:39

hphkjz 发表于 2014-3-30 13:44
应该是的大哥，可小弟才能有限，大哥技术精湛，以前仰仗大哥给帮了不少的忙。这次还想劳烦大哥再给编一个 ...

你要怎样统计？

hphkjz · 发表于 2014-3-30 14:56:40

st788796 发表于 2014-3-30 14:20
你要怎样统计？

大哥，就是单把天正墙的图层挪出来，然后分类统计每种墙的长度，在屏幕上显示出来，就像第二个截图那样，大哥。

st788796 · 发表于 2014-3-30 15:02:57

hphkjz 发表于 2014-3-30 14:56
大哥，就是单把天正墙的图层挪出来，然后分类统计每种墙的长度，在屏幕上显示出来，就像第二个截图那样， ...

怎么个分类法？

hphkjz · 发表于 2014-3-30 15:21:09

st788796 发表于 2014-3-30 15:02
怎么个分类法？

就是一个图纸有两种或三种墙厚，把他们分开来统计，大哥

st788796 · 发表于 2014-3-30 23:57:17

本帖最后由 st788796 于 2014-3-30 23:59 编辑

hphkjz 发表于 2014-3-30 15:21
就是一个图纸有两种或三种墙厚，把他们分开来统计，大哥

天正一直在变化，下面程序供参考，可以扣除门窗洞开，但遇到转角窗时会短半个墙厚
分析这个天正数据要综合运用 DXF 组码、OBJECT对象，包括借助 XDRXAPI

(defun c:tt (/ ss el)
(defun _getwalllength (e / el _HasWindows len)
(defun _HasWindows (el)
(assoc 330 (cdr (member (assoc 330 el) el)))
)
(setq el (entget e)
len (apply 'distance (xdrx_entity_getstretchpoint e))
)
(if (_HasWindows el)
(- len
(apply '+
(mapcar '(lambda (a)
(cdr (assoc 40 (entget a)));_门窗洞开尺寸
)
(mapcar
'cdr
(vl-remove-if-not
'(lambda (x)
(and (= (car x) 330)
(/= (cdr (assoc 0 (entget (cdr x))))
"BLOCK_RECORD"
)
);_门窗
)
el
)
)
)
)
)
len
)
)
(if (setq ss (ssget '((0 . "TCH_WALL"))))
(progn
(setq el
(mapcar
'(lambda (x)
(list (vlax-get (vlax-ename->vla-object x) 'TotalWidth);_墙厚
x
)
)
(xdrx_pickset->ents ss)
)
el (XD::List:GroupByIndex el 0)
)
(princ (mapcar '(lambda (x)
(list (car x)
(apply '+
(mapcar '(lambda (a)
(_getwalllength a)
)
(cdr x)
)
)
)
)
el
)
)
)
)
(princ)
)

(defun c:tt (/ ss el) 
  (defun _getwalllength        (e / el _HasWindows len) 
    (defun _HasWindows (el) 
      (assoc 330 (cdr (member (assoc 330 el) el))) 
    ) 
    (setq el  (entget e) 
          len (apply 'distance (xdrx_entity_getstretchpoint e)) 
    ) 
    (if        (_HasWindows el) 
      (- len 
         (apply        '+ 
                (mapcar        '(lambda (a) 
                           (cdr (assoc 40 (entget a)));_门窗洞开尺寸 
                         ) 
                        (mapcar 
                          'cdr 
                          (vl-remove-if-not 
                            '(lambda (x) 
                               (and (= (car x) 330) 
                                    (/=        (cdr (assoc 0 (entget (cdr x)))) 
                                        "BLOCK_RECORD" 
                                    ) 
                               );_门窗 
                             ) 
                            el 
                          ) 
                        ) 
                ) 
         ) 
      ) 
      len 
    ) 
  ) 
  (if (setq ss (ssget '((0 . "TCH_WALL")))) 
    (progn 
      (setq el 
               (mapcar 
                 '(lambda (x) 
                    (list (vlax-get (vlax-ename->vla-object x) 'TotalWidth);_墙厚 
                          x 
                    ) 
                  ) 
                 (xdrx_pickset->ents ss) 
               ) 
            el (XD::List:GroupByIndex el 0) 
      ) 
      (princ (mapcar '(lambda (x) 
                        (list (car x) 
                              (apply '+ 
                                     (mapcar '(lambda (a) 
                                                (_getwalllength a) 
                                              ) 
                                             (cdr x) 
                                     ) 
                              ) 
                        ) 
                      ) 
                     el 
             ) 
      ) 
    ) 
  ) 
  (princ) 
)

hphkjz · 发表于 2014-3-31 06:15:24

st788796 发表于 2014-3-30 23:57
天正一直在变化，下面程序供参考，可以扣除门窗洞开，但遇到转角窗时会短半个墙厚
分析这个天正数据要综 ...

大哥，是不是lisp数据库还不全呢，我运行时出现no function definition: VLAX-ENAME->VLA-OBJECT 这个该怎么解决哇大哥，我用的是CAD2009

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

[编程申请] 墙长统计

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

相关帖子

点评

点评

点评

点评

点评

点评

点评