Print Page | Close Window

macro linetype

Printed From: CAD Forum
Category: EN
Forum Name: AutoCAD
Forum Description: Discussion about AutoCAD and AutoCAD LT, viewers, DWG and DXF formats, Design Review, AutoCAD web, Drive, add-ons
URL: https://www.cadforum.cz/forum_en/forum_posts.asp?TID=12636
Printed Date: 17.Jul.2026 at 10:53


Topic: macro linetype
Posted By: jim78b
Subject: macro linetype
Date Posted: 26.Feb.2018 at 09:12
hello i want to draw a line on a layer and then return to previously layer 0 with byclok color is it possible i post a macro that don't work totally

^C^C_clayer AM_4;
^C^C_color BYLAYER;
^C^C_linetype;
Amzigzag;;^C^C_pline;;

i can not know how to return to layer"0" and set it the color to bycolor


Replies:
Posted By: jim78b
Date Posted: 26.Feb.2018 at 12:27
I modified

^C^C_clayer AM_4;^C^C_color BYLAYER;
^C^C-linetype;S AMZIGZAG;;
^C^C_PLINE;\\;layerp;

^C^C_clayer 0;^C^C_color BYBLOCK;^C^C-linetype;S BYLAYER;;

but is incorrect because permit to draw a single line and can not repeat the command

Posted By: Kent Cooper
Date Posted: 27.Feb.2018 at 17:20
You would need to use something like an AutoLisp routine rather than a command macro, to allow running a command with an unknown number of User inputs before going on to reset things like current properties.  If you're using the Mechanical overlay program, I assume you have full AutoCAD underlying that [not AutoCAD LT that doesn't have AutoLisp capability].  Is that correct?  If so, an AutoLisp routine could be written and defined as a command name, and wherever you have that macro [such as in a Tool Palette item] you could put the command name instead.

Posted By: jim78b
Date Posted: 28.Feb.2018 at 09:09
YES PALETTE item i prefer! thanks i want this because there is a graphical glitch in autocad mech2013 when i start amzigzag line

Posted By: Kent Cooper
Date Posted: 28.Feb.2018 at 19:16
Something like this should do it [in simplest terms, untested]:
 
(defun C:AMZP (/ clay celt cec); = AMZigzag Polyline [call it something else if you like]
  (setq clay (getvar 'clayer) celt (getvar 'celtype) cec (getvar 'cecolor))
  (setvar 'clayer "AM_4")
  (setvar 'celtype "AMZIGZAG")
  (setvar 'cecolor "BYLAYER")
  (command "_.pline"); leave you in the command
  (while (> (getvar 'cmdactive) 0) (command pause)); accept User inputs until command is ended, then:
  (setvar 'clayer clay)
  (setvar 'celtype celt)
  (setvar 'cecolor cec)
)
 
That would set the Layer and current-entity Color and Linetype back to what they were when you called the command, not necessarily to Layer 0 and ByLayer and/or ByBlock as in your original code.  But it could be altered to force them to specific settings, whether or not those were current when it was called -- that would eliminate the variables in the above code.
 
It requires that the Layer and the Linetype do already exist in the drawing, but it could be altered to find out, and do something about it if necessary.
 
Load that [do you know how?], then, in a Tool Palette item, put simply:
 
^C^CAMZP
 
but you also have the option to just type in the command name AMZP [or whatever you call it], instead of being required to go to the Tool Palette for it every time [another advantage of defining a command name like this].
 
[I do wonder why you're assigning an override linetype, rather than assigning that linetype to the AM_4 Layer and using ByLayer.]

Posted By: jim78b
Date Posted: 28.Feb.2018 at 19:21
thanks you are the best!!!


Print Page | Close Window