社区 › VB › vb中的缩放。网

colmguckian 发表于 2022-7-6 22:40:59

vb中的缩放。网

我有一个vbdotnet代码来创建一个命令，用于缩放图形
请参阅随附的代码打印屏幕
你会发现我有两个错误。
如何修复这些错误。
我如何查看代码，使其按25.4的比例缩放图形中的所有对象。
cscaleall。文件

Jeff H 发表于 2022-7-6 23:22:24

我不熟悉VBA for AutoCAD，但它看起来就是这样，但是
 
 
来自AutoCAD。帮助中的NET开发者指南
 
链接
此链接显示了一个示例。
 
以下是使用原点作为基点缩放模型空间25.4中的所有对象
 

       <CommandMethod("ScaletoMetric")> _
       Public Sub ScaletoMetric()
         Dim doc As Document = Application.DocumentManager.MdiActiveDocument
         Dim ed As Editor = doc.Editor
         Dim db As Database = doc.Database

         Using trx As Transaction = db.TransactionManager.StartTransaction()

               Dim bt As BlockTable = trx.GetObject(db.BlockTableId, OpenMode.ForRead)
               Dim modelBtr As BlockTableRecord = trx.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForRead)

               For Each objId As ObjectId In modelBtr
                   Dim ent As Entity = trx.GetObject(objId, OpenMode.ForWrite)
                   ent.TransformBy(Matrix3d.Scaling(25.4, Point3d.Origin))
               Next

               trx.Commit()
         End Using
       End Sub

colmguckian 发表于 2022-7-6 23:59:18

太好了，杰夫。谢谢你的代码和链接

查看完整版本: vb中的缩放。网