[求助]图形更新问题

linux1234

我有下面一段代码最后部分:

        ThisDrawing.ActiveTextStyle.fontFile = Trim(uufontfile_new.Text)
        ThisDrawing.ActiveTextStyle.BigFontFile = Trim(uubigfontfile_new.Text)
        MsgBox "当前文字样式替换完毕！", vbOKOnly, "当前文字样式替换"

将当前字体(现为乱码)更换为需要的字体类型,以取消乱码,我原来是用lsp做的,可以马上看到效果,可现在用vba不能理解看到效果,就是在AutoCAD命令行输入regen也无效,只有将所有图元选中,移动一点距离就可以了,不知在VBA里如何解决这个问题呢?

update当前视口也无效!

linux1234

已解决,不知以前为何regen无效,这次在VBA代码最后,加了thisdrawing.sendcommand("regen "),好了!