修复问题图块，比例极小图块到正常单位比例图块

XDSoft · 发表于 2013-9-30 23:08:31

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

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

×

问题提出：

在工作中，有时候遇到一些图块，我们用程序处理时候会发生错误，原因主要是制作图块时候的实体坐标非常大，或者非常小，还有插入比例非常小，比如做个很大的块，然后用0.0001的比例插入，这时候ACAD图形数据库对它的操作会发生错误，怎么解决这类问题呢？

解决思路：

1、比例调整：

我们动态的在图中对这里块进行调整，把他们的插入比例设置成单位比例（X,Y,Z其中一个为1.0），对于插入比例很小的图块，我们设置比例为单位比例后，图块会变大，那么就需要我们在块定义中，把块容器内的实体缩小相应的倍数。

2、插入点调整

如果制作图块的时候，插入点坐标值很大，比如大于1e7次方以上，那么很多时候会出现错误，那么我们动态的在图中把这类块的插入点移动到0,0,0，插入点变了，图中的引用INSERT实体位置肯定要跟着变化，那么就需要我们把所有的INSERT实体的插入点按照相反的位移移动回来。

经过上面两步调整，图块就变成插入比例为单位比例，插入点在坐标原点的块了，这样的块是非常“健康”的。

完整代码如下：

;|
对比例小于1的INSERT调整到X,Y,Z比例最小为1
|;
(defun c:XDTB_BlockAdjust ( / blk blkent blkname box cen e ents mat0 mat1 mat2 mat4 position position1 scl scl-l v x)
(if (and
(setq e (car (xdrx_entsel "\n拾取图块<退出>:" '((0 . "INSERT")))))
(setq scl-l (xdrx_getpropertyvalue e "scalefactors")
scl (apply
'min
scl-l
)
)
(< scl 1.0)
)
(progn
(setq box (XD::Entity:BoxAtEcs e e)
box (XD::Geom:Box->9PT box)
position (nth 4 box)
blk (xdrx_getpropertyvalue e "BlockTableRecord")
blkname (car blk)
blkent (cadr blk)
scl-l (mapcar
'(lambda (x)
(* x (/ 1 scl))
)
scl-l
)
mat0 (xdrx_matrix_identity 3)
mat1 (xdrx_matrix_setscale mat0 scl '(0 0 0))
ents (xdrx_getpropertyvalue blkent "Entities")
box (xdrx_entity_box ents)
box (XD::Geom:Box->9PT box)
cen (nth 4 box)
v (mapcar
'-
'(0 0 0)
cen
)
mat2 (xdrx_matrix_settranslation mat0 v)
)
(princ "lxd")
(xdrx_entity_transform ents (xdrx_matrix_product mat1 mat2))
(xdrx_setpropertyvalue blkent "Origin" '(0 0 0))
(xdrx_block_update e)
(setq position1 (xdrx_getpropertyvalue e "Position")
v (mapcar
'-
position
position1
)
mat4 (xdrx_matrix_settranslation mat0 v)
)
(setq ents (xdrx_getpropertyvalue blkent "BlockReferenceEntities"))
(mapcar
'(lambda (x)
(xdrx_entity_transform x mat4)
(xdrx_setpropertyvalue x "scalefactors" scl-l)
)
ents
)
(prompt "\n图块调整比例成功.")
)
(progn
(if scl
(prompt "\n拾取的图块比例不小于1，不需要调整.")
)
)
)
(princ)
)

;| 
对比例小于1的INSERT调整到X,Y,Z比例最小为1 
|; 
(defun c:XDTB_BlockAdjust ( / blk blkent blkname box cen e ents mat0 mat1 mat2 mat4 position position1 scl scl-l v x) 
  (if (and 
        (setq e (car (xdrx_entsel "\n拾取图块<退出>:" '((0 . "INSERT"))))) 
        (setq scl-l (xdrx_getpropertyvalue e "scalefactors") 
              scl (apply 
                    'min 
                    scl-l 
                  ) 
        ) 
        (< scl 1.0) 
      ) 
    (progn 
      (setq box (XD::Entity:BoxAtEcs e e) 
            box (XD::Geom:Box->9PT box) 
            position (nth 4 box) 
            blk (xdrx_getpropertyvalue e "BlockTableRecord") 
            blkname (car blk) 
            blkent (cadr blk) 
            scl-l (mapcar 
                    '(lambda (x) 
                       (* x (/ 1 scl)) 
                     ) 
                    scl-l 
                  ) 
            mat0 (xdrx_matrix_identity 3) 
            mat1 (xdrx_matrix_setscale mat0 scl '(0 0 0)) 
            ents (xdrx_getpropertyvalue blkent "Entities") 
            box (xdrx_entity_box ents) 
            box (XD::Geom:Box->9PT box) 
            cen (nth 4 box) 
            v (mapcar 
                '- 
                '(0 0 0) 
                cen 
              ) 
            mat2 (xdrx_matrix_settranslation mat0 v) 
      ) 
      (princ "lxd") 
      (xdrx_entity_transform ents (xdrx_matrix_product mat1 mat2)) 
      (xdrx_setpropertyvalue blkent "Origin" '(0 0 0)) 
      (xdrx_block_update e) 
      (setq position1 (xdrx_getpropertyvalue e "Position") 
            v (mapcar 
                '- 
                position 
                position1 
              ) 
            mat4 (xdrx_matrix_settranslation mat0 v) 
      ) 
      (setq ents (xdrx_getpropertyvalue blkent "BlockReferenceEntities")) 
      (mapcar 
        '(lambda (x) 
           (xdrx_entity_transform x mat4) 
           (xdrx_setpropertyvalue x "scalefactors" scl-l) 
         ) 
        ents 
      ) 
      (prompt "\n图块调整比例成功.") 
    ) 
    (progn 
      (if scl 
        (prompt "\n拾取的图块比例不小于1，不需要调整.") 
      ) 
    ) 
  ) 
  (princ) 
)

Kuang.er · 发表于 2013-10-1 01:13:10

嘿嘿哈哈哈哈哈哈哈哈

liuyj · 发表于 2013-10-7 17:37:45

这个非常有用

q3_2006 · 发表于 2013-10-7 17:51:06

这个很有用，统一图块比例

lt77887788 · 发表于 2013-11-3 18:17:11

感谢分享，期望自己早日升级

purple01 · 发表于 2013-11-6 05:00:46

这个很不错

dbx5511 · 发表于 2013-12-14 21:20:38

看看，学习学习。

lengliqun · 发表于 2014-7-26 16:36:03

看看，学习学习。
- 本文出自晓东CAD家园-论坛，原文地址：http://bbs.xdcad.net/thread-670850-1-1.html

51539989@qq.com · 发表于 2014-12-6 21:16:30

这是个好东西

curtian · 发表于 2015-4-16 22:45:11

感谢分享

wypkungfu · 发表于 2015-4-26 10:33:29

新手入论坛前来学习

xingwan2013 · 发表于 2015-5-5 11:02:32

这个非常有用

crab333 · 发表于 2015-8-4 18:46:53

看看学习学习，看看学习学习

天若有情007 · 发表于 2016-3-30 11:43:15

不错，学习学习

开水瓶游泳 · 发表于 2017-3-17 11:03:16

修复问题图块，比例极小图块到正常单位比例图块

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

[图块] 修复问题图块，比例极小图块到正常单位比例图块

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

相关帖子