- Marcar como nuevo
- Favorito
- Suscribir
- Silenciar
- Suscribirse a un feed RSS
- Resaltar
- Imprimir
- Denunciar
reviving an old thread...
ive got this lisp thats doing the same thing as OP, creating style overrides, however, only does it when the script is run, the script is to set scale settings.
I've run each command individually and it doesnt do it so im not sure where its coming from.
override: "AllianceDimStyle 150 + Overall scale = 100.0000"
script below
;; set the scale settings to the values below
(defun c:setscale ()
(setq old_layout (getvar 'ctab)) ; Save the current layout name
(setvar "cmdecho" 0) ; Turn off command line echo
(command "_model") ; Activate model space
(command "-scalelistedit" "R" "Y" "E")
(setq old_cannoscale (getvar "cannoscale")) ; Store the current cannoscale value
(setvar "cannoscale" "1:100") ; Set cannoscale to 1:100
(setq old_ltscale (getvar "ltscale")) ; Store the current linetype scale value
(setvar "ltscale" 1) ; Set linetype scale to 1
(setq old_msltscale (getvar "msltscale")) ; Store the current MSLTSCALE value
(setvar "msltscale" 1) ; Set MSLTSCALE to 1
(setq old_celtscale (getvar "celtscale")) ; Store the current CELTSCALE value
(setvar "celtscale" 1) ; Set CELTSCALE to 1
; Cycle through all the layout tabs
(setq layouts (layoutlist)) ; Get a list of all layout names
(foreach layout layouts
(setvar 'ctab layout) ; Switch to the layout
(setvar 'psltscale 1) ; Set the "psltscale" variable to 1
(command "_regenall") ; regenerate the layout
)
(setvar 'ctab old_layout) ; Switch back to the original layout
(setvar "cmdecho" 1) ; Turn on command line echo
(princ) ; Return nil at the end of the function
)
fixed it, needed to add a line for DIMSCALE to be set to 1 aswell