Topic: plotstyle.ctb "problem"

[Notsober]

I can learn how to be the "official" CAD manager from this guy.

I have everyone using a mapped drive to the same files including the same networked Profile.arg

In my enterprise mnl I call a few items as well:

Code: [Select]

;==========================================================================================================================================
(command "XLOADCTL" 2) ; Creates XREF copies to lock instead of locking people out of the XREF files themselves.
(command "TEXTFILL" 1)
(command "MIRRTEXT" 0)
(command "PDMODE" 1)
(command "OLEQUALITY" 0) ; Sets OLE object (like Excel Files) to print monochrome
(command "rememberfolders" 1) ; Sets the previous folder to open with each dialog
(command "coords" 2)
(command "ACADLSPASDOC" 1)
(command "PUBLISHCOLLATE" 0)
(command "PUBLISHALLSHEETS" 0)
(command "pickstyle" 0)
(command "savetime" 15)
(command "sigwarn" 0)
(command "imageframe" 2)
(command "VISRETAIN" 1)
(command "ATTDIA" 1)
(command "SDI" 0)
(command "FILEDIA" 1)
(command "CMDDIA" 1)
(COMMAND "REGENAUTO" "ON")
(command "recoverymode" 0)
(command "drawingrecoveryhide")
(command "PROXYNOTICE" 0) ; disables proxy graphics warning notice
(command "STANDARDSVIOLATION" 0) ; disables standards warning notice
(command "PLQUIET" 1) ; disables PLOT/PUBLISH warning notices
(command "BACKGROUNDPLOT" 0) ; 2 for publish in background or 3 background PLOT/PUBLISH warning notices
(command "DXEVAL" 8) ; ALWAYS UPDATES LINKED REFERENCES
(command "BINDTYPE" 1)
(command "PROXYGRAPHICS" 1)
;==========================================================================================================================================
(prompt "\nDialog Control Variables set!!")

;==========================================================================================================================================Control Line Scaling
(command "PSLTSCALE" 0)
(command "MSLTSCALE" 0)
;==========================================================================================================================================
(prompt "\nMSpace & PSpace LTScale Varaibles set to 0!! Defaults to LTSCALE settings now!")

;==========================================================================================================================================Layer Control Handling
(setvar "LAYEREVAL" 0) ; turns off XREF layer warning controls
(setvar "LAYERNOTIFY" 0) ; turns off unreconciled layer warning controls
(setvar "LAYLOCKFADECTL" 0) ; adjusts layer locked fade controls
;==========================================================================================================================================
(prompt "\nLayer Handling variables set!!")
Check to make sure your using ctb and not stb plotting in your interface by default?
command: convertctb

[KewlToyZ]

I'm a CAD Standards Nazi  :pissed:

[Notsober]

yeah, the engineer here and I go 'round and 'round in the rocks sometimes about consistency.

now he makes a big deal about my plots looking "better" than his.

I'm still not sure though that I had not "done something" to my settings that I just can't recall.

[M-dub]

So, is this a network printer or is it a local printer, connected to this person's computer?  If it's the latter, that machine would have to be on for anyone to print.

network printer = everyone can print to it. plus I can print directly(locally) to it too. It's actually right in my office cubicle 

Ok, so how does everyone connect to it?  Network Printer?

What if each of you reinstalled the printer the exact same way?  Maybe theirs are all wrong and yours is right... maybe theirs are right and yours is wrong.  Who knows?

[Notsober]

So, is this a network printer or is it a local printer, connected to this person's computer?  If it's the latter, that machine would have to be on for anyone to print.

network printer = everyone can print to it. plus I can print directly(locally) to it too. It's actually right in my office cubicle 

Ok, so how does everyone connect to it?  Network Printer?

What if each of you reinstalled the printer the exact same way?  Maybe theirs are all wrong and yours is right... maybe theirs are right and yours is wrong.  Who knows?

they connect thru it over the network 

we do have a server. but "IT" takes care of that. Mind you, "IT" is one lady. I think she took a couple semester in college for it. The rest she just googles...

[MP]

Possibly helpful --

Code: [Select]

(defun _GetWmiService ( / wmiLocater wmiService )

    ;;==================================================================
    ;;
    ;;  2007/12/xx Michael Puckett
    ;;
    ;;      (with thanks to Daniel from theswamp.org for helpful nudges)
    ;;
    ;;------------------------------------------------------------------
    ;;
    ;;  http://msdn2.microsoft.com/en-us/library/aa389763(VS.85).aspx
    ;;
    ;;  Set objLocator = CreateObject("WbemScripting.SWbemLocator")
    ;;  Set objService = objLocator.ConnectServer(".", "root\cimv2")
    ;;
    ;;==================================================================

    (setq
        wmiLocater (vlax-create-object "WbemScripting.SWbemLocator")
        wmiService (vlax-invoke wmiLocater 'ConnectServer "." "root\\cimv2")
    )

    (vlax-release-object wmiLocater)

    ;;  caller's responsibility to release the
    ;;  wmi service when it's no longer needed

    wmiService

)

Code: [Select]

(defun _AddPrinter ( printerName / wmiService result )

    ;;==================================================================
    ;;
    ;;  2007/12/xx Michael Puckett
    ;;
    ;;------------------------------------------------------------------
    ;;
    ;;  printerName must be a unc path to a valid device, e.g.
    ;;
    ;;      (_AddPrinter "\\\\myserver\\myprinter")
    ;;
    ;;------------------------------------------------------------------
    ;;
    ;;  See http://msdn2.microsoft.com/en-us/library/aa394585(VS.85).aspx
    ;;
    ;;==================================================================

    ;;  strComputer = "atl-ws-01"
    ;;  Set objWMIService = GetObject( _
    ;;      "winmgmts:{impersonationLevel=Impersonate}!\\" & _
    ;;      strComputer & "\root\cimv2")
    ;;  Set objPrinter = objWMIService.Get("Win32_Printer")
    ;;  errReturn = objPrinter.AddPrinterConnection _
    ;;      ("\\PrintServer1\ArtDepartmentPrinter")

    (setq result
        (null
            (vl-catch-all-error-p
                (vl-catch-all-apply
                   '(lambda ( )
                        (vlax-invoke
                            (setq printer
                                (vlax-invoke
                                    (setq wmiService (_GetWmiService))
                                   'Get
                                    "Win32_Printer"
                                )
                            )
                            'AddPrinterConnection
                            printerName
                        )
                    )
                )
            )
        )
    )                       

    (if printer (vlax-release-object printer))
    (if wmiService (vlax-release-object wmiService))

    result

)
Then:

