.net Api怎么实现Lisp里面(textscr)函数的功能

雪山飞狐_lzh

 ublic Sub Command(ByVal ParamArray args() As Object)
这样声明

ahopera

这个问题已经解决啦，但是为什么   

<CommandMethod("tscr")> Sub TextScr()
        Dim CmdStr() As Object = {"RECTANG", New Point2d(0, 0), New Point2d(1, 1)}

        Command(CmdStr)
        'Dim doc As Document = Application.DocumentManager.MdiActiveDocument
        'doc.Editor.WriteMessage("\nHi")
    End Sub

就会出错呢？

ahopera

经版主指点，这样的代码可以正确执行：
VB.net Code:

2. Imports System
3. Imports System.Runtime.InteropServices
4. Imports Autodesk.AutoCAD.Runtime
5. Imports Autodesk.AutoCAD.DatabaseServices
6. Imports Autodesk.AutoCAD.EditorInput
7. Imports Autodesk.AutoCAD.ApplicationServices
9. Module Example
11.     <DllImport("acad.exe")> Public Function acedCmd(ByVal vlist As IntPtr) As Integer
12.     End Function
15.     Public Sub Command(ByVal args() As Object)
16.         Dim rb As ResultBuffer
17.         Dim val As Object
18.         For Each val In args
19.             rb = New ResultBuffer()
20.             If (val Is Nothing) Then
21.                 rb.Add(New TypedValue(CInt(LispDataType.Text), ""))
22.             Else
23.                 Select Case val.GetType().Name
24.                     Case "String"
25.                         rb.Add(New TypedValue(CInt(LispDataType.Text), val))
26.                         Exit Select
27.                     Case "Point2d"
28.                         rb.Add(New TypedValue(CInt(LispDataType.Point2d), val))
29.                         Exit Select
30.                     Case "Point3d"
31.                         rb.Add(New TypedValue(CInt(LispDataType.Point3d), val))
32.                         Exit Select
33.                     Case "ObjectId"
34.                         rb.Add(New TypedValue(CInt(LispDataType.ObjectId), val))
35.                         Exit Select
36.                     Case "SelectionSet"
37.                         rb.Add(New TypedValue(CInt(LispDataType.SelectionSet), val))
38.                         Exit Select
39.                     Case "Double"
40.                         rb.Add(New TypedValue(CInt(LispDataType.Double), val))
41.                         Exit Select
42.                     Case "Int16"
43.                         rb.Add(New TypedValue(CInt(LispDataType.Int16), val))
44.                         Exit Select
45.                     Case "Int32"
46.                         rb.Add(New TypedValue(CInt(LispDataType.Int32), val))
47.                         Exit Select
48.                     Case "TypedValue"
49.                         rb.Add(val)
50.                         Exit Select
51.                 End Select
52.             End If
53.             Try
54.                 acedCmd(rb.UnmanagedObject)
55.             Catch
56.             Finally
57.                 rb.Dispose()
58.             End Try
59.         Next val
60.     End Sub
62. End Module

Imports System Imports System.Runtime.InteropServices Imports Autodesk.AutoCAD.Runtime Imports Autodesk.AutoCAD.DatabaseServices Imports Autodesk.AutoCAD.EditorInput Imports Autodesk.AutoCAD.ApplicationServices Module Example     <DllImport("acad.exe")> Public Function acedCmd(ByVal vlist As IntPtr) As Integer     End Function     Public Sub Command(ByVal args() As Object)         Dim rb As ResultBuffer         Dim val As Object         For Each val In args             rb = New ResultBuffer()             If (val Is Nothing) Then                 rb.Add(New TypedValue(CInt(LispDataType.Text), ""))             Else                 Select Case val.GetType().Name                     Case "String"                         rb.Add(New TypedValue(CInt(LispDataType.Text), val))                         Exit Select                     Case "Point2d"                         rb.Add(New TypedValue(CInt(LispDataType.Point2d), val))                         Exit Select                     Case "Point3d"                         rb.Add(New TypedValue(CInt(LispDataType.Point3d), val))                         Exit Select                     Case "ObjectId"                         rb.Add(New TypedValue(CInt(LispDataType.ObjectId), val))                         Exit Select                     Case "SelectionSet"                         rb.Add(New TypedValue(CInt(LispDataType.SelectionSet), val))                         Exit Select                     Case "Double"                         rb.Add(New TypedValue(CInt(LispDataType.Double), val))                         Exit Select                     Case "Int16"                         rb.Add(New TypedValue(CInt(LispDataType.Int16), val))                         Exit Select                     Case "Int32"                         rb.Add(New TypedValue(CInt(LispDataType.Int32), val))                         Exit Select                     Case "TypedValue"                         rb.Add(val)                         Exit Select                 End Select             End If             Try                 acedCmd(rb.UnmanagedObject)             Catch             Finally                 rb.Dispose()             End Try         Next val     End Sub End Module

雪山飞狐_lzh

在theswamp看过你的贴了：）

总结下，解决方案如下

1、引用acmgdinternal.dll

Autodesk.AutoCAD.Internal.Utils.TextScr()

Autodesk.AutoCAD.Internal.Utils.GraphScr()

2、P/Invoke

        [DllImport("acad.exe")]
        private static extern int acedTextScr();

        [DllImport("acad.exe")]
        private static extern int acedGraphScr();

        public static bool DisplayTextScreen
        {
            set
            {
                if (value)
                    acedTextScr();
                else
                    acedGraphScr();
            }
        }

        [CommandMethod("ts1")]
        public static void tt1()
        {
            DisplayTextScreen = true;
        }

        [CommandMethod("ts2")]
        public static void tt2()
        {
            DisplayTextScreen = false;
        }

3、AutoCad2010最简单

Application.DisplayTextScreen = true;