也许我遗漏了什么,但我不认为区块是团队的一部分有什么问题?
例如,以下代码将更改块选择的图层,无论它们是否为组的一部分:
- (defun c:test ( / e i s )
- (if (setq s (ssget "_:L" '((0 . "INSERT"))))
- (repeat (setq i (sslength s))
- (setq e (entget (ssname s (setq i (1- i)))))
- (entmod (subst '(8 . "MyLayer") (assoc 8 e) e))
- )
- )
- (princ)
- )
|