本帖最后由 Gu_xl 于 2010-12-26 20:24 编辑
- (DEFUN C:TT(/ flag)
- (while (not flag)
- (SETQ EN (CAR (ENTSEL "\选择图块:")))
- (if en
- (if (= "INSERT" (cdr (assoc 0 (entget en))))
- (setq flag t)
- )
- )
- )
- (initget 7)
- (setq color (getint "\选择修改颜色号:"))
- (setq name (cdr (assoc 2 (entget en))))
- (vlax-for a (vla-Item (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object))) name)
- (if (= "AcDbHatch" (vla-get-OBJECTname a))
- (VLA-PUT-COLOR A color)
- )
- )
- (command "_.regen")
- )
|