Topic: Getpoint of 'pause'

[Oak3s]

The routine works well. I believe the routine is one originally from CAB's library. I dont have the information to give proper credit.

What we would like to do is pause the leader command so we can see the leader. Currently we see the 'line' the leader will be drawn on but we dont see the leader arrow. Its a little thing but would be cool if it showed up.

The hangup is we need to save the points in order to give the text a point to be based on.
Is there a way to "getpoint" of a pause (verbiage is probably totally wrong)

Code: [Select]

(setq PT1 (getpoint "\nPick Leader Start Point: "))
(setq PT2 (getpoint PT1 "\nPick Leader Second Point: "))
(if (> (car PT1) (car PT2))
(setq PT3 (polar PT2 0 (* DIMSC -0.125)))
(setq PT3 (polar PT2 0 (* DIMSC 0.125)))
)
(command ".leader" PT1 PT2 PT3 "" "" "None")
(if (> (car PT1) (car PT2))
(setq PT4 (polar PT3 0 (* DIMSC -0.0625)))
(setq PT4 (polar PT3 0 (* DIMSC 0.0625)))
)

[ronjonp]

Maybe something like this:

Code: [Select]

(setq dimsc (getvar 'dimscale))
(setq pt1 (getpoint "\nPick Leader Start Point: "))
(vl-cmdf ".leader" pt1 pause "" "" "None")
(setq pt2 (getvar 'lastpoint))
(entdel (entlast))
(vl-cmdf ".leader"
pt1
pt2
(if (> (car pt1) (car pt2))
   (setq pt3 (polar pt2 0 (* dimsc -0.125)))
   (setq pt3 (polar pt2 0 (* dimsc 0.125)))
)
""
""
"None"
)
(if (> (car pt1) (car pt2))
  (setq pt4 (polar pt3 0 (* dimsc -0.0625)))
  (setq pt4 (polar pt3 0 (* dimsc 0.0625)))
)
**You should look into mleaders and mleader styles.

[Oak3s]

Ah, I was thinking about something similar. Create a leader and then delete it. That solved that. Thanks again. Works very nice.
As for mleaders...great idea and we have had the discussion in the company before. Problem seems to be our detail library is packed with leaders and text...not mleaders.  maybe someday.
Thanks again.

[ronjonp]

...  Problem seems to be our detail library is packed with leaders and text...not mleaders.  maybe someday.
Thanks again.

Perhaps this would be of help to clean them up:

http://www.theswamp.org/index.php?topic=30934.msg364891#msg364891

[alanjt]

Slick Ron.

You should store (entlast) before issueing the first leader command with Pause for comparison. That way, if the user doesn't specify a second point, the routine won't continue and erase some other object.

Maybe something like this:

Code: [Select]

(setq dimsc (getvar 'dimscale))
(setq pt1 (getpoint "\nPick Leader Start Point: "))
(vl-cmdf ".leader" pt1 pause "" "" "None")
(setq pt2 (getvar 'lastpoint))
(entdel (entlast))
(vl-cmdf ".leader"
pt1
pt2
(if (> (car pt1) (car pt2))
   (setq pt3 (polar pt2 0 (* dimsc -0.125)))
   (setq pt3 (polar pt2 0 (* dimsc 0.125)))
)
""
""
"None"
)
(if (> (car pt1) (car pt2))
  (setq pt4 (polar pt3 0 (* dimsc -0.0625)))
  (setq pt4 (polar pt3 0 (* dimsc 0.0625)))
)
**You should look into mleaders and mleader styles.

[Oak3s]

How would you go about doing that?

Code: [Select]

(setq ent1 (entlast)) But I dont know what to do with that.

This was an idea i tried...not working.

Code: [Select]

(setq PT1 (getpoint "\nSpecify first leader point: "))
(princ "\nSpecify next point: ")
(vl-cmdf ".leader" pt1 pause "" "" "None")
(setq pt2 (getvar 'lastpoint))
(if (> pt2 nil)(entdel (entlast))) ;;; I am missing something because this isnt working as I thought

[Lee Mac]

Perhaps:

Code: [Select]

(setq LastEntity (entlast))
(setq dimsc (getvar 'dimscale))
(setq pt1 (getpoint "\nPick Leader Start Point: "))
(vl-cmdf ".leader" pt1 pause "" "" "None")
(setq pt2 (getvar 'lastpoint))
(if (not (equal LastEntity (entlast)))
  (progn
    (entdel (entlast))
    (vl-cmdf ".leader"
pt1
pt2
(if (> (car pt1) (car pt2))
   (setq pt3 (polar pt2 0 (* dimsc -0.125)))
   (setq pt3 (polar pt2 0 (* dimsc 0.125)))
)
""
""
"None"
      )
    (if (> (car pt1) (car pt2))
      (setq pt4 (polar pt3 0 (* dimsc -0.0625)))
      (setq pt4 (polar pt3 0 (* dimsc 0.0625)))
    )
  )
)

Be sure to use the correct function (equal, eq or =) 

[alanjt]

Precisely what I was getting at. :kewl:

Perhaps:

Code: [Select]

(setq LastEntity (entlast))
(setq dimsc (getvar 'dimscale))
(setq pt1 (getpoint "\nPick Leader Start Point: "))
(vl-cmdf ".leader" pt1 pause "" "" "None")
(setq pt2 (getvar 'lastpoint))
(if (not (equal LastEntity (entlast)))
  (progn
    (entdel (entlast))
    (vl-cmdf ".leader"
pt1
pt2
(if (> (car pt1) (car pt2))
   (setq pt3 (polar pt2 0 (* dimsc -0.125)))
   (setq pt3 (polar pt2 0 (* dimsc 0.125)))
)
""
""
"None"
      )
    (if (> (car pt1) (car pt2))
      (setq pt4 (polar pt3 0 (* dimsc -0.0625)))
      (setq pt4 (polar pt3 0 (* dimsc 0.0625)))
    )
  )
)

Be sure to use the correct function (equal, eq or =) 

[Oak3s]

Awesome! Thank you both.

[ronjonp]

I still vote for Mleaders 

[Oak3s]

Oh yeah, I forgot to mention that I followed the link above and the routine is great. I am going to look more into it when time is available. Thanks for the recommendation. If only mtext wasnt a pain to edit...specifically ENTER/RETURN to close. I read something about 2011 having something new to do with this....hmmmm...

[alanjt]

I still vote for Mleaders 

Ditto :love:

[CAB]

Oh yeah, I forgot to mention that I followed the link above and the routine is great. I am going to look more into it when time is available. Thanks for the recommendation. If only mtext wasnt a pain to edit...specifically ENTER/RETURN to close. I read something about 2011 having something new to do with this....hmmmm...

Hit ctrl+enter to exit the edit mtext command.
Also, picking outside the editor window is as good as enter or ctrl+enter and a bit faster to boot.

[Lee Mac]

Hit ctrl+enter to exit the edit mtext command.
Also, picking outside the editor window is as good as enter or ctrl+enter and a bit faster to boot.

Didn't know that! Thanks Alan 

[CAB]

You're welcome.
More mtext tips:
http://www.theswamp.org/index.php?topic=28950.0