|
发表于 2004-12-30 10:17:38
|
显示全部楼层
谢谢巴什沃斯
这给了我一个好的开始和一些好的想法。我现在非常接近我想要的方式。
但是...我还有几个其他问题。这是我的一段代码:
--------------------------------------------------------------------------------------
Set newBlock=ThisDrawing.Blocks.Add(pt1,"txtBlock")
For i=0 To iSelected-1
如果lbDrawings.Selected(i)然后
strDrawing=("select[绘图id]
from绘图
其中[绘图id] = '" & lbDrawings.Column(0, i) & "'")
Set rs=db.OpenRecordset(strDrawing, dbOpenDynaset)
Set fld绘图=rs.Fields("绘图id")
rs.MoveFirst
不rs.EOF
设置txtObj=newBlock.AddText(fld绘图, pt1,0.09)pt1(1)=pt1(1)-0.1696
rs.MoveNext
Wend
结束如果
下一步
ThisDrawing.PaperSpace.InsertBlockpt,"txtBlock",1,1,1,0
------------------------------------------------------------------------------------
好的问题是:
1.如何删除我创建的块或至少清除它。
我已经尝试了
newBlock.delete和
ThisDrawing.Blocks("txtBlock")。删除
我得到了对象所需的错误
2.Can我在将文本添加到块之前或之后格式化文本
我需要设置字体、宽度和粗体。
对于字体,我可以使用
ThisDrawing.ActiveTextStyle.SetFont“罗马人”、False、False、1、1
但我不想做全局字体更改。
任何帮助或建议都会非常感激 |
|