priklad1.java

使用JAVA调用AUTOCAD进行图形操作 需要VJ6.0

import acad.*;
import com.ms.com.*;
  public class priklad1
  {
    public static void main(String args[])
    {

      // deklarace objektu Application, objektu Active Document a objektu Model Space
      IAcadApplication IApp= (IAcadApplication) new AcadApplication();
		  //ICad.BindToActive(L"AutoCAD.Application")
	  //IApp=IApp.getApplication();
	  IApp.GetInterfaceObject 
      IApp.putVisible(true);
      IAcadDocument IDoc = (IAcadDocument) IApp.getActiveDocument();
      IAcadUtility IUtil = (IAcadUtility) IDoc.getUtility();
      IAcadModelSpace IMSpace = (IAcadModelSpace) IDoc.getModelSpace();

      Variant opt = new Variant();
      opt.VariantClear();
      opt.noParam();
      Variant vPt1 = new Variant(); // vytvo鴈n?objektu pro zadan?bodu1
      Variant vPt2 = new Variant(); // vytvo鴈n?objektu pro zadan?bodu2
      vPt1.VariantClear();          // vymaz醤?objektu pro zad醤i bodu
      vPt2.VariantClear();          // vymaz醤?objektu pro zad醤i bodu
      int hr = 0;                   // pomocn?prom靚n? kontroluj韈?
                                         // jestli do歭o k chyb?
      Variant prompt = new Variant();

      try            // blok k骴u, v kter閙 se kontroluje v齭kyt chyby
      {               // zad醤?prvn韍o bodu
        prompt.putString("输入第一点 ===>");
        vPt1 = IUtil.GetPoint(opt, prompt);
      }              // odchycen?vygenerovan?chyby
      catch (ComException e)
      {              // nastaven?pomocn?prom靚n?
        hr = e.getHResult();
      }
      if (hr == 0)
      {
        try            // blok k骴u, v kter閙 se kontroluje v齭kyt chyby
        {               // zad醤?druh閔o bodu
          prompt.putString("输入第二点 ===>");
          vPt2 = IUtil.GetPoint(vPt1, prompt);
        }              // odchycen?vygenerovan?chyby
        catch (ComException e)
        {              // nastaven?pomocn?prom靚n?
          hr = e.getHResult();
        }
      }

      IAcadLine ILine;    // objekt 栳ra
      IAcadCircle ICir;    // objekt kru瀗ice
      IAcadArc IArc;       // objekt v齭e?
      if (hr == 0)        // nebyli vygenerov醤y 炨dn?v齤imky, 
      {                         // m鶠eme kreslit objekty 
        ILine = (IAcadLine) IMSpace.AddLine(vPt1, vPt2); 
                                      // vykreslen?栳ry
        ILine.putColor(2);    // nastaven?barvy
        ICir = (IAcadCircle) IMSpace.AddCircle(vPt1, 2.5);
                                             // vykreslen?kru瀗ice
        ICir.putColor(3);       // nastaven?barvy
        IArc = (IAcadArc) IMSpace.AddArc(vPt2, 2.5, 0.707, 1.414);
                                             // vykreslen?v齭e鑕
        IArc.putColor(4);     // nastaven?barvy
      }
    }
  }