win10cad2014下下列代码有问题，有人能帮忙改一下么

yangchao2005090

2. (defun C:tt (/        aDoc mSpace Blocks Block Obj Count Name        i Text ColHat
   
3.               Color LType)
   
4.   (setq        aDoc   (vla-get-ActiveDocument (vlax-get-acad-object))
   
5.         mSpace (vla-get-ModelSpace aDoc)
   
6.         Blocks (vla-get-Blocks aDoc)
   
7.         Color  256 ;ByLayer-256  ByBlock-0
   
8.         ColHat 8
   
9.         LType  "ByLayer"
   
10.         Count  (vla-get-Count Blocks)
    
11.         i      0
    
12.   )
    
13.   (vlax-for Block Blocks
    
14.     (setq i    (1+ i)
    
15.           Text (strcat "正在处理<块定义>：" (itoa i) "/" (itoa Count))
    
16.     )
    
17.     (grtext -1 Text)
    
18.     (vlax-for Obj Block
    
19.       (setq Name (vla-get-ObjectName Obj))
    
20.       (setq tb obj)
    
21.       (cond
    
22.         ((= Name "AcDbBlockReference")) ;不改变
    
23.         ((wcmatch Name "TDb*")) ;天正对象不改变
    
24.         ((= Name "AcDbHatch") (vla-put-Color Obj ColHat))
    
25.         (T (vla-put-Color Obj Color))
    
26.       ) ;cond
    
27.       (vla-put-Linetype Obj LType)
    
28.     ) ;vlax-for
    
29.   )
    
30.   (setq        Count (vla-get-Count mSpace)
    
31.         i     0
    
32.   )
    
33.   (vlax-for Obj        mSpace
    
34.     (setq i    (1+ i)
    
35.           Text (strcat "正在处理<图元>：" (itoa i) "/" (itoa Count))
    
36.     )
    
37.     (grtext -1 Text)
    
38.     (setq Name (vla-get-ObjectName Obj))
    
39.     (cond
    
40.       ((= Name "TDbDimension2")) ;不改变
    
41.       ((= Name "AcDbBlockReference")) ;不改变
    
42.       ((wcmatch Name "TDb*")) ;天正对象不改变
    
43.       ((= Name "AcDbHatch") (vla-put-Color Obj ColHat))
    
44.       (T (vla-put-Color Obj Color))
    
45.     ) ;cond
    
46.     (vla-put-Linetype Obj LType)
    
47.   ) ;vlax-for
    
48.   (grtext)
    
49.   (princ "\n修改全部图元和块定义内对象颜色和线型随层（填充可单独指定）完成")
    
50.   (princ)
    
51. )

(defun C:tt (/        aDoc mSpace Blocks Block Obj Count Name        i Text ColHat<br />               Color LType)<br />   (setq        aDoc   (vla-get-ActiveDocument (vlax-get-acad-object))<br />         mSpace (vla-get-ModelSpace aDoc)<br />         Blocks (vla-get-Blocks aDoc)<br />         Color  256 ;ByLayer-256  ByBlock-0<br />         ColHat 8<br />         LType  "ByLayer"<br />         Count  (vla-get-Count Blocks)<br />         i      0<br />   )<br />   (vlax-for Block Blocks<br />     (setq i    (1+ i)<br />           Text (strcat "正在处理<块定义>：" (itoa i) "/" (itoa Count))<br />     )<br />     (grtext -1 Text)<br />     (vlax-for Obj Block<br />       (setq Name (vla-get-ObjectName Obj))<br />       (setq tb obj)<br />       (cond<br />         ((= Name "AcDbBlockReference")) ;不改变<br />         ((wcmatch Name "TDb*")) ;天正对象不改变<br />         ((= Name "AcDbHatch") (vla-put-Color Obj ColHat))<br />         (T (vla-put-Color Obj Color))<br />       ) ;cond<br />       (vla-put-Linetype Obj LType)<br />     ) ;vlax-for<br />   )<br />   (setq        Count (vla-get-Count mSpace)<br />         i     0<br />   )<br />   (vlax-for Obj        mSpace<br />     (setq i    (1+ i)<br />           Text (strcat "正在处理<图元>：" (itoa i) "/" (itoa Count))<br />     )<br />     (grtext -1 Text)<br />     (setq Name (vla-get-ObjectName Obj))<br />     (cond<br />       ((= Name "TDbDimension2")) ;不改变<br />       ((= Name "AcDbBlockReference")) ;不改变<br />       ((wcmatch Name "TDb*")) ;天正对象不改变<br />       ((= Name "AcDbHatch") (vla-put-Color Obj ColHat))<br />       (T (vla-put-Color Obj Color))<br />     ) ;cond<br />     (vla-put-Linetype Obj LType)<br />   ) ;vlax-for<br />   (grtext)<br />   (princ "\n修改全部图元和块定义内对象颜色和线型随层（填充可单独指定）完成")<br />   (princ)<br /> )

yangchao2005090

http://bbs.mjtd.com/forum.php?mo ... F%E9%2B%D1%D5%C9%AB

烟盒迷唇

天正的，不知道要改什么