求助，关于图块的。

dalin1985 · 发表于 2012-12-16 17:12:03

怎么更改图块insert里面东西的显示顺序？比如块里所有的直线显示在其他图层上。

Gu_xl · 发表于 2012-12-16 22:01:26

本帖最后由 Gu_xl 于 2012-12-17 08:19 编辑

修改块内物体显示顺序示例代码：

(defun c:tt (/ el st dict blkdef r)
(if (and
(setq el (nentsel "\n 选择图块:"))
(= 'ename (type (last (last el))))
)
(if (setq st
(cond
(
(if
(not
(VL-CATCH-ALL-ERROR-P
(setq st
(VL-CATCH-ALL-APPLY
'vla-item
(list
(setq dict
(vla-GetExtensionDictionary
(setq blkdef
(vla-item
(vla-get-blocks
(vla-get-ActiveDocument
(vlax-get-acad-object)
)
)
(cdr (assoc 2 (entget (last (last el)))))
)
)
)
)
"ACAD_SORTENTS"
)
)
)
)
)
st
)
)
(
if
(not
(VL-CATCH-ALL-ERROR-P
(setq st
(VL-CATCH-ALL-APPLY
'vla-AddObject
(list dict "ACAD_SORTENTS" "AcDbSortentsTable")
)
)
)
)
st
)
)
)
(progn
(vlax-for obj blkdef
(if (= "AcDbLine" (vla-get-ObjectName obj))
(setq r (cons obj r))
)
)
(vla-MoveTotop ;_ 移到最上面
st
(vlax-make-variant
(vlax-safearray-fill
(vlax-make-safearray
vlax-vbObject
(cons 0 (1- (length r)))
)
r
)
)
)
)
)
)
(princ)
)

(defun c:tt (/ el st dict blkdef r) 
  (if (and 
 (setq el (nentsel "\n 选择图块:")) 
 (= 'ename (type (last (last el)))) 
      ) 
    (if (setq st 
        (cond 
   ( 
    (if 
      (not 
        (VL-CATCH-ALL-ERROR-P 
   (setq st 
          (VL-CATCH-ALL-APPLY 
     'vla-item 
     (list 
       (setq dict 
       (vla-GetExtensionDictionary 
         (setq blkdef 
         (vla-item 
           (vla-get-blocks 
             (vla-get-ActiveDocument 
        (vlax-get-acad-object) 
             ) 
           ) 
           (cdr (assoc 2 (entget (last (last el))))) 
         ) 
         ) 
       ) 
       ) 
       "ACAD_SORTENTS" 
     ) 
          ) 
   ) 
        ) 
      ) 
       st 
    ) 
   ) 
   ( 
    if 
    (not 
      (VL-CATCH-ALL-ERROR-P 
        (setq st 
        (VL-CATCH-ALL-APPLY 
          'vla-AddObject 
          (list dict "ACAD_SORTENTS" "AcDbSortentsTable") 
        ) 
        ) 
      ) 
    ) 
    st 
   ) 
        ) 
 ) 
      (progn 
 (vlax-for obj blkdef 
  (if (= "AcDbLine" (vla-get-ObjectName obj)) 
    (setq r (cons obj r)) 
  ) 
       ) 
 (vla-MoveTotop ;_ 移到最上面 
   st 
   (vlax-make-variant 
     (vlax-safearray-fill 
       (vlax-make-safearray 
  vlax-vbObject 
  (cons 0 (1- (length r))) 
       ) 
       r 
     ) 
   ) 
 ) 
      ) 
    ) 
  ) 
  (princ) 
)

dalin1985 · 发表于 2012-12-18 21:12:56

本帖最后由 dalin1985 于 2012-12-18 21:42 编辑

Gu_xl 发表于 2012-12-16 22:01
修改块内物体显示顺序示例代码：

感谢G版的帮助。但程序有错，现上传一张测试图，希望版主给予帮助，只是想在不破坏图块的同时能显示里面的十字，还要盖住下面的多段线。

Gu_xl · 发表于 2012-12-18 22:50:29

dalin1985 发表于 2012-12-18 21:12
感谢G版的帮助。但程序有错，现上传一张测试图，希望版主给予帮助，只是想在不破坏图块的同时能显示里面 ...

06以上版本使用！

longer1000 · 发表于 2012-12-19 09:36:23

G版太厉害了，偶像

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

求助，关于图块的。

本帖被以下淘专辑推荐:

本帖子中包含更多资源