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

victory · 发表于 2004-1-15 17:16:00

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

efan2000 · 发表于 2004-1-16 12:48:00

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

copy


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

victory · 发表于 2004-1-16 14:07:00

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

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

发表回复

精选推荐

浏览过的版块