CAD VCL是一個(gè)高品質(zhì)多功能且含源碼的控件，它提供了幾個(gè)強(qiáng)大的類用于為您的Delphi/C++Builder應(yīng)用程序創(chuàng)建AutoCAD DXF, CGM, Hewlett-Packard PLT/HPGL, PDF和SVG文件。

CAD VCL的特性:

• 直接以AutoCAD DXF，Hewlett-Packard PLT/HPGL，CGM，PDF和SVG文件格式輸出
• 與Borland Delphi和C++ Builder（從6到2010版本）完全兼容
• 支持Unicode
• 提供源代碼

CADSoftTools——CAD VCL常見問題解答

Q1：是否能展示一個(gè)爆炸方塊的代碼？

A：您將在下面找到所需的示例代碼：

interface

uses

..., CADImage, DXFConv, sgFunction, sgConsts;

...

implementation

{$R *.dfm}

procedure ExplodeInsert(ACADImage: TsgCADImage; AInsert: TsgDXFInsert);
var
  I, J: Integer;
  vBlockEnt: TsgDXFEntity;
  vDXFInsert: TsgDXFInsert;
  vDXFLine: TsgDXFLine;
  vDXFLWPolyline: TsgDXFPolyline;
  vDXFCircle: TsgDXFCircle;

  vMatrix: TFMatrix;
  vPoint, vScale, vExtrusion: TFPoint;
  vAngle: Double;
begin
  vMatrix := AInsert.GetMatrix;

  // Iterate through entities in the block
  for I := 0 to AInsert.Block.Count - 1 do
  begin
    vBlockEnt := AInsert.Block.Entities[I];
    case vBlockEnt.EntType of
        ceLine: // LINE entity
          begin
            // Create a copy of the entity which is inside the block
            vDXFLine := TsgDXFLine.Create;
            vDXFLine.AssignEntity(vBlockEnt);
            // Multiply coordinates of the created entity by the transformation matrix
            vDXFLine.Point := FPointXMat(vDXFLine.Point, vMatrix);
            vDXFLine.Point1 := FPointXMat(vDXFLine.Point1, vMatrix);
            ACADImage.Converter.Loads(vDXFLine);
            ACADImage.CurrentLayout.AddEntity(vDXFLine);
          end;
        ceLWPolyline: // LWPOLYLINE entity
          begin
            vDXFLWPolyline := TsgDXFLWPolyline.Create;
            vDXFLWPolyline.AssignEntity(vBlockEnt);
            for J := 0 to vDXFLWPolyline.Count - 1 do
              vDXFLWPolyline.Vertexes[J].Point := FPointXMat(vDXFLWPolyline.Vertexes[J].Point, vMatrix);
            ACADImage.Converter.Loads(vDXFLWPolyline);
            ACADImage.CurrentLayout.AddEntity(vDXFLWPolyline);
          end;
        ceCircle: // CIRCLE entity
          begin
            vDXFCircle := TsgDXFCircle.Create;
            vDXFCircle.AssignEntity(vBlockEnt);
            vDXFCircle.Point := FPointXMat(vDXFCircle.Point, vMatrix);
            vDXFCircle.Radius := DistanceFVector(AffineTransformPoint(MakeFPoint(0, vDXFCircle.Radius, 0), vMatrix));
            ACADImage.Converter.Loads(vDXFCircle);
            ACADImage.CurrentLayout.AddEntity(vDXFCircle);
          end;
        ceInsert: // nested INSERT entity
          begin
            //ExplodeInsert(ACADImage, vSrcEnt as TsgDXFInsert);
            vDXFInsert := TsgDXFInsert.Create;
            vDXFInsert.AssignEntity(vBlockEnt);
            ExtractMatrixParams(FMatXMat(TsgDXFInsert(vBlockEnt).GetMatrix, vMatrix), vPoint, vScale, vExtrusion, vAngle);
            vDXFInsert.Point := vPoint;
            vDXFInsert.Scale := vScale;
            vDXFInsert.Extrusion := vExtrusion;
            vDXFInsert.Angle := vAngle;
            ACADImage.Converter.Loads(vDXFInsert);
            ACADImage.CurrentLayout.AddEntity(vDXFInsert);
          end;
    end;
  end;
  // Delete the INSERT after exploding
  ACADImage.Converter.RemoveEntity(AInsert, True);
  // Recalculate the CAD image extents
  ACADImage.GetExtents();
end;

Q2：關(guān)于處理包含3dsolids的Blocks時(shí)出現(xiàn)的問題

問：我正在嘗試使用Delphi的CAD VCL導(dǎo)入器庫(kù)創(chuàng)建表面模型。我正在遵循3D Demo中的代碼來訪問模型中的實(shí)體，但在處理包含3dsolids的Blocks時(shí)我發(fā)現(xiàn)了一些問題。

