.C#4.0 实现晚绑定来调用Com库

SurveyCAD

if (pars<i>.IsOut)
                        lst.Add(args<i>);
提示如下错误:

错误        CS0307        变量“pars”不能与类型参数一起使用       

错误        CS0118        “i”是 变量，但此处被当做 类型 来使用

错误        CS0307        变量“ref object[]”不能与类型参数一起使用

错误        CS0118        “i”是 变量，但此处被当做 类型 来使用

请问是什么原因?

minjian

不错，C#在com方面的介绍比起VB太少了

qinnaixuan

雪山飞狐_lzh 发表于 2015-4-5 14:53
变体参数的反射

Utiility类中大量的函数使用了变体。。。

能否帮忙将这个单个CAD版本的应用程序修改为适合多个CAD版本的应用程序，如2010，2013等版本，本人愿意支付一定的费用,联系QQ:1067426844。程序码如下：

2. using System;
   
3. using System.Collections.Generic;
   
4. using System.ComponentModel;
   
5. using System.Data;
   
6. using System.Drawing;
   
7. using System.Linq;
   
8. using System.Text;
   
9. using System.Windows.Forms;
   
10. using Microsoft.VisualBasic;
    
11. using Autodesk.AutoCAD.Interop;
    
12. using Autodesk.AutoCAD.Interop.Common;
    
13. 
    
14. namespace CAD二次开发
    
