这可能有用。。。。
将TitleBlock1更改为您的真实姓名block,第二个也更改为Titleblock2,以及您计算机的用户名。
- (defun c:Test (/ selectionset increment selectionsetname)(vl-load-com)
- ;;; Tharwat 07. April. 2012 ;;;
- (if (eq (getenv "USERNAME") [color=red][b]"Tharwat"[/b][/color])
- (if (setq selectionset
- (ssget "_x"
- '((0 . "INSERT") (2 .[b][color=blue] "TitleBlock1"[/color][/b]))
- )
- )
- (repeat (setq increment (sslength selectionset))
- (setq selectionsetname
- (ssname selectionset
- (setq increment (1- increment))
- )
- )
- (vla-put-visible
- (vlax-ename->vla-object selectionsetname)
- :vlax-false
- )
- )
- )
- (if (setq selectionset
- (ssget "_x"
- '((0 . "INSERT") (2 . [color=blue][b]"TitleBlock2"[/b][/color]))
- )
- )
- (repeat (setq increment (sslength selectionset))
- (setq selectionsetname
- (ssname selectionset
- (setq increment (1- increment))
- )
- )
- (vla-put-visible
- (vlax-ename->vla-object selectionsetname)
- :vlax-true
- )
- )
- )
- )
- (princ)
- )
|