[编辑]
我有点惊讶你竟然提出了这个问题。
无论如何。。。
[/编辑]
这适用于任何有效的VLA-OBJECT:
- (defun DUMP (arg)
- (if (= 'VLA-OBJECT (type arg))
- (progn
- (textpage)
- (vlax-dump-object arg T))
- (prompt "\n** Invalid argument ** "))
- (princ))
然而,以下是我的工具箱中特定于层的转储例程的一些示例:
- (defun c:DUMPLAY (/ layerName)
- (if (and (setq layerName (getstring "\nEnter layer name: "))
- (tblsearch "layer" layerName))
- (DUMPLAY layerName)
- (prompt "\n** Layer does not exist ** "))
- (princ))
- (defun DUMPLAY (layerName)
- (if (tblsearch "layer" layerName)
- (progn
- (textpage)
- (vlax-dump-object
- (vla-item (vla-get-layers
- (vla-get-activedocument (vlax-get-acad-object)))
- layerName)
- T))
- (prompt "\n** Layer does not exist ** "))
- (princ))
|