高级会员
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
|
【转帖】找遍了网络找不到如何修改字的样式。
找遍了网络找不到如何修改字的样式。
找遍了网络找不到如何修改字的样式。
书上也没有,据说是database的textstyle,但是不知道如何用,
我的理解颜色,所在层,文字样式等都属于文字物体的属性,修改颜色和所在层很容易,只要entobjectid.color,entobjectid.layer就行了,文字样式却不能这样,实在不知道该如何写。
.textstyle 是干吗的?那个entobjectid是啥?是text 或者mtext 吗?
用dtext或这mtext可以调出textstyle属性,但是不知道怎样修改。
本帖最后由 volution 于 9-4-7 12:29 am 编辑
这问题憋了几天了还是搞不定。
买本才鸟的那本书,autocad vba & vb.net开发基础与实例教程,第340页
文字的.textstyle属性就是设置文字样式的
database的.textstyle属性是保存的当前文字样式
本帖最后由 volution 于 9-4-7 08:27 pm 编辑
书在手上,创建文字样式是会的,就是不知道如何设置选中的文字到希望的文字样式:
dim db as database = hostapplicationservices.workingdatabase
dim ed as editor = application.documentmanager.mdiactivedocument.editor
dim optent as new promptentityoptions(vbcrlf & "请选择文字")
optent.setrejectmessage(vbcrlf & "您选择的对象不是文字,请重新选择!")
optent.addallowedclass(gettype(dbtext), true)
optent.addallowedclass(gettype(mtext), true)
dim resent as promptentityresult = ed.getentity(optent)
if resent.status <> promptstatus.ok then return
dim entid as objectid = resent.objectid
这样就选中文字了,但是我希望修改他的文字样式,比如当前选中文字的文字样式是a,改到文字样式b,就是不知道怎么写,
我查了textstyle是objectid,不知道怎么用。
创建了文字样式就返回了文字样式的id,把它赋给textstyle不就行了。
|