请问如何修改块里的属性？

victory

我将块里的属性的TextGenerationFlag的值设置为acTextFlagBackward，如何恢复为原来的值，初始值为0。在VBA的帮助里只提供了两个参数acTextFlagBackward和acTextFlagUpsideDown。

efan2000

设置之后，确实不能再更改回去，只能通过其它方法，比如在Lisp中修改。

2. 
   
3. Sub test()
   
4.     Dim textobj As AcadText
   
5.     Set textobj = ThisDrawing.ModelSpace(0)
   
6.     ThisDrawing.SendCommand "(setq e (entget (handent " & """" & textobj.Handle & """" & ")))" & vbCr
   
7.     ThisDrawing.SendCommand "(setq e (subst (cons 71 0) (assoc 71 e) e))" & vbCr
   
8.     ThisDrawing.SendCommand "(entmod e)" & vbCr
   
9.     ThisDrawing.SendCommand "(setq e nil)" & vbCr
   
10. End Sub
    

<br /> Sub test()<br />     Dim textobj As AcadText<br />     Set textobj = ThisDrawing.ModelSpace(0)<br />     ThisDrawing.SendCommand "(setq e (entget (handent " & """" & textobj.Handle & """" & ")))" & vbCr<br />     ThisDrawing.SendCommand "(setq e (subst (cons 71 0) (assoc 71 e) e))" & vbCr<br />     ThisDrawing.SendCommand "(entmod e)" & vbCr<br />     ThisDrawing.SendCommand "(setq e nil)" & vbCr<br /> End Sub<br />

victory

谢谢！
这个问题我已经解决了。
由于用VB只是做的控件（访问数据库方便），载体是用VC做的对话框，所以我把这段改在VC下，命令行里也不会有信息显示了，而且速度也快了很多。