![]() |
如何更新块定义中遮掩框的显示顺序?
如何更新块定义中遮掩框的显示顺序?
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) "块名") 好好学习天天向上 |
| 所有的时间均为北京时间。 现在的时间是 06:41 AM. |