2016 AutoCAD basic Lisp help requested

[shoemark.peter729551]

I think I have the worlds most basic lsp to set dimension styles and just can't get it to run when called from another routine.
My code;

(defun c:10mm ()
	(setvar "DIMSCALE" 10)
	(COMMAND "-DIMSTYLE" "SAVE" "10mm" "y")   
)

I want it to override the current version of 10mm dimstyle so I need the "y".
The problem arises at the "y" bit, as below;

Command: 10mm

Current dimension style: STANDARD Annotative: No

Unable to recognize command "y". Please try again."y"

However if I just paste the line containing the "y" as below at the command line, it works fine.
(COMMAND "-DIMSTYLE" "SAVE" "10mm" "y")

Any suggestions??

[tedg]

I think I have the worlds most basic lsp to set dimension styles and just can't get it to run when called from another routine.
My code;

(defun c:10mm ()
	(setvar "DIMSCALE" 10)
	(COMMAND "-DIMSTYLE" "SAVE" "10mm" "y")   
)

I want it to override the current version of 10mm dimstyle so I need the "y".
The problem arises at the "y" bit, as below;

Command: 10mm

Current dimension style: STANDARD Annotative: No

Unable to recognize command "y". Please try again."y"

However if I just paste the line containing the "y" as below at the command line, it works fine.
(COMMAND "-DIMSTYLE" "SAVE" "10mm" "y")

Any suggestions??

Try this:

(defun c:10mm ()
(setvar "dimscale" 10)
(command "-dimstyle" "save" "10mm")
(princ)
)

[shoemark.peter729551]

Thanks for the reply.
To explain a little further, my routine must overwrite the existing as we have 'fiddlers' who insist on playing with dim settings to suit themselves, so even though the current version (and yours) creates successfully, it doesnt overwrite a dimstyle once created..
Each time the 'fiddlers' select from the pulldown menu, my routine is supposed to force an overwrite.

[tedg]

Thanks for the reply.
To explain a little further, my routine must overwrite the existing as we have 'fiddlers' who insist on playing with dim settings to suit themselves, so even though the current version (and yours) creates successfully, it doesnt overwrite a dimstyle once created..
Each time the 'fiddlers' select from the pulldown menu, my routine is supposed to force an overwrite.

Ok here's a refined version based on what you mentioned.

(defun c:10mm ()
(setvar "dimscale" 10)
(if (= (tblsearch "dimstyle" "10mm") nil) ;; looks for style named 10mm
(command "-dimstyle" "save" "10mm") ;; if nil, saves it to 10mm
(command "-dimstyle" "save" "10mm" "y")) ;; if not nil (it exists) redefines 10mm
(princ)
)

Hope that helps

[BIG-AL]

With multi users is there a company standard ? This is rule number one and you need management to insist.

I supervised 6 designers and would not name and shame but would let everyone know about company stds not being kept.

[tedg]

With multi users is there a company standard ? This is rule number one and you need management to insist.

I supervised 6 designers and would not name and shame but would let everyone know about company stds not being kept.

Yes very true, that's what CAD QC is for.
Periodic checking for company standards, and REJECT them for violations such as this.
They will eventually get the hint when they keep getting stuff to fix and/or bad performance reviews.

If nothing else, like you mention.. keep bringing it up to the group.