AddDrawingFile 方法 （ActiveX/ATO）
将图形文件添加到传递集。 支持的平台：仅限 Windows 命名空间：传输塔利布 集会：AcETransmit19.tlb 签名VBA/VB.NET： RetVal = object.addDrawingFile(fullpathname, ppIAddedFile) C#: RetVal = object.addDrawingFile(fullpathname, out ppIAddedFile);
言论没有其他评论。 发行信息释放：AutoCAD 2005 及更高版本
例子VB.NET： ' Custom command to create a transmittal package with a drawing file
<CommandMethod("eTransmitDWGFile")> _
Public Shared Sub eTransmitDWGFile()
' Create a transmittal operation
Dim tro As TransmittalOperation = New TransmittalOperation()
' Setup the transmittal behavior
Dim ti As TransmittalInfo = _
TransInfo(tro.getTransmittalInfoInterface(), "C:\Users\Public\TransmittalAPITest\")
' Add a DWG file
Dim tf As TransmittalFile = Nothing
tro.addDrawingFile("C:\AutoCAD\Sample\Sheet Sets\Architectural\A-02.dwg", tf)
' Reclaculate the sub path for all files in the transmittal package
tro.recalcTargetSubPath()
' Create the transmittal package
' Files are copied and resaved to the path specified by the destinationRoot property
' and the other settings of the TransmittalInfo object.
tro.createTransmittalPackage()
End Sub
C#: // Custom command to create a transmittal package with a drawing file
[CommandMethod("eTransmitDWGFile")]
public static void eTransmitDWGFile()
{
// Create a transmittal operation
TransmittalOperation tro = new TransmittalOperation();
// Setup the transmittal behavior
TransmittalInfo ti =
TransInfo(tro.getTransmittalInfoInterface(), "C:\\Users\\Public\\TransmittalAPITest\\");
// Add a DWG file
TransmittalFile tf = null;
tro.addDrawingFile("C:\\AutoCAD\\Sample\\Sheet Sets\\Architectural\\A-02.dwg", out tf);
// Reclaculate the sub path for all files in the transmittal package
tro.recalcTargetSubPath();
// Create the transmittal package
// Files are copied and resaved to the path specified by the destinationRoot property
// and the other settings of the TransmittalInfo object.
tro.createTransmittalPackage();
}
相关参考 |
|Archiver|CAD开发者社区
( 苏ICP备2022047690号-1 )
GMT+8, 2024-6-27 16:07
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.
