[已解决]关于天正材料统计表中的管件统计的修正

xskfq · 发表于 2013-10-7 11:13:48

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

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

×

天正材料表中管件命名一直不准，只是以为管径大小依次排序，比如三通DN50X50X40和三通50X40X50，天正一律命名为三通DN40X50X50，现在提取管线中的管径属性，以管径对每个线段进行分层，不知道是否可以对天正管件统计进行修正，望高手指点！

newer · 发表于 2013-10-7 12:04:21

这种文字天正也是用的自已定义实体？

st788796 · 发表于 2013-10-7 12:10:35

这个倒是不难，就是起点终点间判断

eachy · 发表于 2013-10-7 14:18:45

看来不能用这个自定义实体, DXF 中有起点没终点，vlax-dump-object 查询有长度没角度，只能导出为线去做了
先贴一个算法供参考, 把实体分配到点上后就可以判断是几通，用图层作管径

(defun c:tt (/ ss el pts sp ep index)
(if (setq ss (ssget '((0 . "DN*"))));_特定图层
(progn
(setq el (xdrx_pickset->ents ss);_实体列表
pts (xdrx_curve_getinters ss);_所有交点，即起点终点表，去重复
)
(foreach p pts;_遍历点表
(foreach e el;_遍历曲线
(setq sp (xdrx_curve_getstartpoint e)
ep (xdrx_curve_getendpoint e)
)
(if (or (setq index (assoc sp ppl))
(setq index (assoc ep ppl))
)
(setq
ppl (subst (reverse (cons e (reverse index))) index ppl)
)
(setq ppl (cons (list p e) ppl));_将曲线分配到每个点上 ((p1 e11 e12 ...) (p2 e21 e22 ...) ...)
)
)
)
)
)
(princ)
)

eachy · 发表于 2013-10-7 15:38:32

更正一下，两个点可以用 xdrx_entity_getstretchpoint 获得，这个函数前面也在天正实体上用过

eachy · 发表于 2013-10-7 16:46:22

先贴一段，后面处理是专业要求了

(defun c:tt (/ ss e pts ptl)
(if (setq ss (ssget '((0 . "TCH_PIPE"))))
(progn
(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
(setq pts (mapcar '(lambda (x) (mapcar 'fix x))
(xdrx_entity_getstretchpoint e)
)
)
(mapcar (function (lambda (x / index)
(if (setq index (assoc x ptl))
(setq ptl
(subst (reverse (cons e (reverse index))) index ptl)
)
(setq ptl (cons (list x e) ptl))
)
)
)
pts
)
)
(mapcar '(lambda (x / el p str)
(setq el (cdr x)
p (car x)
)
(setq str (apply 'strcat
(mapcar '(lambda (x / l st)
(setq l (entget x)
st (strcat
(strcase
(cdr (assoc 301 l))
)
(rtos (cdr (assoc 140 l))
2
0
)
)
)
st
)
el
)
)
)
(xdrx_text_make p str 1000 0.)
)
ptl
)
)
)
;;(princ ptl)
(princ)
)

(defun c:tt (/ ss e pts ptl) 
  (if (setq ss (ssget '((0 . "TCH_PIPE")))) 
    (progn 
      (xdrx_setsstodb ss 0) 
      (while (setq e (xdrx_getentdata 0)) 
    (setq pts (mapcar '(lambda (x) (mapcar 'fix x)) 
              (xdrx_entity_getstretchpoint e) 
          ) 
    )    
    (mapcar    (function (lambda (x / index) 
                (if    (setq index (assoc x ptl)) 
                  (setq ptl 
                     (subst (reverse (cons e (reverse index))) index ptl) 
                  ) 
                  (setq ptl (cons (list x e) ptl)) 
                ) 
              ) 
        ) 
        pts 
    ) 
      ) 
      (mapcar '(lambda (x / el p str) 
         (setq el (cdr x) 
               p  (car x) 
         ) 
         (setq str (apply 'strcat 
                  (mapcar '(lambda (x / l st) 
                         (setq l   (entget x) 
                           st (strcat 
                             (strcase 
                               (cdr (assoc 301 l)) 
                             ) 
                             (rtos (cdr (assoc 140 l)) 
                                   2 
                                   0 
                             ) 
                               ) 
                         ) 
                         st 
                       ) 
                      el 
                  ) 
               ) 
         ) 
         (xdrx_text_make p str 1000 0.) 
           ) 
          ptl 
      ) 
    ) 
  ) 
  ;;(princ ptl) 
  (princ) 
)

xskfq · 发表于 2013-10-7 19:57:23

本帖最后由 xskfq 于 2013-10-7 20:33 编辑

专业说明：三通四通都是横平竖直的。

三通命名规则就是：三通—水平1*水平2*垂直，水平1管径值大于水平2的管径数值
图片中的三通按此规则，就是：三通DN50X50X40和三通50X40X50

四通命名规则就是：四通—水平1*水平2*垂直1*垂直2 水平1管径数值大于所有管径数值，垂直1大于垂直2

弯头命名规则就是：弯头—水平*垂直

ptl 后面不知道怎么写了，求帮助

xskfq · 发表于 2013-10-7 20:30:40

本帖最后由 xskfq 于 2013-10-7 20:46 编辑

RUTU如图：

st788796 · 发表于 2013-10-7 20:47:52

ptl 里面的子表就是相连的管线吧，先去除一个线的，然后，三四个线的一次排序完成水平大小垂直大小

eachy · 发表于 2013-10-7 23:40:19

http://bbs.xdcad.net/thread-670947-1-1.html

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

[求助] [已解决]关于天正材料统计表中的管件统计的修正

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

相关帖子