最大化显示

roseanna · 发表于 2022-7-6 22:48:21

我刚刚开始将一些VBA转换为。网在我的代码中

应用AcadApplicaton。缩放范围

它正在发挥作用。昨天，我开始添加新代码，发现ZoomExtents不再工作。VS2008没有给出错误，但例程不再发挥作用。有人有什么建议吗？

谢谢
罗斯·安娜

mdbdesign · 发表于 2022-7-6 23:19:29

它是否已经在区段中？

roseanna · 发表于 2022-7-6 23:36:00

我真的不明白。我正在跑步。net程序处于调试模式。de******自动打开一个图形，然后我进行netload并加载。然后我运行一个命令，创建对象并添加到文档/事务中。运行命令后，我需要运行“最大化显示”以获得图形的完整视图。该命令可以为对象创建相同的图形，但大小不同。我确实尝试更改了用于包含ANSI标准和更改维度属性的模板，但这与zoomextents命令没有任何关系？？？？

Dim acDoc作为文档
acDoc=应用程序。DocumentManager。MdiActiveDocument
Dim acCurDb作为数据库
acCurDb=acDoc。数据库
使用acTrans作为事务=acCurDb。TransactionManager。StartTransaction（）
Dim acBlkTbl As BlockTable块表
acBlkTbl=acTrans。GetObject（acCurDb.BlockTableId，OpenMode.ForRead）
Dim acModelSpace作为BlockTableRecord
acModelSpace=acTrans。GetObject（acBlkTbl（BlockTableRecord.ModelSpace），OpenMode。ForWrite）
dim radCir=输入
Dim acCirc1 As CIRCE=新圆（）
acCirc1。SetDatabaseDefaults（）
acModelSpace。附录实体（acCirc1）
acTrans。AddNewlyCreatedDBObject（acCirc1，True）
acCirc1。中心=新点3D（0，0，0）
acCirc1。半径=radCir
acTrans。提交（）
应用A应用程序。ZoomExtents（）''这是一个不再有效的命令？？？？
结束使用
谢谢

roseanna · 发表于 2022-7-6 23:58:22

真有趣。我的代码正在运行。我将autocad系统重置为不使用ANSI标准。有什么见解吗？？

[编程交流] 最大化显示

发表回复

精选推荐