C#开发CAD这么弱吗？zoom都这么难解决

bill165

C#开发CAD这么弱吗？zoom都这么难解决
大家是怎么解决的？

hnzgs

Autodesk.AutoCAD.Internal.Utils.ZoomAuto(1, 1, 1, 1, 1)

tiancao100

guohq 发表于 2015-8-1 15:41
_
    Private Shared Function acedCmd(ByVal rbp As IntPtr) As Integer
         

    Public Shared Sub ZoomAll()
        Dim res As New ResultBuffer From {
            New TypedValue(Autodesk.AutoCAD.Runtime.LispDataType.Text, "._ZOOM"),
            New TypedValue(Autodesk.AutoCAD.Runtime.LispDataType.Text, "_A")
        }
        acedCmd(res.UnmanagedObject)
    End Sub
    <DllImport("accore.dll", EntryPoint:="acedCmd", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.Cdecl)>
    Private Shared Function acedCmd(ByVal rbp As IntPtr) As Integer
    End Function

为何我这个zoomall没反应

guohq

tiancao100 发表于 2024-2-1 15:54
Public Shared Sub ZoomAll()
        Dim res As New ResultBuffer From {
            New Typed ...

你用的CAD哪个版本？

sxpd

可以调用com库的zoom×××

guohq

<DllImport("acad.exe", EntryPoint:="acedCmd", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.Cdecl)> _
    Private Shared Function acedCmd(ByVal rbp As IntPtr) As Integer
         
    End Function


    Public Shared Sub ZoomWindow(ByVal Point1 As Point3d, ByVal Point2 As Point3d)

        Dim res As New ResultBuffer
        res.Add(New TypedValue(Autodesk.AutoCAD.Runtime.LispDataType.Text, "._ZOOM"))
        res.Add(New TypedValue(Autodesk.AutoCAD.Runtime.LispDataType.Text, "_W"))
        res.Add(New TypedValue(Autodesk.AutoCAD.Runtime.LispDataType.Point3d, Point1))
        res.Add(New TypedValue(Autodesk.AutoCAD.Runtime.LispDataType.Point3d, Point2))
        acedCmd(res.UnmanagedObject)
    End Sub

平台调用，很方便！！

Real_King

guohq 发表于 2015-8-1 15:41
_
    Private Shared Function acedCmd(ByVal rbp As IntPtr) As Integer
         

guohp仁兄能否用C#改写下？感谢，感觉用.NET的ZE不准确，我都是通过com的

guohq

2. [DllImport("acad.exe", EntryPoint = "acedCmd", CharSet = CharSet.Auto, CallingConvention = CallingConvention.Cdecl)]
   
3. private static extern int acedCmd(IntPtr rbp);
   
4. 
   
5. 
   
6. 
   
7. 
   
8. public static void ZoomWindow(Point3d Point1, Point3d Point2)
   
9. {
   
10.         ResultBuffer res = new ResultBuffer();
    
11.         res.Add(new TypedValue(Autodesk.AutoCAD.Runtime.LispDataType.Text, "._ZOOM"));
    
12.         res.Add(new TypedValue(Autodesk.AutoCAD.Runtime.LispDataType.Text, "_W"));
    
13.         res.Add(new TypedValue(Autodesk.AutoCAD.Runtime.LispDataType.Point3d, Point1));
    
14.         res.Add(new TypedValue(Autodesk.AutoCAD.Runtime.LispDataType.Point3d, Point2));
    
15.         acedCmd(res.UnmanagedObject);
    
16. }
    

[DllImport("acad.exe", EntryPoint = "acedCmd", CharSet = CharSet.Auto, CallingConvention = CallingConvention.Cdecl)]<br /> private static extern int acedCmd(IntPtr rbp);<br /> <br /> <br /> <br /> <br /> public static void ZoomWindow(Point3d Point1, Point3d Point2)<br /> {<br />         ResultBuffer res = new ResultBuffer();<br />         res.Add(new TypedValue(Autodesk.AutoCAD.Runtime.LispDataType.Text, "._ZOOM"));<br />         res.Add(new TypedValue(Autodesk.AutoCAD.Runtime.LispDataType.Text, "_W"));<br />         res.Add(new TypedValue(Autodesk.AutoCAD.Runtime.LispDataType.Point3d, Point1));<br />         res.Add(new TypedValue(Autodesk.AutoCAD.Runtime.LispDataType.Point3d, Point2));<br />         acedCmd(res.UnmanagedObject);<br /> }<br />

革天明

guohq 发表于 2015-9-9 10:37

Autodesk.AutoCAD.Runtime.LispDataType.Text

这介.net 4.0的功能吧？
.net 2.0显示没有这个

cdinten

这个……。NET相比较之前的ARX还是有很多地方没有完善的，如果不将之前的ARX打包，则自己实现起来就比较麻烦了

cairunbin

C#没有这么弱。
Zoom，需要对底层的视口记录操作，如下面代码，获取到ViewTableRecord 对象后，对其CenterPoint、Width、Height属性进行设计即可。

1.                         Autodesk.AutoCAD.ApplicationServices.Document doc = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument;
   
2.                         Editor editor = doc.Editor;
   
3.                         ViewTableRecord viewTableRecord = editor.GetCurrentView();
   
4.                         try
   
5.                         {
   
6.                                 viewTableRecord.CenterPoint = center;
   
7.                                 viewTableRecord.Height = (extents.MaxPoint.Y - extents.MinPoint.Y);
   
8.                                 viewTableRecord.Width = (extents.MaxPoint.X - extents.MinPoint.X);
   
9.                                 editor.SetCurrentView(viewTableRecord);
   
10.                                 Autodesk.AutoCAD.ApplicationServices.Application.UpdateScreen();
    
11.                         }
    
12. 
    

复制代码

125plus225

cairunbin 发表于 2016-1-13 21:10
C#没有这么弱。
Zoom，需要对底层的视口记录操作，如下面代码，获取到ViewTableRecord 对象后，对其Center ...

cad2006呢，Editor貌似没有GetCurrentView()和SetCurrentView()方法啊