15. {
    
16.     public partial class Form1 : Form
    
17.     {
    
18.         public static Autodesk.AutoCAD.Interop.AcadApplication AcadApp;
    
19.         public static Autodesk.AutoCAD.Interop.AcadDocument AcadDoc;
    
20.         public Form1()
    
21.         {
    
22.             InitializeComponent();
    
23.         }
    
24.         public static void 启动CAD()
    
25.         {
    
26.             try
    
27.             {
    
28.                 AcadApp = (AcadApplication)System.Runtime.InteropServices.Marshal.GetActiveObject("AutoCAD.Application");
    
29.                 AcadDoc = AcadApp.ActiveDocument;
    
30.             }
    
31.             catch
    
32.             {
    
33.                 AcadApp = new AcadApplication();
    
34.                 AcadDoc = AcadApp.ActiveDocument;
    
35.             }
    
36.             AcadApp.Application.Visible = true;
    
37.             Microsoft.VisualBasic.Interaction.AppActivate(AcadApp.Caption);
    
38.         }
    
39. 
    
40.         private void button1_Click(object sender, EventArgs e)
    
41.         {
    
42.             启动CAD();
    
43. 
    
44.             double Ks =0;
    
45.             double Ke = 2000;
    
46.             double Dmax = 150;
    
47.             double Dmin = -150;
    
48. 
    
49.             string VerCAD = (AcadApp.Version.ToString()).Substring(0, 2);//获取AutoCAD版本号,从左边截取2位字符
    
50.             AcadAcCmColor color1 = (AcadAcCmColor)AcadDoc.Application.GetInterfaceObject("AutoCAD.AcCmColor." + VerCAD);//新建一AcadAcCmColor对象，该对象用来给图形对象的颜色属性赋值
    
51.             AcadLayer acLayer;
    
52.             AcadText TextObj;
    
53. 
    
54.             acLayer = AcadDoc.Layers.Add("中心线");
    
55.             acLayer.color = AcColor.acYellow;
    
56.             acLayer.Lineweight = ACAD_LWEIGHT.acLnWt025;
    
57. 
    
58.             acLayer = AcadDoc.Layers.Add("文字标注");
    
59.             acLayer.color = AcColor.acGreen;
    
60. 
    
61.             acLayer = AcadDoc.Layers.Add("主网格");
    
62.             color1.SetRGB(66, 112, 138);
    
63.             acLayer.TrueColor = color1;
    
64.             acLayer.Lineweight = ACAD_LWEIGHT.acLnWt015;
    
65. 
    
66.             acLayer = AcadDoc.Layers.Add("副网格");
    
67.             color1.SetRGB(95, 58, 69);
    
68.             acLayer.TrueColor = color1;
    
69.             acLayer.Lineweight = ACAD_LWEIGHT.acLnWt005;
    
70. 
    
71.             double[] lineStartPoint = new Double[3];
    
72.             double[] lineEndPoint = new Double[3];
    
73.             double[] TextPoint = new Double[3];
    
74. 
    
75.             //水平网格线
    
76.             for (int i = Convert.ToInt32(Math.Ceiling(Dmin / 10)) * 10; i <= Math.Floor(Dmax / 10) * 10; i = i + 10)
    
77.             {
    
78.                 lineStartPoint[0] = Ks ; lineStartPoint[1] = i;
    
79.                 lineEndPoint[0] = Ke ; lineEndPoint[1] = i;
    
80. 
    
81.                 if (i % 50 == 0)
    
82.                 {
    
83.                     if (i == 0)
    
84.                     {
    
85.                         AcadDoc.ModelSpace.AddLine(lineStartPoint, lineEndPoint).Layer = "中心线";
    
86.                     }
    
87.                     else
    
88.                     {
    
89.                         AcadDoc.ModelSpace.AddLine(lineStartPoint, lineEndPoint).Layer = "主网格";
    
90.                     }
    
91.                 }
    
92.                 else
    
93.                 {
    
94.                     AcadDoc.ModelSpace.AddLine(lineStartPoint, lineEndPoint).Layer = "副网格";
    
95.                 }
    
96.             }
    
97. 
    
98.             //竖向网格线
    
99.             for (int i = Convert.ToInt32(Math.Ceiling(Ks / 10)) * 10; i <= Math.Floor(Ke / 10) * 10; i = i + 10)
    
100.             {
     
101.                 lineStartPoint[0] = i ; lineStartPoint[1] = Math.Ceiling(Dmin / 10) * 10;
     
102.                 lineEndPoint[0] = i ; lineEndPoint[1] = Math.Floor(Dmax / 10) * 10;
     
103. 
     
104.                 if (i % 50 == 0)
     
105.                 {
     
106.                     AcadDoc.ModelSpace.AddLine(lineStartPoint, lineEndPoint).Layer = "主网格";
     
107.                     if (i % 100 == 0)
     
108.                     {
     
109.                         //标注里程
     
110.                         TextPoint[0] = i ; TextPoint[1] = Math.Ceiling(Dmin / 10) * 10 - 10;
     
111.                         string strText;
     
112.                         if (i % 1000 == 0)
     
113.                         {
     
114.                             strText = "K" + (i / 1000).ToString();
     
115.                         }
     
116.                         else
     
117.                         {
     
118.                             strText = ((i / 100) % 10).ToString();
     
119.                         }
     
120.                         TextObj = AcadDoc.ModelSpace.AddText(strText, TextPoint, 7.5);
     
121.                         TextObj.Alignment = AcAlignment.acAlignmentMiddleCenter;//文本对齐方式
     
122.                         TextObj.TextAlignmentPoint = TextPoint;
     
123.                         TextObj.Layer = "文字标注";
     
124. 
     
125.                         //标注拨量
     
126.                         if (i % 1000 == 0)
     
127.                         {
     
128.                             for (int j = Convert.ToInt32(Math.Ceiling(Dmin / 50)) * 50; j <= Math.Floor(Dmax / 50) * 50; j = j + 50)
     
129.                             {
     
130.                                 TextPoint[0] = i  - 5; TextPoint[1] = j;
     
131.                                 TextObj = AcadDoc.ModelSpace.AddText(j.ToString(), TextPoint, 7.5);
     
132.                                 TextObj.Alignment = AcAlignment.acAlignmentMiddleRight;//文本对齐方式
     
133.                                 TextObj.TextAlignmentPoint = TextPoint;                //文本对齐点
     
134.                                 TextObj.Layer = "文字标注";
     
135.                             }
     
136.                         }
     
137.                     }
     
138.                 }
     
139. 
     
140.             }
     
141. 
     
142.             AcadDoc.ActiveLayer = AcadDoc.Layers.Add("0");//恢复0图层
     
143.             AcadDoc.SendCommand("_z\ne\n");
     
144.             AcadDoc.SendCommand("_regenall\n");//全部重生成模型
     
145. 
     
146.             Microsoft.VisualBasic.Interaction.AppActivate(AcadApp.Caption);
     
147. 
     
148.         }
     
149.     }
     
150. }
     

