simple PDF-Plot by vb.net
Hi,
If everything is defined, you can script the PLOT command using the Editor.Command() method, only specfying the layout name and the file name with "" (empty string) to validate the default options.
var ed = Autodesk.AutoCAD.ApplicationServices.Core.Application.DocumentManager.MdiActiveDocument.Editor;
ed.Command("_PLOT", "_No", layoutName, "", "", fileName, "_No", "_Yes");
Did you try to do it directly at the command line?
Command: _-plot
Detailed plot configuration? [Yes No] <No>: _No
Layout name [?] : ...
This way you can see which option failed.
PS: you do not need to explicitly build an object array for the Editor.Command() method because it accepts a ParamArray.
acDocument.Editor.Command("_PLOT", "_No", CurrentLayout, "", "", OutputFile4PDF, "_No", "_Yes")
PPS: scripting AutoCAD commands is much more easy with AutoLISP because you can do it step by step directly at command line:
(command "_PLOT")
(command "_PLOT" "_No")
(command "_PLOT" "_No" layoutName)
...
(command "_PLOT" "_No" layoutName "" "" fileName "_No" "_Yes")
It seems to me that you do not have to escape the underscore (\) with an other underscore in VB strings.
acDocument.Editor.Command("_-PLOT" "_No" "PdfRaster1000x1000" "" "_DWG To PDF_NoPreview.pc3" "P:\KARTEN\Sielkataster_1000_PDF\Neu\2575_2020-03-26.pdf" "_No" "_Yes")
Oops!...
My mistake, arguments have to be separated with commas:
acDocument.Editor.Command("_-PLOT", "_No", "PdfRaster1000x1000", "", "_DWG To PDF_NoPreview.pc3", "P:\KARTEN\Sielkataster_1000_PDF\Neu\2575_2020-03-26.pdf", "_No", "_Yes")
If it still don't work, you can find which argument is not valid usind using CommandAsync and run the code step by step.
C#
[CommandMethod("TEST")]
public async static void Test()
{
Editor ed = Autodesk.AutoCAD.ApplicationServices.Core.Application.DocumentManager.MdiActiveDocument.Editor;
await ed.CommandAsync("_PLOT");
await ed.CommandAsync("_No");
await ed.CommandAsync("PdfRaster1000x1000");
await ed.CommandAsync("");
await ed.CommandAsync("_DWG To PDF_NoPreview.pc3");
await ed.CommandAsync(@"P:\KARTEN\Sielkataster_1000_PDF\Neu\2575_2020-03-26.pdf");
await ed.CommandAsync("_No");
await ed.CommandAsync("_Yes");
}VB (convert with Telerik, not tested)
<CommandMethod("TEST")>
Public Async Shared Sub Test()
Dim ed As Editor = Autodesk.AutoCAD.ApplicationServices.Core.Application.DocumentManager.MdiActiveDocument.Editor
Await ed.CommandAsync("_PLOT")
Await ed.CommandAsync("_No")
Await ed.CommandAsync("PdfRaster1000x1000")
Await ed.CommandAsync("")
Await ed.CommandAsync("_DWG To PDF_NoPreview.pc3")
Await ed.CommandAsync("P:\KARTEN\Sielkataster_1000_PDF\Neu\2575_2020-03-26.pdf")
Await ed.CommandAsync("_No")
Await ed.CommandAsync("_Yes")
End Sub
@jan_tappenbeck wrote:
then i try to take the async-way. i could not start the new command and so i call like subfunction by my code.
Could you elaborate about the context you're calling this code, because you cannot call Editor.Command() in application context.
