Jump to content

Set a desired dimension style as current style without going into the dialogue?


Recommended Posts

Is there a shortcut for setting a certain dimstyle as default similar to right clicking 'set current as default' (which is available for some features) without going into the dialogue box? It would be fine to do that if the author of the drawings didn't have 50 with similar names. Thanks

Link to post
Share on other sites

I use this lisp and a macro attached to a button. ^C^Csetdim.

Select an existing dimension object and run SetDim to make it current. It also switch current layer to dimension's layer.

(defun C:SETDIM (/ e)
 (if
   (setq e (ssget ":E:S" '((0 . "DIMENSION"))))
   (progn
     (setq e (entget (ssname e 0)))
     (command "DIMSTYLE" "R" (cdr (assoc 3 e)))
     (setvar "CLAYER" (cdr (assoc 8 e)))
     )
 )
(princ)
)

Link to post
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
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...