(XD::Block:Wipeout)给图块添加遮罩（显示顺序图块所有实体下面）

newer · 发表于 2016-6-15 11:06:37

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

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

×

本帖最后由 newer 于 2016-6-15 11:25 编辑

(defun XD::Block:Wipeout (blk mod offset tf / box class e len mat mode
name ss tf1 typ
)
(setq typ (type blk)
tf1 nil
)
(cond
((= typ 'STR)
(if (setq e (xdrx_block_getentities blk '((0 . "wipeout"))))
(if tf
(progn
(xdrx_entity_delete e)
(setq tf1 t)
)
)
(setq tf1 t)
)
(if tf1
(progn
(setq e (xdrx_block_getEntities t blk)
box (xdrx_entity_box e)
)
(cond
((= mod 1)
(setq box (xdrx_points_mincircle box))
(setq e (apply
'xdrx_circle_make
box
)
)
(setq len (xdrx_getpropertyvalue e "length"))
(setq box (xdrx_getsamplept e (/ len 1080.0)))
(xdrx_entity_delete e)
)
((= mod 2)
(setq mat (xdrx_matrix_identity 3))
(setq ss (xdrx_entity_transformedcopy e mat))
(mapcar
'(lambda (x)
(if (= (car (xdrx_object_classname x)) "POLYLINE")
(xdrx_polyline_convertFrom x)
)
)
(xdrx_pickset->ents ss)
)
(setq box (xdrx_geom_searchoutline ss))
(xdrx_entity_delete ss)
)
)
(if (> offset 0)
(setq box (xdrx_points_offset offset (xd::pnts:close box)))
)
(if (setq e (apply
'xdrx_wipeout_make
box
)
)
(progn
(xdrx_block_appendEntity blk e t)
(setq e (xdrx_block_getentities blk '((0 . "wipeout"))))
(xdrx_draworder->back (car e))
(xdrx_block_update blk)
(if (setq e (xdrx_block->Insert blk))
(apply
'xdrx_draworder->top
(xdrx_pickset->ents e)
)
)
t
)
)
)
)
)
((= typ 'ENAME)
(setq class (car (xdrx_object_classname blk)))
(cond
((= class "BLOCK")
(setq name (xdrx_getpropertyvalue blk "name"))
(XD::BLOCK:AppendWipeout name mod offset tf)
)
((= class "INSERT")
(setq name (car (xdrx_getpropertyvalue blk "blocktablerecord")))
(XD::BLOCK:Wipeout name mod offset tf)
)
)
)
)
)

(defun XD::Block:Wipeout (blk mod offset tf / box class e len mat mode 
                              name ss tf1 typ 
                         ) 
  (setq typ (type blk) 
        tf1 nil 
  ) 
  (cond 
    ((= typ 'STR) 
      (if (setq e (xdrx_block_getentities blk '((0 . "wipeout")))) 
        (if tf 
          (progn 
            (xdrx_entity_delete e) 
            (setq tf1 t) 
          ) 
        ) 
        (setq tf1 t) 
      ) 
      (if tf1 
        (progn 
          (setq e (xdrx_block_getEntities t blk) 
                box (xdrx_entity_box e) 
          ) 
          (cond 
            ((= mod 1) 
              (setq box (xdrx_points_mincircle box)) 
              (setq e (apply 
                        'xdrx_circle_make 
                        box 
                      ) 
              ) 
              (setq len (xdrx_getpropertyvalue e "length")) 
              (setq box (xdrx_getsamplept e (/ len 1080.0))) 
              (xdrx_entity_delete e) 
            ) 
            ((= mod 2) 
              (setq mat (xdrx_matrix_identity 3)) 
              (setq ss (xdrx_entity_transformedcopy e mat)) 
              (mapcar 
                '(lambda (x) 
                   (if (= (car (xdrx_object_classname x)) "POLYLINE") 
                     (xdrx_polyline_convertFrom x) 
                   ) 
                 ) 
                (xdrx_pickset->ents ss) 
              ) 
              (setq box (xdrx_geom_searchoutline ss)) 
              (xdrx_entity_delete ss) 
            ) 
          ) 
          (if (> offset 0) 
            (setq box (xdrx_points_offset offset (xd::pnts:close box))) 
          ) 
          (if (setq e (apply 
                        'xdrx_wipeout_make 
                        box 
                      ) 
              ) 
            (progn 
              (xdrx_block_appendEntity blk e t) 
              (setq e (xdrx_block_getentities blk '((0 . "wipeout")))) 
              (xdrx_draworder->back (car e)) 
              (xdrx_block_update blk) 
              (if (setq e (xdrx_block->Insert blk)) 
                (apply 
                  'xdrx_draworder->top 
                  (xdrx_pickset->ents e) 
                ) 
              ) 
              t 
            ) 
          ) 
        ) 
      ) 
    ) 
    ((= typ 'ENAME) 
      (setq class (car (xdrx_object_classname blk))) 
      (cond 
        ((= class "BLOCK") 
          (setq name (xdrx_getpropertyvalue blk "name")) 
          (XD::BLOCK:AppendWipeout name mod offset tf) 
        ) 
        ((= class "INSERT") 
          (setq name (car (xdrx_getpropertyvalue blk "blocktablerecord"))) 
          (XD::BLOCK:Wipeout name mod offset tf) 
        ) 
      ) 
    ) 
  ) 
)

newer · 发表于 2016-6-15 11:22:31

测试工具

(defun c:tt ()
(xdrx_begin)
(xdrx_initget 128 "0 1 2")
(initget 128 "0 1 2")
(if (and
(setq e (car (xdrx_entsel "\n拾取图块<退出>:" '((0 . "INSERT")))))
(setq op (getint "\nWIPEOUT方式[包围盒(0)/圆(1)/轮廓(2)]<退出>:"))
)
(progn
(xd::block:wipeout (car (xdrx_getpropertyvalue e "blocktablerecord")) op 0.0 t)
)
)
(xdrx_end)
(princ)
)

liuyj · 发表于 2016-6-15 13:19:23

和xdrx_Insert_appendWipeout的区别是？

newer · 发表于 2016-6-15 13:54:24

liuyj 发表于 2016-6-15 13:19
和xdrx_Insert_appendWipeout的区别是？

增强，多了最小包围圆做边界，也支持直接给块名（不是INSERT），因为有的时候块并没有明确的INSERT出现，比如匿名块，通过xdrx_insert_appendwipeout 就无能为力了。

l534380401 · 发表于 2017-6-2 14:35:50

看不懂，两个代码我应该用哪个？

saf85 · 发表于 2017-6-2 21:08:33

谢谢楼主分享

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

[图块] (XD::Block:Wipeout)给图块添加遮罩（显示顺序图块所有实体下面）

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

点评