Jump to content

Problem with automatic .plt LISP lineweight


Frei

Recommended Posts

Hello everyone,

 

recently I edited a simple routine to automatically generate .pdf files in both monochrome and coloured plot styles; currently I've been trying to create a routine for .plt files - the problem: the routine is running fine with the window selection, paper size center, etc. until it asks me the following:

 

"Plot with lineweights? [Y/N]" - my answer is "Y" as I do want to keep the lineweights.

 

"Scale lineweights with plot scale? [Y/N]" - not sure, I had it set to "Y".

 

This is my routine:

(defun c:plttest (/ fl)
(setq fl (strcat (getvar "dwgprefix") (getvar "dwgname")))
(setq fl (strcat (vl-string-right-trim ".dwg" fl) "-" (getvar "ctab") ".pdf"))
(if (findfile fl)
 (command "-plot" "Y" ""  "HP Officejet Pro 8600 (Rede)" "A4" "I" "L" "N"
      "W" pause pause "F" "C" "Y" "Monochrome.ctb" [color="red"][b]"Y"[/b][/color] "" [color="red"][b]"Y"[/b][/color] "" "Y" "" "Y" "")
 (command "-plot" "Y" ""  "HP Officejet Pro 8600 (Rede)" "A4" "I" "L" "N"
      "W" pause pause "F" "C" "Y" "Monochrome.ctb" [color="red"][b]"Y"[/b][/color] "" [color="red"][b]"Y"[/b][/color] "" "Y" "" "Y" "")
 );if
 (princ)
 )

----------------------------------------------------------

AutoCADs outputs (the original A0 format I made):

----------------------------------------------------------

Detailed plot configuration? [Yes/No] : y

 

Enter a layout name or [?] :

 

 

Enter an output device name or [?] : DesignJet 650C C2859B.pc3

 

Enter paper size or [?] : ISO A0 (841.00 x 1189.00 MM)

 

Enter paper units [inches/Millimeters] : I

 

Enter drawing orientation [Portrait/Landscape] : L

 

Plot upside down? [Yes/No] : N

 

Enter plot area [Display/Extents/Layout/View/Window] : W

 

Enter lower left corner of window :

 

Enter upper right corner of window :

 

Enter plot scale (Plotted Inches=Drawing Units) or [Fit] : F

 

Enter plot offset (x,y) or

: C

 

Plot with plot styles? [Yes/No] : Y

 

Enter plot style table name or [?] (enter . for none) : monochrome.ctb

 

Plot with lineweights? [Yes/No] : Y

 

Scale lineweights with plot scale? [Yes/No] : Y

 

Plot paper space first? [Yes/No] : Y

 

Hide paperspace objects? [Yes/No] : Y

 

Write the plot to a file [Yes/No] : Y

 

Save changes to page setup [Yes/No]? Y

 

Proceed with plot [Yes/No] : Y

 

Effective plotting area: 815.83 wide by 1153.41 high

 

Plotting viewport 1.

Effective plotting area: 796.29 wide by 953.52 high

 

Plotting viewport 2.

--------------------------------------

It looks right, but when I test the .plt it looks just rubbish, like a glitched print.

 

I also tried answering "N" to both variables but the result was a very, very thin lineweight rather than the default 0.2500mm.

 

Is there any workaround for this problem?

Edited by Frei
Link to comment
Share on other sites

Have you checked the monochrome line weights using the ctb will override your line settings

 

my settings no probs

 

(COMMAND "-PLOT"  "Y"  "" "dwg to Pdf"
       "Iso full bleed A3 (420.00 x 297.00 MM)" "m" "LANDSCAPE"  "N"   "W"  "-6,-6" "807,560" "1=2"  "C"
       "y" "Designlasercolour.ctb" "Y" "n" "n" "n" pdfName "N" "y"      )
   )

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...