copy dwg name to clipboard

[Grayham]

Hi

How can I copy a dwg name to clipboard from cad?

I am trying to write a script so that I can use CutePDF Writer to batch plot Pdf's. I am having trouble extracting the drawing name (preferably without the .dwg extension) and then pasting it into the CutePDF Save As dialouge box.

Any help will be most apriciated.

Many thanks

Grayham

Edit: This is the script I have so far.

(getvar "dwgname")
-plot
no


CutePDF Writer
no
no
yes
(princ)

[rkmcswain]

67172

How can I copy a dwg name to clipboard from cad?

The easiest way would be to use DOSLIB.
The call would be (dos_clipboard (getvar "dwgname"))

If you do not want to rely on 3rd party ARX files though, then there may be other ways.

[arshiel88]

Alternatively in VBA...

Sub CopyDrawingName()

Dim ClipData As New DataObject
Dim strLength As Integer
Dim sysVarName As String

sysVarName = "DWGNAME"
varData = ThisDrawing.GetVariable(sysVarName)
strLength = Len(varData) - 4
TextVar = Left(varData, strLength)
ClipData.SetText (TextVar)
ClipData.PutInClipboard

End Sub

Just paste this code in a module then you can insert -vbarun CopyDrawingName in your script. I haven't tried the script part. Hope it works. Good Luck and Welcome to AUGI.

[Grayham]

Thanks for the advice I have managed to copy the drawing name to clipboard.

What I now need to do is paste it to a Save As dialog box that opens, if possible if this is possible.

Many thanks

Grayham.

[Avatart]

I would get the filename sans extension using:

 
(vl-filename-base (getvar "DWGNAME"))

To paste it into another app could prove a little tricky, from you code I am assuming you are using the Command Line printing routine?

If so then I think you could set a Lisp variable and then use that variable further down you script, like this:

 
(setvar "TEXTEVAL" 1)
(setvar "FILEDIA" 0)
(setq dwgname (vl-filename-base (getvar "DWGNAME")))
~your plot routine up to asking for name~
!dwgname
~rest of plot routine, if any~
(setvar "FILEDIA" 1)
(setq dwgname nil)

[rkmcswain]

I am trying to write a script so that I can use CutePDF Writer to batch plot Pdf's.

You are going to find the freebie "CutePDF" difficult, if not impossible to deal with as far as file names, not to mention other aspects. If you need to print a lot of PDF's, consider getting a seat of AcroPlot.

[Avatart]

You are going to find the freebie "CutePDF" difficult, if not impossible to deal with as far as file names, not to mention other aspects. If you need to print a lot of PDF's, consider getting a seat of AcroPlot.

We use CutePDF as a printer profile in our default drawing template, no problems at all.

The other way to deal with it would be to use a Batch Plotter. I'm sure you could get a freebie off the 'net. My company does do one you can buy, but hey, why pay if you don't have to?

[rkmcswain]

We use CutePDF

We tried it for a while, but there were too many problems. AcroPlot cost a bit of course, but since installing - we have not looked back.

[Avatart]

We tried it for a while, but there were too many problems. AcroPlot cost a bit of course, but since installing - we have not looked back.

We embedded the CutePDF in our Batch Plot routine, works fine for us. I think that once you get the setup right, it's OK, just takes a bit of setting up.

[rkmcswain]

We embedded the CutePDF in our Batch Plot routine, works fine for us. I think that once you get the setup right, it's OK, just takes a bit of setting up.

How do you configure the output file name?
What do you do about "lines merge"?
What if you want separate PDF files for each layout?
What if you want a single PDF from all layouts?
What about bookmarks in the PDF?