(_AddPrinter "\\\\myserver\\myprinter")

[Notsober]

and this means what?

i know how to learn code/programming, but it has to be explain a little bit more than just posting the code. Cuz as it is, I don't know what the code is supposed to do, what I'm supposed to do with it.

help out a little more plz...?

i don't want just an inch, i want the whole mile 

Possibly helpful --

Code: [Select]

(defun _GetWmiService ( / wmiLocater wmiService )

    ;;==================================================================
    ;;
    ;;  2007/12/xx Michael Puckett
    ;;
    ;;      (with thanks to Daniel from theswamp.org for helpful nudges)
    ;;
    ;;------------------------------------------------------------------
    ;;
    ;;  http://msdn2.microsoft.com/en-us/library/aa389763(VS.85).aspx
    ;;
    ;;  Set objLocator = CreateObject("WbemScripting.SWbemLocator")
    ;;  Set objService = objLocator.ConnectServer(".", "root\cimv2")
    ;;
    ;;==================================================================

    (setq
        wmiLocater (vlax-create-object "WbemScripting.SWbemLocator")
        wmiService (vlax-invoke wmiLocater 'ConnectServer "." "root\\cimv2")
    )

    (vlax-release-object wmiLocater)

    ;;  caller's responsibility to release the
    ;;  wmi service when it's no longer needed

    wmiService

)

Code: [Select]

(defun _AddPrinter ( printerName / wmiService result )

    ;;==================================================================
    ;;
    ;;  2007/12/xx Michael Puckett
    ;;
    ;;------------------------------------------------------------------
    ;;
    ;;  printerName must be a unc path to a valid device, e.g.
    ;;
    ;;      (_AddPrinter "\\\\myserver\\myprinter")
    ;;
    ;;------------------------------------------------------------------
    ;;
    ;;  See http://msdn2.microsoft.com/en-us/library/aa394585(VS.85).aspx
    ;;
    ;;==================================================================

    ;;  strComputer = "atl-ws-01"
    ;;  Set objWMIService = GetObject( _
    ;;      "winmgmts:{impersonationLevel=Impersonate}!\\" & _
    ;;      strComputer & "\root\cimv2")
    ;;  Set objPrinter = objWMIService.Get("Win32_Printer")
    ;;  errReturn = objPrinter.AddPrinterConnection _
    ;;      ("\\PrintServer1\ArtDepartmentPrinter")

    (setq result
        (null
            (vl-catch-all-error-p
                (vl-catch-all-apply
                   '(lambda ( )
                        (vlax-invoke
                            (setq printer
                                (vlax-invoke
                                    (setq wmiService (_GetWmiService))
                                   'Get
                                    "Win32_Printer"
                                )
                            )
                            'AddPrinterConnection
                            printerName
                        )
                    )
                )
            )
        )
    )                       

    (if printer (vlax-release-object printer))
    (if wmiService (vlax-release-object wmiService))

    result

)
Then:

(_AddPrinter "\\\\myserver\\myprinter")

[CaddmannQ]

Aaaak! I'm 3 pages behind again!

What I meant is the advanced settings for the plotter as installed under windows itself. Not any settings under AutoCAD.

See if the settings under Windows/Printers differ between the machines.

[Notsober]

Aaaak! I'm 3 pages behind again!

What I meant is the advanced settings for the plotter as installed under windows itself. Not any settings under AutoCAD.

See if the settings under Windows/Printers differ between the machines.

http://www.theswamp.org/index.php?topic=21381.msg259162#msg259162

these settings?

these settings are the same on all 4 machines.

[Notsober]

or these settings?

[CaddmannQ]

...these settings?

these settings are the same on all 4 machines.

Yeah, the upper image. All the settings on all the tabs (and sub-menus) should be the same for all machines.

OOPS! Cross post!

I mean the windows settings which appears to be what you're showing me in the latest image as well.

[Notsober]

yes, all these settings are the same 

[MP]

and this means what?

I had quickly glanced at the thread and got the impression that it would be convenient to have an easy way for you and your peers to connect to a common network printer in your efforts to have consistent printer setups yada, ergo the code. Just ignore it; apologies for the distraction.

[Notsober]

and this means what?

I had quickly glanced at the thread and got the impression that it would be convenient to have an easy way for you and your peers to connect to a common network printer in your efforts to have consistent printer setups yada, ergo the code. Just ignore it; apologies for the distraction.

apology speedily accepted 

[CaddmannQ]

Again, I didn't read all the posts, but it seems you are addressing this as a local printer and your associates are addressing it as a network printer.

Can you address it as a network printer yourself? That means adding a printer and it's port under windows with a network name instead of "local", and calling that printer from ACAD.