明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: highflybird

[【高飞鸟】] 长度、面积和体积统计工具

    [复制链接]
发表于 2016-5-6 22:46 | 显示全部楼层
非常不错,大赞
发表于 2016-5-7 14:49 | 显示全部楼层
高飞鸟大师好!在日常的应用中发现,用多段线绘制,以表格形式展现的时候能有详细的数据,但是只有句柄和图元类型让我不好相对应原图元,有办法能更直观的对应吗?如所有的封闭空间都用多段线绘制时,最后表格中所有图元类型都显示多段线,虽然句柄不一样,但也要一个个查看。。
 楼主| 发表于 2016-5-7 18:53 | 显示全部楼层
林立 发表于 2016-5-7 14:49
高飞鸟大师好!在日常的应用中发现,用多段线绘制,以表格形式展现的时候能有详细的数据,但是只有句柄和图 ...

但实际上,每个人都可能有不同的要求。
以表格形式弄出来,如果要对应到每个图元,就必须知道它们之间如何区别的。
譬如像你说的这个例子,每一多段线,对应什么标志呢?我也没办法知道。
所以,最佳办法,就是多段线与其对应的标志(譬如说数字之类)相关联。
如果你觉得这个地方不好的话,可以利用我源码自己进行处理,把句柄的那个对应项目用你自己的标志替换即可。 或者你提出要求,发一个样例图,然后我稍加改写我的代码作为适合你的特例。
发表于 2016-5-8 00:04 | 显示全部楼层
谢谢付出,我等不知道如何表达谢意
发表于 2016-5-8 13:08 | 显示全部楼层
highflybird 发表于 2016-5-7 18:53
但实际上,每个人都可能有不同的要求。
以表格形式弄出来,如果要对应到每个图元,就必须知道它们之间如 ...

,先感谢大师的回复,大师真是好人。经过一番折腾,找到一方法,他的思路是先创建的一个表格,然后直接点封闭空间(也不知道封闭空间是面域还是多段线),封闭空间内自动生成了阿拉伯数字,数字又自动填充到了表格中,貌似一直点封闭空间的话可以都自动加入表格(要是其他的功能,如长度,体积,面积,都能这样那就完善了).
1.之前想过通过句柄来找图元,但无果,2.后想用不同方式绘图来对应量,也无果。
最终是想对应表格中的量和图元的关系,大师能给点指导意见吗?

本帖子中包含更多资源

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

x
发表于 2016-5-9 09:52 | 显示全部楼层
要是能分层统计就更好了
发表于 2016-5-17 16:50 | 显示全部楼层
支持大神发东西
发表于 2016-5-18 00:38 | 显示全部楼层
大神帮忙。 合并文字插件怎让她合并后字体变颜色
(defun c:wzlj (/ sort_text_by_column1 sslst textlst scale)
  ;;按行排列文字,nscale为字高的倍数,设为0.5,即文字竖向间距小于0.5倍字高,则按一行考虑
  (defun sort_text_by_column1
            (sstext  nscale  /       n       rtnlst
             y       rtnlst1 rtnlst2 space1  space2
             aa      bb      cc      dd
            )
    (setq n -1
    rtnlst nil
    )
    (repeat (sslength sstext)
      (setq rtnlst (cons (ssname sstext (setq n (1+ n))) rtnlst))
    )
    (setq rtnlst
     (vl-sort
       rtnlst
       '(lambda (a b)
    (setq a  (vlax-ename->vla-object a)
          b  (vlax-ename->vla-object b)
    )
    (vla-GetBoundingBox a 'aa 'bb)
    (vla-GetBoundingBox b 'cc 'dd)
    (if
      (< (abs (- (vlax-safearray-get-element aa 1)
           (vlax-safearray-get-element cc 1)
        )
         )
         (abs
           (* nscale
        (- (vlax-safearray-get-element bb 1)
           (vlax-safearray-get-element aa 1)
        )
           )
         )
      )
       (< (vlax-safearray-get-element aa 0)
          (vlax-safearray-get-element cc 0)
       )
       (> (vlax-safearray-get-element aa 1)
          (vlax-safearray-get-element cc 1)
       )
    )
        )
     )
    )
    (setq y (cadr (zgx-get-dxf 10 (car rtnlst) 1)))
    (setq rtnlst1 nil
    rtnlst2 nil
    )
    (mapcar
      '(lambda (x)
   (vla-GetBoundingBox (vlax-ename->vla-object x) 'aa 'bb)
   (if
     (< (abs (- (cadr (zgx-get-dxf 10 x 1)) y))
        (* nscale
     (abs (- (vlax-safearray-get-element bb 1)
       (vlax-safearray-get-element aa 1)
          )
     )
        )
     )
      (progn
        (setq rtnlst1 (append rtnlst1 (list x)))
      )
      (progn
        (setq rtnlst2 (append rtnlst2 (list rtnlst1)))
        (setq y (cadr (zgx-get-dxf 10 x 1)))
        (setq rtnlst1 nil
        rtnlst1 (append rtnlst1 (list x))
        )
      )
   )
       )
      rtnlst
    )
    (setq rtnlst2 (append rtnlst2 (list rtnlst1)))
  )
  ;;----------------------------------------------
  (defun zgx-chg-dxf (en code newdata / endata)
    (setq endata (entget en))
    (if  (assoc code endata)
      (setq
  endata (subst (cons code newdata) (assoc code endata) endata)
      )
      (setq
  endata (append endata (list (cons code newdata)))
      )
    )
    (entmod endata)
  )
  (defun zgx-get-dxf (code entname kk)
    (if  (= kk 2)
      (assoc code (entget entname))
      (cdr (assoc code (entget entname)))
    )
  )
  ;;----------------------------------------------
  (prompt "\n选择需要合并的文字[更改间距系数]:")
  (setq sslst (ssget '((0 . "text,swr_text"))))

  (while (not sslst)
    (setq scale (getreal "\n输入间距系数[默认0.5]:"))
    (if  (not scale)
      (setq scale 0.5)
    )
    (prompt "\n选择需要合并的文字[更改间距系数]:")
    (setq sslst (ssget '((0 . "text,swr_text,tch_text"))))
  )

  (if (not scale)
    (setq scale 0.5)
  )
  (setq  sslst  (sort_text_by_column1 sslst scale)
  textlst  (mapcar  '(lambda (c)
         (apply 'strcat c)
       )
      (mapcar  '(lambda (x)
           (mapcar '(lambda (a)
                (zgx-get-dxf 1 a 1)
              )
             x
           )
         )
        sslst
      )
    )
  )
  (vla-startundomark
    (vla-get-ActiveDocument (vlax-get-acad-object))
  )
  ;;改变每行第一个文字值
  (mapcar '(lambda (a b)
       (zgx-chg-dxf (car a) 1 b)
     )
    sslst
    textlst
  )
  (setq  sslst (apply 'append
         (mapcar 'cdr
           sslst
         )
        )
  )
  (foreach n sslst
    (entdel n)
  )
  (vla-endundomark
    (vla-get-ActiveDocument (vlax-get-acad-object))
  )
(princ "\n文字合并结束!")
  (princ)
)
发表于 2016-5-18 08:30 | 显示全部楼层
感谢 highflybird 大师分享程序!!!!!
发表于 2016-6-9 00:04 | 显示全部楼层
大师很厉害,膜拜中!!!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-28 19:34 , Processed in 0.266094 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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