【转帖】找遍了网络找不到如何修改字的样式。
 

找遍了网络找不到如何修改字的样式。
找遍了网络找不到如何修改字的样式。
书上也没有，据说是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不就行了。