using System;<br /> using System.Collections.Generic;<br /> using System.ComponentModel;<br /> using System.Data;<br /> using System.Drawing;<br /> using System.Linq;<br /> using System.Text;<br /> using System.Windows.Forms;<br /> using Microsoft.VisualBasic;<br /> using Autodesk.AutoCAD.Interop;<br /> using Autodesk.AutoCAD.Interop.Common;<br /> <br /> namespace CAD二次开发<br /> {<br />     public partial class Form1 : Form<br />     {<br />         public static Autodesk.AutoCAD.Interop.AcadApplication AcadApp;<br />         public static Autodesk.AutoCAD.Interop.AcadDocument AcadDoc;<br />         public Form1()<br />         {<br />             InitializeComponent();<br />         }<br />         public static void 启动CAD()<br />         {<br />             try<br />             {<br />                 AcadApp = (AcadApplication)System.Runtime.InteropServices.Marshal.GetActiveObject("AutoCAD.Application");<br />                 AcadDoc = AcadApp.ActiveDocument;<br />             }<br />             catch<br />             {<br />                 AcadApp = new AcadApplication();<br />                 AcadDoc = AcadApp.ActiveDocument;<br />             }<br />             AcadApp.Application.Visible = true;<br />             Microsoft.VisualBasic.Interaction.AppActivate(AcadApp.Caption);<br />         }<br /> <br />         private void button1_Click(object sender, EventArgs e)<br />         {<br />             启动CAD();<br /> <br />             double Ks =0;<br />             double Ke = 2000;<br />             double Dmax = 150;<br />             double Dmin = -150;<br /> <br />             string VerCAD = (AcadApp.Version.ToString()).Substring(0, 2);//获取AutoCAD版本号,从左边截取2位字符<br />             AcadAcCmColor color1 = (AcadAcCmColor)AcadDoc.Application.GetInterfaceObject("AutoCAD.AcCmColor." + VerCAD);//新建一AcadAcCmColor对象，该对象用来给图形对象的颜色属性赋值<br />             AcadLayer acLayer;<br />             AcadText TextObj;<br /> <br />             acLayer = AcadDoc.Layers.Add("中心线");<br />             acLayer.color = AcColor.acYellow;<br />             acLayer.Lineweight = ACAD_LWEIGHT.acLnWt025;<br /> <br />             acLayer = AcadDoc.Layers.Add("文字标注");<br />             acLayer.color = AcColor.acGreen;<br /> <br />             acLayer = AcadDoc.Layers.Add("主网格");<br />             color1.SetRGB(66, 112, 138);<br />             acLayer.TrueColor = color1;<br />             acLayer.Lineweight = ACAD_LWEIGHT.acLnWt015;<br /> <br />             acLayer = AcadDoc.Layers.Add("副网格");<br />             color1.SetRGB(95, 58, 69);<br />             acLayer.TrueColor = color1;<br />             acLayer.Lineweight = ACAD_LWEIGHT.acLnWt005;<br /> <br />             double[] lineStartPoint = new Double[3];<br />             double[] lineEndPoint = new Double[3];<br />             double[] TextPoint = new Double[3];<br /> <br />             //水平网格线<br />             for (int i = Convert.ToInt32(Math.Ceiling(Dmin / 10)) * 10; i <= Math.Floor(Dmax / 10) * 10; i = i + 10) <br />             {<br />                 lineStartPoint[0] = Ks ; lineStartPoint[1] = i;<br />                 lineEndPoint[0] = Ke ; lineEndPoint[1] = i;<br /> <br />                 if (i % 50 == 0)<br />                 {<br />                     if (i == 0)<br />                     {<br />                         AcadDoc.ModelSpace.AddLine(lineStartPoint, lineEndPoint).Layer = "中心线";<br />                     }<br />                     else<br />                     {<br />                         AcadDoc.ModelSpace.AddLine(lineStartPoint, lineEndPoint).Layer = "主网格";<br />                     }<br />                 }<br />                 else<br />                 {<br />                     AcadDoc.ModelSpace.AddLine(lineStartPoint, lineEndPoint).Layer = "副网格";<br />                 }<br />             }<br /> <br />             //竖向网格线<br />             for (int i = Convert.ToInt32(Math.Ceiling(Ks / 10)) * 10; i <= Math.Floor(Ke / 10) * 10; i = i + 10)<br />             {<br />                 lineStartPoint[0] = i ; lineStartPoint[1] = Math.Ceiling(Dmin / 10) * 10;<br />                 lineEndPoint[0] = i ; lineEndPoint[1] = Math.Floor(Dmax / 10) * 10;<br /> <br />                 if (i % 50 == 0)<br />                 {<br />                     AcadDoc.ModelSpace.AddLine(lineStartPoint, lineEndPoint).Layer = "主网格";<br />                     if (i % 100 == 0)<br />                     {<br />                         //标注里程<br />                         TextPoint[0] = i ; TextPoint[1] = Math.Ceiling(Dmin / 10) * 10 - 10;<br />                         string strText;<br />                         if (i % 1000 == 0)<br />                         {<br />                             strText = "K" + (i / 1000).ToString();<br />                         }<br />                         else<br />                         {<br />                             strText = ((i / 100) % 10).ToString();<br />                         }<br />                         TextObj = AcadDoc.ModelSpace.AddText(strText, TextPoint, 7.5);<br />                         TextObj.Alignment = AcAlignment.acAlignmentMiddleCenter;//文本对齐方式<br />                         TextObj.TextAlignmentPoint = TextPoint;<br />                         TextObj.Layer = "文字标注";<br /> <br />                         //标注拨量<br />                         if (i % 1000 == 0)<br />                         {<br />                             for (int j = Convert.ToInt32(Math.Ceiling(Dmin / 50)) * 50; j <= Math.Floor(Dmax / 50) * 50; j = j + 50)<br />                             {<br />                                 TextPoint[0] = i  - 5; TextPoint[1] = j;<br />                                 TextObj = AcadDoc.ModelSpace.AddText(j.ToString(), TextPoint, 7.5);<br />                                 TextObj.Alignment = AcAlignment.acAlignmentMiddleRight;//文本对齐方式<br />                                 TextObj.TextAlignmentPoint = TextPoint;                //文本对齐点<br />                                 TextObj.Layer = "文字标注";<br />                             }<br />                         }<br />                     }<br />                 }<br /> <br />             }<br /> <br />             AcadDoc.ActiveLayer = AcadDoc.Layers.Add("0");//恢复0图层<br />             AcadDoc.SendCommand("_z\ne\n");<br />             AcadDoc.SendCommand("_regenall\n");//全部重生成模型<br /> <br />             Microsoft.VisualBasic.Interaction.AppActivate(AcadApp.Caption);<br /> <br />         }<br />     }<br /> }<br />

dpf200810

mark

hector

飞狐大侠，你好。从你的帖子中学到了很多，非常感谢。
有一个问题请教 一下：使用C# COM，怎么调用sendcommand命令，实现两条直线trim的功能？（在sendcommand命令中，可以使用handent,但是无法使用list()）,或者不用调用sendcommand，有无其它命令。
非常期待能获得你的指点。