如何更新块定义中遮掩框的显示顺序?
www.dimcax.com
如何更新块定义中遮掩框的显示顺序?我在图中应用了带遮掩框(wipeout)的块,但有时遮掩框显示的顺序不对,如何更改块定义中wipeout的显示顺序?谢谢!!!
change your life style.
d
;;（yad-chgdraworder 图块空间 (list wipeout对象 ...) nil 1)
;;修改对象次序[space-空间 lst-对象列表 ent-目标对象或nil key-更改方式(1-前置 2-后置 3-对象之上 4-对象之下) ==>返回：nil]
(defun yad-chgdraworder(space lst ent key / extdic sretbl)
(if (= (type (car lst)) 'ename) (setq lst (mapcar 'vlax-ename->vla-object lst)))
(if (and ent (= (type ent) 'ename)) (setq ent (vlax-ename->vla-object ent)))
(setq key (yad-dxf '((1 . movetotop) (2 . movetobottom) (3 . moveabove) (4 . movebelow)) key))
(setq extdic (vla-getextensiondictionary space))
(if (vl-catch-all-error-p (setq sretbl (vl-catch-all-apply 'vla-item (list extdic "acad_sortents"))))
(setq sretbl (vla-addobject extdic "acad_sortents" "acdbsortentstable"))
)
(cond
((member key '(movetotop movetobottom))
(vlax-invoke sretbl key lst)
)
(ent
(vlax-invoke sretbl key lst ent)
)
(t)
)
nil
)
好好学习天天向上
谢谢！图块空间指的是什么？我还不太明白？
change your life style.
d
应该是模型空间或者图纸空间吧.
d
图块空间：(vla-item (vla-get-blocks lyy-acaddoc) "块名")
好好学习天天向上