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

ahopera

有的时候需要用.net Api处理数据并在cad的文本屏幕上显示出来，但是找了半天也没有找到怎么实现这么一个简单的功能，版主能不能帮忙解决一下？

雪山飞狐_lzh

2010版本有提供
Application.DisplayTextScreen = true;

之前的版本估计只有发送命令了

2.         [DllImport("acad.exe")]
3.         private static extern int acedCmd(IntPtr vlist);
5.         public static void Command(params object[] args)
6.         {
7.             ResultBuffer rb = new ResultBuffer();
8.             foreach (object val in args)
9.             {
10.                 if (val == null)
11.                 {
12.                     rb.Add(new TypedValue((int)LispDataType.Text, ""));
13.                 }
14.                 else
15.                 {
16.                     switch (val.GetType().Name)
17.                     {
18.                         case "String":
19.                             rb.Add(new TypedValue((int)LispDataType.Text, val));
20.                             break;
21.                         case "Point2d":
22.                             rb.Add(new TypedValue((int)LispDataType.Point2d, val));
23.                             break;
24.                         case "Point3d":
25.                             rb.Add(new TypedValue((int)LispDataType.Point3d, val));
26.                             break;
27.                         case "ObjectId":
28.                             rb.Add(new TypedValue((int)LispDataType.ObjectId, val));
29.                             break;
30.                         case "SelectionSet":
31.                             rb.Add(new TypedValue((int)LispDataType.SelectionSet, val));
32.                             break;
33.                         case "Double":
34.                             rb.Add(new TypedValue((int)LispDataType.Double, val));
35.                             break;
36.                         case "Int16":
37.                             rb.Add(new TypedValue((int)LispDataType.Int16, val));
38.                             break;
39.                         case "Int32":
40.                             rb.Add(new TypedValue((int)LispDataType.Int32, val));
41.                             break;
42.                         case "TypedValue":
43.                             rb.Add(val);
44.                             break;
45.                     }
46.                 }
47.             }
49.             try
50.             {
51.                 acedCmd(rb.UnmanagedObject);
52.             }
53.             catch
54.             { }
55.             finally
56.             {
57.                 rb.Dispose();
58.             }
60.         }
63.         [CommandMethod("tscr")]
64.         public static void TextScr()
65.         {
66.             Command("TextScr");
67.             Document doc = Application.DocumentManager.MdiActiveDocument;
68.             doc.Editor.WriteMessage("\nHi");
69.         }

        [DllImport("acad.exe")]         private static extern int acedCmd(IntPtr vlist);         public static void Command(params object[] args)         {             ResultBuffer rb = new ResultBuffer();             foreach (object val in args)             {                 if (val == null)                 {                     rb.Add(new TypedValue((int)LispDataType.Text, ""));                 }                 else                 {                     switch (val.GetType().Name)                     {                         case "String":                             rb.Add(new TypedValue((int)LispDataType.Text, val));                             break;                         case "Point2d":                             rb.Add(new TypedValue((int)LispDataType.Point2d, val));                             break;                         case "Point3d":                             rb.Add(new TypedValue((int)LispDataType.Point3d, val));                             break;                         case "ObjectId":                             rb.Add(new TypedValue((int)LispDataType.ObjectId, val));                             break;                         case "SelectionSet":                             rb.Add(new TypedValue((int)LispDataType.SelectionSet, val));                             break;                         case "Double":                             rb.Add(new TypedValue((int)LispDataType.Double, val));                             break;                         case "Int16":                             rb.Add(new TypedValue((int)LispDataType.Int16, val));                             break;                         case "Int32":                             rb.Add(new TypedValue((int)LispDataType.Int32, val));                             break;                         case "TypedValue":                             rb.Add(val);                             break;                     }                 }             }             try             {                 acedCmd(rb.UnmanagedObject);             }             catch             { }             finally             {                 rb.Dispose();             }         }         [CommandMethod("tscr")]         public static void TextScr()         {             Command("TextScr");             Document doc = Application.DocumentManager.MdiActiveDocument;             doc.Editor.WriteMessage("\nHi");         }

ahopera

我是用的vb.net，如果靠发送命令的话，我是这样实现的，

   Public Sub ShowTextScreen()
        Dim Doc As Document = Application.DocumentManager.MdiActiveDocument
        Doc.SendStringToExecute("textscr ", False, False, False)
    End Sub

对c#应该是

public static void ShowTextScreen()

{

        Document Doc = Application.DocumentManager.MdiActiveDocument;

        Doc.SendStringToExecute("textscr ", False, False, False);

}
这个是可以实现的，但是用了这个函数之后，cad默认的命令就是textscr了，很不方便命令的重复使用

版主有什么办法解决嘛？

雪山飞狐_lzh

你没有试过二楼的代码？这个可以的
SendStringToExecute不要用

另外注意代码以前最好设置系统变量cmdecho=0

ahopera

SendStringToExecute有什么问题嘛？二楼的代码我还要整成vb.net的试下

雪山飞狐_lzh

SendStringToExecute和VBA的SendCommand一样，

应该都是调用Com接口发送，发了就不管：）

ahopera

不行啊，这是vb代码：
这是trycommand 里的模块文件内容

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

这是trycommand里的类内容

4. Imports Autodesk.AutoCAD.Runtime
5. Imports Autodesk.AutoCAD.ApplicationServices
6. Imports Application = Autodesk.AutoCAD.ApplicationServices.Application
7. Imports Autodesk.AutoCAD.EditorInput
8. Imports Autodesk.AutoCAD.Geometry
9. Imports Autodesk.AutoCAD.DatabaseServices
10. Imports System
11. Imports System.Runtime.InteropServices
12. Imports System.Windows.Forms
13. Imports SysApplication = System.Windows.Forms.Application
16. Public Class Class1
17.     <CommandMethod("tscr")> Sub TextScr()
18.         Command("TextScr")
19.         Dim doc As Document = Application.DocumentManager.MdiActiveDocument
20.         doc.Editor.WriteMessage("\nHi")
21.     End Sub
22. End Class

Imports Autodesk.AutoCAD.Runtime Imports Autodesk.AutoCAD.ApplicationServices Imports Application = Autodesk.AutoCAD.ApplicationServices.Application Imports Autodesk.AutoCAD.EditorInput Imports Autodesk.AutoCAD.Geometry Imports Autodesk.AutoCAD.DatabaseServices Imports System Imports System.Runtime.InteropServices Imports System.Windows.Forms Imports SysApplication = System.Windows.Forms.Application Public Class Class1     <CommandMethod("tscr")> Sub TextScr()         Command("TextScr")         Dim doc As Document = Application.DocumentManager.MdiActiveDocument         doc.Editor.WriteMessage("\nHi")     End Sub End Class

在vb.net里用行不通啊

ahopera

这是源文件，帮我看下，vs２００８，怎么都没有效果，运行之后就只有这个：

命令: netload
命令: tscr
命令:
命令:
命令:
命令:
命令:
命令:
命令: \nHi

我数了一下，刚好是六个空命令加一个空格（"\nhi"前面有一个空格），对应textscr七个字符，如果是Command("Line"),运行结果就是这样的

命令: tscr
命令:
命令:
命令:
命令: \nHi

ahopera

我知道了，这样改了一下：

把 Public Sub Command(ByVal args As Object)改成

 ublic Sub Command(ByVal args() As Object)

然后把　Command("TextScr")改成       

　　　　 Dim CmdStr(0) As Object
        CmdStr(0) = "TextScr"
        Command(CmdStr)

ahopera

lzh741206版主：好像Command函数就只能运行单一的文本命令，我这样做程序就会出错：

    <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