考慮2種不同的dxf模型，第一種是從圓柱體中減去棱鏡的3dsolid結(jié)果。第二個(gè)是僅包含先前3dsolid的塊。不幸的是我無法在此消息中附加模型，但您可以在此處獲取它們。

第一個(gè)模型在3D演示中顯示沒有問題。我可以看到3dsolid使用三角形進(jìn)行細(xì)分。但是，第二個(gè)模型我們簡(jiǎn)單地做了一個(gè)塊3dsolid中沒有顯示3dsolid（空白輸出），并且在代碼中永遠(yuǎn)不會(huì)到達(dá)三角形網(wǎng)格。

到目前為止，我對(duì)塊沒有任何問題。通過使用Autoinsert = TRUE，塊中包含的實(shí)體以某種方式直接出現(xiàn)在具有正確轉(zhuǎn)換矩陣的實(shí)體列表中（FCADParams.ConvertMatrixCurrentInsertToWCS）。我在3dsolids上做錯(cuò)了什么？有沒有辦法創(chuàng)建一個(gè)包含3dsolid實(shí)體的塊？

答：在AutoCAD 2010中創(chuàng)建的示例DXF文件：我們創(chuàng)建了一個(gè)平行六面體3DSolid對(duì)象，選擇它并將其與指定的基點(diǎn)（COPYBASE命令）一起復(fù)制到剪貼板，將復(fù)制的對(duì)象粘貼為塊模型空間（PASTEBLOCK命令），然后將圖形保存為AutoCAD 2010 DXF文件。

CAD3D演示項(xiàng)目正確顯示給定的DXF文件，這意味著可以顯示塊中的3DSolid（至少在您以上述方式創(chuàng)建時(shí)）。>>點(diǎn)擊查看示例演示

提問者實(shí)際處理方法：

在Autocad中創(chuàng)建塊然后插入它們的操作如下：

1. 使用BLOCK命令 - >彈出窗口，在塊中命名塊并在塊中選擇所需的對(duì)象 （成員可以是其他塊）和一個(gè)基點(diǎn)。
2. 使用INSERT命令 - >窗口彈出，您可以在其中選擇：要插入的塊， 插入點(diǎn)的縮放和旋轉(zhuǎn)，以及塊的插入副本。

Q3：關(guān)于找不到MeshBuilder.dll文件的問題

問：顯示* .stp文件需要MeshBuilder.dll。但我無法做到，甚至CAD3D演示都會(huì)顯示TsgCommonBrepImageError異常'MeshBuilder.dll無法加載！'。怎樣才能實(shí)現(xiàn)這一點(diǎn)？

答：CAD VCL需要MeshBuilder.dll和Open Cascade DLL來加載3D文件格式（STEP，IGES等）。這些庫(kù)附帶CAD VCL并位于以下文件夾中：

\ Delphi \ ExternalLib \ OpenCascade \ win32 \ vc9 \ bin \ - 用于x32平臺(tái)的庫(kù)，
\ Delphi \ ExternalLib \ OpenCascade \ win64 \ vc9 \ bin \ - 用于x64平臺(tái)的庫(kù)。

您可以將.dll文件從其中一個(gè)文件夾復(fù)制到包含可執(zhí)行文件的文件夾（例如CAD3D.exe），或者，如果您希望它們位于其他路徑，請(qǐng)調(diào)用sgFunction.InitDefMeshBuilderDllPath（）方法來定義應(yīng)用程序啟動(dòng)時(shí)的MeshBuilder.dll路徑。在CAD3D演示項(xiàng)目中，此路徑定義如下：

InitDefMeshBuilderDllPath(ExtractFilePath(Application.ExeName), 'Demos\3D\Bin\');

InitDefMeshBuilderDllPath（）方法實(shí)際上也是這樣，但也考慮了表示目標(biāo)平臺(tái)（x64或x32）的條件編譯符號(hào)SG_CPUX64：

{$IFDEF SG_CPUX64}
      cnstMeshBuilderDllPath := vExePath + 'ExternalLib\OpenCascade\win64\vc9\bin\';
{$ELSE}
      cnstMeshBuilderDllPath := vExePath + 'ExternalLib\OpenCascade\win32\vc9\bin\';
{$ENDIF}

如果您為一個(gè)目標(biāo)平臺(tái)（例如x32）編譯應(yīng)用程序，則可以使用帖子中的直接分配。

Q4：關(guān)于排序?qū)嶓w的問題

問：我有一些TsgCADCurvePolygon實(shí)體和TsgDXFinsert實(shí)體。在具有實(shí)心填充的CurvePolygons上繪制DXFInserts，有時(shí)CurvePolygon實(shí)體是在DXFinserts上繪制的，有時(shí)反之亦然。能給出一些用于排序?qū)嶓w的示例代碼嗎？

