为什么的确选择了光栅，函数SendStringToExecute却无法正常对光栅执行scale命令。看

yanghao1

为什么的确选择了光栅，函数SendStringToExecute却无法正常对光栅执行scale命令。看代码：[br]

我在图中插入了一个光栅，为什么在提示选择对象后，我明明选择了光栅，函数SendStringToExecute却无法正常执行。

但在AutoCAD命令行中直接粘贴同样的 ._scale -93.147,421.096,0 0.6811 能正常缩放。

看代码：

        [CommandMethod("tt")]
        public static void tt()
        {
            Document acDoc = Application.DocumentManager.MdiActiveDocument;
            Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
            PromptSelectionResult res = ed.GetSelection();
            if (res.Status == PromptStatus.OK)
            {   //如果选择了光栅
                acDoc.SendStringToExecute("._scale -93.147,421.096,0 0.6811", true, false, false);
                //acDoc.SendStringToExecute("._line 1000,1000,0 1100,1100,0", true, false, false);//这个画直线命令能正常执行。
            }
        }

雪山飞狐_lzh

用矩阵变换试过么

yanghao1

注：直接粘贴前需要先选中光栅，然后在粘贴，成功缩放了。

yanghao1

lzh741206发表于2009-9-4 22:44:00用矩阵变换试过么

矩阵变换很麻烦，有命令想直接使用命令更简单

yanghao1

lzh741206发表于2009-9-4 22:44:00用矩阵变换试过么

在CAD中使用矩阵变换还没有试过，请先生指点一二，不胜感激！谢谢！

雪山飞狐_lzh

http://www.mjtd.com/helpcenter/netguide/files/WS1a9193826455f5ff2566ffd511ff6f8c7ca-3ee6.htm

yanghao1

症结所在：
关键在于执行SendStringToExecute时，在scale后面仍要求选择对象的缘故，但直接粘贴到命令行时为什么不要求选择对象，而能直接成功执行呢

以下是执行tt命令的过程：

命令: tt
请选择光栅: 找到 1 个
请选择光栅:
命令: ._scale
选择对象: -93.147,421.096,0 指定对角点: 0.6811 找到 0 个

（这时res.Status仍然是Ok，说明选择的光栅对象没有丢失）

雪山飞狐_lzh

有点无语了。。。

雪山飞狐_lzh

一定要用命令的话，试下下面的代码

2. using System;
3. using System.Collections.Generic;
4. using System.Linq;
5. using System.Text;
6. using System.Runtime.InteropServices;
7. using Autodesk.AutoCAD.EditorInput;
8. using Autodesk.AutoCAD.DatabaseServices;
9. using Autodesk.AutoCAD.Runtime;
10. using Autodesk.AutoCAD.Geometry;
11. using Autodesk.AutoCAD.ApplicationServices;
12. [assembly: CommandClass(typeof(TlsTest.Class2))]
13. namespace TlsTest
14. {
15.     class Class2
16.     {
17.         [DllImport("acad.exe")]
18.         private static extern int acedCmd(IntPtr vlist);
19.         public static void Command(params object[] args)
20.         {
21.             ResultBuffer rb = new ResultBuffer();
22.             foreach (object val in args)
23.             {
24.                 if (val == null)
25.                 {
26.                     rb.Add(new TypedValue((int)LispDataType.Text, ""));
27.                 }
28.                 else
29.                 {
30.                     if (val is string)
31.                         rb.Add(new TypedValue((int)LispDataType.Text, val));
32.                     else if (val is Point2d)
33.                         rb.Add(new TypedValue((int)LispDataType.Point2d, val));
34.                     else if (val is Point3d)
35.                         rb.Add(new TypedValue((int)LispDataType.Point3d, val));
36.                     else if (val is ObjectId)
37.                         rb.Add(new TypedValue((int)LispDataType.ObjectId, val));
38.                     else if (val is SelectionSet)
39.                         rb.Add(new TypedValue((int)LispDataType.SelectionSet, val));
40.                     else if (val is double)
41.                         rb.Add(new TypedValue((int)LispDataType.Double, val));
42.                     else if (val is short)
43.                         rb.Add(new TypedValue((int)LispDataType.Int16, val));
44.                     else if (val is int)
45.                         rb.Add(new TypedValue((int)LispDataType.Int32, val));
46.                     else if (val is TypedValue)
47.                         rb.Add(val);
48.                 }
49.             }
50.             try
51.             {
52.                 acedCmd(rb.UnmanagedObject);
53.             }
54.             catch
55.             { }
56.             finally
57.             {
58.                 rb.Dispose();
59.             }
60.         }
61.         [CommandMethod("ttss")]
62.         public static void tt()
63.         {
64.             Document doc = Application.DocumentManager.MdiActiveDocument;
65.             Database db = doc.Database;
66.             Editor ed = doc.Editor;
67.             PromptSelectionResult res = ed.GetSelection();
68.             if (res.Status == PromptStatus.OK)
69.             {
70.                 Application.SetSystemVariable("CmdEcho", 0);
71.                 Command(
72.                     "_.scale",
73.                     res.Value,
74.                     "",
75.                     new Point3d(-93.147, 421.096, 0),
76.                     0.6811);
77.                 Application.SetSystemVariable("CmdEcho", 1);
78.             }
79.         }
80.     }
81. }

using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Runtime.InteropServices; using Autodesk.AutoCAD.EditorInput; using Autodesk.AutoCAD.DatabaseServices; using Autodesk.AutoCAD.Runtime; using Autodesk.AutoCAD.Geometry; using Autodesk.AutoCAD.ApplicationServices; [assembly: CommandClass(typeof(TlsTest.Class2))] namespace TlsTest {     class Class2     {         [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                 {                     if (val is string)                         rb.Add(new TypedValue((int)LispDataType.Text, val));                     else if (val is Point2d)                         rb.Add(new TypedValue((int)LispDataType.Point2d, val));                     else if (val is Point3d)                         rb.Add(new TypedValue((int)LispDataType.Point3d, val));                     else if (val is ObjectId)                         rb.Add(new TypedValue((int)LispDataType.ObjectId, val));                     else if (val is SelectionSet)                         rb.Add(new TypedValue((int)LispDataType.SelectionSet, val));                     else if (val is double)                         rb.Add(new TypedValue((int)LispDataType.Double, val));                     else if (val is short)                         rb.Add(new TypedValue((int)LispDataType.Int16, val));                     else if (val is int)                         rb.Add(new TypedValue((int)LispDataType.Int32, val));                     else if (val is TypedValue)                         rb.Add(val);                 }             }             try             {                 acedCmd(rb.UnmanagedObject);             }             catch             { }             finally             {                 rb.Dispose();             }         }         [CommandMethod("ttss")]         public static void tt()         {             Document doc = Application.DocumentManager.MdiActiveDocument;             Database db = doc.Database;             Editor ed = doc.Editor;             PromptSelectionResult res = ed.GetSelection();             if (res.Status == PromptStatus.OK)             {                 Application.SetSystemVariable("CmdEcho", 0);                 Command(                     "_.scale",                     res.Value,                     "",                     new Point3d(-93.147, 421.096, 0),                     0.6811);                 Application.SetSystemVariable("CmdEcho", 1);             }         }     } }

yanghao1

lzh741206发表于2009-9-5 11:08:00一定要用命令的话，试下下面的代码using System;using System.Collections.Generic;using System.Linq;using System.Text;using System.Runtime.InteropServices;using Autodesk.AutoCAD.Edito

先生，这个方法有效。但是需请教，res.Value 、 ""  这两个参数如何得知，哪里有介绍这方面的知识。看来你掌握的面很宽。