明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 897|回复: 7

[讨论] 属性块包围盒

[复制链接]
发表于 2024-8-20 09:42:54 | 显示全部楼层 |阅读模式
万一哪一天用得上,自己好找一点,故放在这里
  1. (defun t1t1t1 (e / A B EB EN L NAME OBJ)
  2.   (setq en (entget e))
  3.   (setq name (cdr (assoc 2 en)))
  4.   (setq eb (TBLOBJNAME "Block" name))
  5.   (while (setq eb (entnext eb))
  6.     ;;如果不是*TEXT,ATTDEF ,求包围盒
  7.     (setq name (cdr (assoc 0 (entget eb))))
  8.     (if        (not (wcmatch name "*TEXT,ATTDEF"))
  9.       (progn
  10.         (setq obj (vlax-ename->vla-object eb))
  11.         (vla-GetBoundingBox obj 'a 'b)
  12.         (setq a (safearray-value a))
  13.         (setq b (safearray-value b))
  14.         (setq L (cons a L))
  15.         (setq L (cons b L))
  16.       )
  17.     )
  18.   )
  19.   ;;如果L存在,求包围盒
  20.   (if L
  21.     (list
  22.       (apply 'mapcar (cons 'min L))
  23.       (apply 'mapcar (cons 'max L))
  24.     )
  25.   )
  26. )


  27. ;;选择块
  28. (defun C:t1 (/ A B E L OBJ)
  29.   (setq e (car (entsel)))
  30.   ;;此块的外围盒
  31.   (setq obj (vlax-ename->vla-object e))
  32.   (vla-GetBoundingBox obj 'a 'b)
  33.   (setq a (safearray-value a))
  34.   (setq b (safearray-value b))
  35.   (princ (list a b))

  36.   ;;块最小包围盒
  37.   (princ (t1t1t1 e))
  38.   (princ)
  39. )

本帖子中包含更多资源

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

x

评分

参与人数 2明经币 +2 收起 理由
USER2128 + 1 赞一个!
zhoupeng220 + 1 赞一个!

查看全部评分

"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2024-8-20 10:55:12 | 显示全部楼层
黄总,这个问题能解决不?
http://bbs.mjtd.com/thread-190830-1-1.html
发表于 2024-8-20 11:10:46 | 显示全部楼层
看不懂要干什么?属性的坐标没有变换
发表于 2024-8-20 12:39:39 | 显示全部楼层
大佬,动态块可以包围吗?
 楼主| 发表于 2024-8-21 07:11:03 | 显示全部楼层
小菜123 发表于 2024-8-20 11:10
看不懂要干什么?属性的坐标没有变换

检查属性文字是否太长,超出图框范围
发表于 2024-8-22 09:54:49 | 显示全部楼层
jun470 发表于 2024-8-20 12:39
大佬,动态块可以包围吗?

我也想问这个问题
发表于 2024-8-22 20:08:48 | 显示全部楼层
我mark一下。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-25 10:12 , Processed in 0.176074 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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