正確時(shí)：

不正確時(shí)：

答：繪制順序取決于模型空間塊中的實(shí)體索引（名稱為'* MODEL_SPACE'的塊）。實(shí)體按以下順序繪制：實(shí)體[0]，實(shí)體[1]，實(shí)體[2]等，這意味著具有較高索引值的實(shí)體在具有較低索引值的實(shí)體之上繪制。請(qǐng)嘗試以下代碼：

procedure SendEntitiesToBack(ACADImage: TsgCADImage; ALayerName: string; EntType: TsgCADEntities);
var
  I, Count: Integer;
  vModelSpaceBlock: TsgDXFBlock;
  vDXFEntity: TsgDXFEntity;
begin
  I := 0;
  Count := 0;
  vModelSpaceBlock := ACADImage.Converter.BlockByName('*MODEL_SPACE');

  while I < vModelSpaceBlock.Count do
  begin
    vDXFEntity := vModelSpaceBlock.Entities[I];
    if ((vDXFEntity.EntType = EntType) and (vDXFEntity.Layer.Name = ALayerName)) then
    begin
      Inc(Count);
      vModelSpaceBlock.InsertEntity(Count - 1, vDXFEntity);
      vModelSpaceBlock.DeleteEntity(I + 1);
    end;
    Inc(I);
  end;
end;

要首先繪制屬于“Koki_Grafiikka_Tausta”圖層的實(shí)體填充實(shí)體，您應(yīng)該按如下方式調(diào)用給定的例程，然后重新繪制CAD圖像。

SendEntitiesToBack(vCADImage, 'Koki_Grafiikka_Tausta', ceCurvePolygon);

Q5：關(guān)于使用包含3dFaces的塊保存為dwg格式時(shí)出錯(cuò)的問題

問：在嘗試將包含帶有3dFaces的塊的圖像導(dǎo)出為dwg或dxf格式時(shí)遇到了嚴(yán)重錯(cuò)誤。嘗試打開文件時(shí)，AutoCAD中的錯(cuò)誤是：

從第877370行開始 讀取INSERT 時(shí)遇到以下錯(cuò)誤：
類AcDbEntity的類分隔符預(yù)期
DXF輸入無效或不完整 - 繪圖被丟棄。

使用代碼如下：

function MakeSingleDTMFaces(pt1, pt2, pt3: TFPoint; blockName: string = 'Block'): TsgDXF3dFace;
begin
  Result:= TsgDXF3dFace.Create;
  Result.Point:= pt1;
  Result.Point1:= pt2;
  Result.Point2:= pt3;
  Result.Point3:= pt3;
  Result.Layer:= DwgCADImage.Converter.LayerByName(blockName);
end;

procedure Create3DIfcFace(IfcObject: TIfcObjectStruct);
var
  mesh3dFace: TsgDXF3dFace;
  P1: TFPoint;

  I, J: Integer;
  Step: Integer;
  vCount: Integer;
  pList: TList;

  vBlock: TsgDXFBlock;
  vInsert: TsgDXFInsert;
  layerName: string;
  bColor: TColor;
  ifcName: string;
  aColor: TAlphaColorRec;

  R,G,B,A: Int64;
begin
  pList:= TList.Create;
  vBlock := TsgDXFBlock.Create;

  ifcName:= MakeValidIdent(IfcObject.Name);
  try
    layerName:= IfcObject.IfcType + '-' + ifcName;
    vBlock.Name := ifcName + '-.-' + IntToStr(IfcObject.Instance);
    vBlock.Layer := DwgCADImage.Converter.LayerByName(layerName);
    vBlock.Flags := 2;

    // Add vertices
    Step:= 0;
    vCount:= Length(IfcObject.Vertices) div 2;
    for I := 1 to (vCount div 3) do
      begin
        P1:= MakeFPoint(IfcObject.Vertices[step], IfcObject.Vertices[step + 1], IfcObject.Vertices[step + 2]);
        pList.Add(P1);
        step:= step + 6;
      end;

    try
      begin
        Step:= 0;
        vCount:= Length(IfcObject.IndicesForFaces);
        for I := 1 to (vCount div 3) do
          begin
            mesh3dFace:= MakeSingleDTMFaces(pList[IfcObject.IndicesForFaces[step]],
                                            pList[IfcObject.IndicesForFaces[step + 1]],
                                            pList[IfcObject.IndicesForFaces[step + 2]],
                                            layerName);
            if Assigned(Dwgan>

以上是CAD VCL最新或最熱的問答，希望對(duì)你有所幫助。如果你在使用的過程中遇到其他困擾，可在下方評(píng)論區(qū)留言，或進(jìn)入資源列表查看更多教程。