Modified Quick Leader command, how to get back original options

[mhannan.100562]

I modified the qleader command a little to set a width for the mtext based on dimscale and the code I wrote works great, but I don't have the option now, if I'd like to change any of the settings. So my question is how would I get that option back into my command.

This is was I put together:

(defun C:QL ()
	(setq PT1 (getpoint "\nSelect First point: "))
	(setq PT2 (getpoint pt1 "\nSelect Second point: "))
	(setq MTW (* 1.0 (getvar "dimscale")))
	(COMMAND "_QLEADER" PT1 PT2 "" MTW "")
  )

[ Moderator Action = ON ] What are [ CODE ] tags... [ Moderator Action = OFF ]

[Adesu]

Hi mhannan.100562,
Do you mean like this,I'm not sure as you want

(defun c:ql (/ pt1 pt2 mtw)
  (while
    (setq pt1 (getpoint "\nSelect first point: "))
    (setq pt2 (getpoint pt1 "\nSselect second point: "))
    (setq mtw (* 1.0 (getvar "dimscale")))
    (command "_qleader" pt1 pt2 "" mtw "")
    )
  (princ)
  )

I modified the qleader command a little to set a width for the mtext based on dimscale and the code I wrote works great, but I don't have the option now, if I'd like to change any of the settings. So my question is how would I get that option back into my command.

This is was I put together:

(defun C:QL ()
	(setq PT1 (getpoint "\nSelect First point: "))
	(setq PT2 (getpoint pt1 "\nSelect Second point: "))
	(setq MTW (* 1.0 (getvar "dimscale")))
	(COMMAND "_QLEADER" PT1 PT2 "" MTW "")
  )

[ Moderator Action = ON ] What are [ CODE ] tags... [ Moderator Action = OFF ]

[mengseng]

If these that you want ?

(defun C:QL ()
  (if (setq PT1 (getpoint "\nSelect First point:, [Enter for option] "))
    (progn
      (setq PT2 (getpoint pt1 "\nSelect Second point: "))
      (setq MTW (* 1.0 (getvar "dimscale")))
      (COMMAND "_QLEADER" PT1 PT2 "" MTW "")
    )
    (command "_qleader")
  )
  (princ)
)

[mhannan.100562]

This is more along the lines of what I'm looking for, the only thing you have to hit enter twice now to get to the settings menu, and it kicks you out of the command.
What I really would like is a system variable for the width of Mtext, but I can't seem to find one, but if I could hit a enter and get to the settings menu and then stay in the command that would be nice.

If these that you want ?

(defun C:QL ()
  (if (setq PT1 (getpoint "nSelect First point:, [Enter for option] "))
    (progn
      (setq PT2 (getpoint pt1 "nSelect Second point: "))
      (setq MTW (* 1.0 (getvar "dimscale")))
      (COMMAND "_QLEADER" PT1 PT2 "" MTW "")
    )
    (command "_qleader")
  )
  (princ)
)

[TobyKanoby]

Not sure if 0 for mtext width works better. Here is my try at it.
TK

(defun c:QL ()
  (initget 128);allow arbitrary entry
  (setq pt1 (getpoint "\nSpecify first leader point, or [Settings] <Settings>: "))
  (if (= (type pt1) 'LIST)
   (progn
    (setq pt2 (getpoint pt1 "\nSpecify next point: "))
    ;(setq mtw (getvar "dimscale"))
    (setq mtw 0);this also works
    (command "_qleader" pt1 pt2 "" mtw "")
   )
   (progn
    (if (member pt1 (list nil "S" "s"))
     (progn
      (command "_qleader" "s" ^c)
      (c:QL)
     )
     (progn
      (princ "\nInvalid Input.")
      (c:QL)
     )
    )
   )
 )
 (princ)
)

[mhannan.100562]

This is what I was looking for THANK YOU. I did change the mtext width setting back to what I was using. We like to have notes with word wrapping so we can modify the how many lines there are in the note without putting a hard return in the note.

Thanks again for everyone help on this, my users also thank you.

Not sure if 0 for mtext width works better. Here is my try at it.
TK

(defun c:QL ()
  (initget 128);allow arbitrary entry
  (setq pt1 (getpoint "nSpecify first leader point, or [Settings] <Settings>: "))
  (if (= (type pt1) 'LIST)
   (progn
    (setq pt2 (getpoint pt1 "nSpecify next point: "))
    ;(setq mtw (getvar "dimscale"))
    (setq mtw 0);this also works
    (command "_qleader" pt1 pt2 "" mtw "")
   )
   (progn
    (if (member pt1 (list nil "S" "s"))
     (progn
      (command "_qleader" "s" ^c)
      (c:QL)
     )
     (progn
      (princ "nInvalid Input.")
      (c:QL)
     )
    )
   )
 )
 (princ)
)