Jump to content

Macro faults

DWG Destroyer

By DWG Destroyer
in AutoLISP, Visual LISP & DCL

 Share

Recommended Posts

DWG Destroyer Collaborator

DWG Destroyer

Posted
Posted

Having a problem with this macro I put together;

^C^C-layer;_s;"CSP_DIMS";;-dimstyle;R;;\_dimlinear;\\\_layerp;

99% of the time it will run through its course and do what is asked, but every now and then it will fault and i will get an endless chain of beeps, alerting the whole office! Tried hitting this from different angles and so far its going badly. I like this macro and want to keep it, I don’t want to go back to having dims on loads of different layers on a drawing! Any remedial action that could be taken to achieve a healthy macro here? It's becoming a real pain.

Cheers!

Lee Mac Grand Master

Lee Mac

Posted
Posted

Didn't we go through this before?

 

I would advise using a reactor if its layer switching you are after :wink:

DWG Destroyer Collaborator

DWG Destroyer

Posted
  • Author
Posted

That is correct, I am using a reactor also;

[/size][/font]
[font=Arial][/font]
[font=Arial][size=3](defun c:ReON ()[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]  (vl-load-com)[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]  (if (not *Dim:React*)[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]    (progn[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]      (setq *Dim:React*[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]        (vlr-command-reactor nil[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]          (list[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]            (cons :vlr-CommandWillStart 'StrtComm)[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]            (cons :vlr-CommandEnded      'EndComm)[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]            (cons :vlr-CommandCancelled  'CanComm))))[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]      (if (not (tblsearch "LAYER" "CSP_DIMS"))[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]        (vla-add[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]          (vla-get-layers[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]            (vla-get-ActiveDocument[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]              (vlax-get-acad-object))) "CSP_DIMS"))[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]      (princ "\n<<- Reactor Initiated ->>")))[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]  (princ))[/size][/font]
[font=Arial][/font]
[font=Arial][/font]
[font=Arial][/font]
[font=Arial][size=3](defun StrtComm (React Args / *doc)[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]  (setq old#lay (getvar "CLAYER"))[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]  (if (wcmatch (strcase (car Args)) "DIM*")[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]    (setvar "CLAYER" "CSP_DIMS")))[/size][/font]
[font=Arial][/font]
[font=Arial][/font]
[font=Arial][/font]
[font=Arial][size=3](defun EndComm (React Args)[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]  (if (and old#lay[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]        (wcmatch (strcase (car Args)) "DIM*"))      [/size][/font]
[font=Arial][/font]
[font=Arial][size=3]    (setvar "CLAYER" old#lay)))[/size][/font]
[font=Arial][/font]
[font=Arial][/font]
[font=Arial][/font]
[font=Arial][size=3](defun CanComm (React Args)[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]  (if (and old#lay[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]        (wcmatch (strcase (car Args)) "DIM*"))      [/size][/font]
[font=Arial][/font]
[font=Arial][size=3]    (setvar "CLAYER" old#lay))) [/size][/font]
[font=Arial][/font]
[font=Arial][/font]
[font=Arial][/font]
[font=Arial][size=3](defun c:ReOFF (/ old#lay)[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]  (if *Dim:React*[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]    (progn[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]      (vlr-remove *Dim:React*)[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]      (setq *Dim:React* nil)[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]      (princ "\n<<- Reactor Deactivated ->>")))[/size][/font]
[font=Arial][/font]
[font=Arial][size=3]  (princ))[/size][/font]
[font=Arial][/font]
[font=Arial][/font]
[font=Arial][/font]
[font=Arial][size=3]

I haven't the slightest why it’s playing up like this, I thought it was ok but an update from 2008 to 2009 has burdened me!

 

Lee Mac Grand Master

Lee Mac

Posted
Posted

If you are using the reactor then you should not need that macro! :geek:

DWG Destroyer Collaborator

DWG Destroyer

Posted
  • Author
Posted

Ahh I think I see what is going on now. When I first put the reactor in and took out the macro, I wasn’t getting the same deal the macro was providing me with. I.e. when I tested it by using a leader, I was getting what AutoCAD normally gives out – a regular leader. I was unaware that this reactor affected dimensions only. Also, it appears to only change the layers? Dim styles remain unaltered. Am I to re-jig the macro to allow the reactor to initiate layer changes and then do the rest of the work? Puzzled :oops:

Lee Mac Grand Master

Lee Mac

Posted
Posted

This should work better:

 

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:ReON [b][color=RED]([/color][/b] [b][color=RED])[/color][/b]

 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] *dim_lay* [b][color=#ff00ff]"CSP_DIMS"[/color][/b]  [i][color=#990099];; <<-- Dimension Layer[/color][/i]
       *dim_sty* [b][color=#ff00ff]"Tester"[/color][/b]    [i][color=#990099];; <<-- Dimension Style[/color][/i]
 [b][color=RED])[/color][/b]
 
 [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] *doc
   [b][color=RED]([/color][/b][b][color=BLUE]vla-get-ActiveDocument[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]vlax-get-acad-object[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] *Dim:React*[b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] *Dim:React*
       [b][color=RED]([/color][/b][b][color=BLUE]vlr-command-reactor[/color][/b] [b][color=BLUE]nil[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [color=Blue][b]:vlr-CommandWillStart[/b][/color] [b][color=DARKRED]'[/color][/b]StrtComm[b][color=RED])[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=Blue]:vlr-CommandEnded [/color][/b]     [b][color=DARKRED]'[/color][/b]EndComm[b][color=RED])[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][color=Blue] :vlr-CommandCancelled[/color][/b]  [b][color=DARKRED]'[/color][/b]CanComm[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]tblsearch[/color][/b] [b][color=#ff00ff]"LAYER"[/color][/b] *dim_lay*[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]vla-add[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]vla-get-layers[/color][/b] *doc[b][color=RED])[/color][/b] *dim_lay*[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]tblsearch[/color][/b] [b][color=#ff00ff]"DIMSTYLE"[/color][/b] *dim_sty*[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]vla-add[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]vla-get-Dimstyles[/color][/b] *doc[b][color=RED])[/color][/b] *dim_sty*[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#ff00ff]"\n<<- Reactor Initiated ->>"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] StrtComm [b][color=RED]([/color][/b]React Args[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] old#lay [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=#ff00ff]"CLAYER"[/color][/b][b][color=RED])[/color][/b] old#sty [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=#ff00ff]"DIMSTYLE"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]wcmatch[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcase[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] Args[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=#ff00ff]"*DIM*,*LEADER"[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]vl-catch-all-apply[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]function[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b] [b][color=RED])[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]vla-put-ActiveDimstyle[/color][/b] *doc
             [b][color=RED]([/color][/b][b][color=BLUE]vla-item[/color][/b]
               [b][color=RED]([/color][/b][b][color=BLUE]vla-get-Dimstyles[/color][/b] *doc[b][color=RED])[/color][/b] *dim_sty*[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=#ff00ff]"CLAYER"[/color][/b] *dim_lay*[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] EndComm [b][color=RED]([/color][/b]React Args[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] old#lay old#sty
       [b][color=RED]([/color][/b][b][color=BLUE]wcmatch[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcase[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] Args[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=#ff00ff]"*DIM*,*LEADER"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]vl-catch-all-apply[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]function[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b] [b][color=RED])[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]vla-put-ActiveDimstyle[/color][/b] *doc
             [b][color=RED]([/color][/b][b][color=BLUE]vla-item[/color][/b]
               [b][color=RED]([/color][/b][b][color=BLUE]vla-get-Dimstyles[/color][/b] *doc[b][color=RED])[/color][/b] old#sty[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=#ff00ff]"CLAYER"[/color][/b] old#lay[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] CanComm [b][color=RED]([/color][/b]React Args[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] old#lay old#sty
       [b][color=RED]([/color][/b][b][color=BLUE]wcmatch[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcase[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] Args[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=#ff00ff]"*DIM*,*LEADER"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]vl-catch-all-apply[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]function[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b] [b][color=RED])[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]vla-put-ActiveDimstyle[/color][/b] *doc
             [b][color=RED]([/color][/b][b][color=BLUE]vla-item[/color][/b]
               [b][color=RED]([/color][/b][b][color=BLUE]vla-get-Dimstyles[/color][/b] *doc[b][color=RED])[/color][/b] old#sty[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=#ff00ff]"CLAYER"[/color][/b] old#lay[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:ReOFF [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] old#lay old#sty *doc *dim_lay* *dim_sty*[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] *Dim:React*
   [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]vlr-remove[/color][/b] *Dim:React*[b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] *Dim:React* [b][color=BLUE]nil[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#ff00ff]"\n<<- Reactor Deactivated ->>"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

DWG Destroyer Collaborator

DWG Destroyer

Posted
  • Author
Posted

Thanks for helping. Though a minor flaw I’ve noticed - the reactor does not allow me to select the dim style I want to use via the pickbox, rather, it is a preset function. Is this mandatory? Also, in using the leader command, it seems that the set layer to previous command is not initiated after the leader and text have been placed. Help??

I hope I’m not becoming too exacting :unsure:

 

Lee Mac Grand Master

Lee Mac

Posted
Posted

The Dimstyle is specified at the top of the LISP - when invoking the dimension command (without using the reactor), you wouldn't be able to use the drop down box anyway - I'm not sure what you are getting at here? Puzzled.gif

 

With regards to the layer not changing on cancel or end of the leader command - I cannot get this to fail for me... :unsure:

DWG Destroyer Collaborator

DWG Destroyer

Posted
  • Author
Posted

In the macro I created I used the "-DIMSTYLE" command to open up the dimension style manager in the command bar and in doing this ACAD would give me a pickbox for me to select an existing dimension and copy its style. Is it at all possible for your version to incorporate this?

 

Lee Mac Grand Master

Lee Mac

Posted
Posted

Something like this?

 

(defun c:ReON ( )

 (setq *dim_lay* "CSP_DIMS"  ;; <<-- Dimension Layer
       *dim_sty* "Tester"    ;; <<-- Default Dimension Style
 )
 
 (vl-load-com)
 (setq *doc
   (vla-get-ActiveDocument
     (vlax-get-acad-object)))
 (if (not *Dim:React*)
   (progn
     (setq *Dim:React*
       (vlr-command-reactor nil
         (list
           (cons :vlr-CommandWillStart 'StrtComm)
           (cons :vlr-CommandEnded      'EndComm)
           (cons :vlr-CommandCancelled  'CanComm))))
     (if (not (tblsearch "LAYER" *dim_lay*))
       (vla-add
         (vla-get-layers *doc) *dim_lay*))
     (if (not (tblsearch "DIMSTYLE" *dim_sty*))
       (vla-add
         (vla-get-Dimstyles *doc) *dim_sty*))
     (princ "\n<<- Reactor Initiated ->>")))
 (princ))

(defun StrtComm (React Args / dim obj)
 (setq old#lay (getvar "CLAYER") old#sty (getvar "DIMSTYLE"))
 (if (wcmatch (strcase (car Args)) "*DIM*,*LEADER")
   (progn
     (if (and (setq dim (car (entsel "\nSelect Object to Match Style: ")))
              (vlax-property-available-p
                (setq obj (vlax-ename->vla-object dim)) 'StyleName))
       (setq *dim_sty* (vla-get-StyleName Obj)))
     (vl-catch-all-apply
       (function
         (lambda ( )
           (vla-put-ActiveDimstyle *doc
             (vla-item
               (vla-get-Dimstyles *doc) *dim_sty*)))))
     (setvar "CLAYER" *dim_lay*))))

(defun EndComm (React Args)
 (if (and old#lay old#sty
       (wcmatch (strcase (car Args)) "*DIM*,*LEADER"))
   (progn
     (vl-catch-all-apply
       (function
         (lambda ( )
           (vla-put-ActiveDimstyle *doc
             (vla-item
               (vla-get-Dimstyles *doc) old#sty)))))
     (setvar "CLAYER" old#lay)))
 (princ))

(defun CanComm (React Args)
 (if (and old#lay old#sty
       (wcmatch (strcase (car Args)) "*DIM*,*LEADER"))
   (progn
     (vl-catch-all-apply
       (function
         (lambda ( )
           (vla-put-ActiveDimstyle *doc
             (vla-item
               (vla-get-Dimstyles *doc) old#sty)))))
     (setvar "CLAYER" old#lay)))
 (princ))

(defun c:ReOFF (/ old#lay old#sty *doc *dim_lay* *dim_sty*)
 (if *Dim:React*
   (progn
     (vlr-remove *Dim:React*)
     (setq *Dim:React* nil)
     (princ "\n<<- Reactor Deactivated ->>")))
 (princ))

DWG Destroyer Collaborator

DWG Destroyer

Posted
  • Author
Posted

Great! Works just as my macro did. Let’s hope this solves the beeping problem! Thanks a bunch for your continued help! :lol::lol:

 

Lee Mac Grand Master

Lee Mac

Posted
Posted
Great! Works just as my macro did. Let’s hope this solves the beeping problem! Thanks a bunch for your continued help! :lol::lol:

 

 

Not a problem - I just hate using macros, so if there is a LISP solution, I'll take it. Pepsi.gif

  • 2 weeks later...
DWG Destroyer Collaborator

DWG Destroyer

Posted
  • Author
Posted

Hey again, something else I have noticed about this LISP is that it does not remember the last used dim style, meaning I have to pick the dimension style from an existing dim every time I want to make a new one. Can this be fixed so that if I decide not pick any dimension to match styles with, the new dim will assume the state of the last used?

Cheers!

 

Lee Mac Grand Master

Lee Mac

Posted
Posted

It should already remember the last one used... it does for me anyway.

 

Are you saying that you don't want the "pick" prompt to appear each time?

DWG Destroyer Collaborator

DWG Destroyer

Posted
  • Author
Posted

Oh, that is worrying :( when I call the dimension command it won’t remember the last style used! If I don’t pick a style with the pick box then it will assume the 'tester' style. The pick box isn’t the problem!

Lee Mac Grand Master

Lee Mac

Posted
Posted
Oh, that is worrying :( when I call the dimension command it won’t remember the last style used! If I don’t pick a style with the pick box then it will assume the 'tester' style. The pick box isn’t the problem!

 

It will use "Tester" for the first time if you don't pick anything, then, once you have picked something, it will use that from then on.

DWG Destroyer Collaborator

DWG Destroyer

Posted
  • Author
Posted

Errm are you sure? Here's what I have in my lsp file:

 

(defun c:ReON ( )

(setq *dim_lay* "CSP_DIMS" ;;

*dim_sty* "tester" ;;

)

 

(vl-load-com)

(setq *doc

(vla-get-ActiveDocument

(vlax-get-acad-object)))

(if (not *Dim:React*)

(progn

(setq *Dim:React*

(vlr-command-reactor nil

(list

(cons :vlr-CommandWillStart 'StrtComm)

(cons :vlr-CommandEnded 'EndComm)

(cons :vlr-CommandCancelled 'CanComm))))

(if (not (tblsearch "LAYER" *dim_lay*))

(vla-add

(vla-get-layers *doc) *dim_lay*))

(if (not (tblsearch "DIMSTYLE" *dim_sty*))

(vla-add

(vla-get-Dimstyles *doc) *dim_sty*))

(princ "\n>")))

(princ))

(defun StrtComm (React Args / dim obj)

(setq old#lay (getvar "CLAYER") old#sty (getvar "DIMSTYLE"))

(if (wcmatch (strcase (car Args)) "*DIM*,*LEADER")

(progn

(if (and (setq dim (car (entsel "\nSelect Object to Match Style: ")))

(vlax-property-available-p

(setq obj (vlax-ename->vla-object dim)) 'StyleName))

(setq *dim_sty* (vla-get-StyleName Obj)))

(vl-catch-all-apply

(function

(lambda ( )

(vla-put-ActiveDimstyle *doc

(vla-item

(vla-get-Dimstyles *doc) *dim_sty*)))))

(setvar "CLAYER" *dim_lay*))))

(defun EndComm (React Args)

(if (and old#lay old#sty

(wcmatch (strcase (car Args)) "*DIM*,*LEADER"))

(progn

(vl-catch-all-apply

(function

(lambda ( )

(vla-put-ActiveDimstyle *doc

(vla-item

(vla-get-Dimstyles *doc) old#sty)))))

(setvar "CLAYER" old#lay)))

(princ))

(defun CanComm (React Args)

(if (and old#lay old#sty

(wcmatch (strcase (car Args)) "*DIM*,*LEADER"))

(progn

(vl-catch-all-apply

(function

(lambda ( )

(vla-put-ActiveDimstyle *doc

(vla-item

(vla-get-Dimstyles *doc) old#sty)))))

(setvar "CLAYER" old#lay)))

(princ))

(defun c:ReOFF (/ old#lay old#sty *doc *dim_lay* *dim_sty*)

(if *Dim:React*

(progn

(vlr-remove *Dim:React*)

(setq *Dim:React* nil)

(princ "\n>")))

(princ))

 

I have tried numerous times but it definitely does not recall the last used dim style. Help!

Lee Mac Grand Master

Lee Mac

Posted
Posted

So after you click on a dimension to use its style - will that part work?

 

And next time you make a dimension, will the style revert back to tester?

DWG Destroyer Collaborator

DWG Destroyer

Posted
  • Author
Posted

Yes, it will match the dimension ok, but the next time I make a dim it will ask again for a reference. If I do not give it this reference then it will assume the ‘tester’ style rather than the last used.

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
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
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.

×
 Share
Go to topic listing
×
×
  • Create New...