Need a LISP for Dot blank leader

[krishravi2000]

Hi Guys,

I am using both Qleader and dot blank leader, I am using normal command for qleader instead of going to properties and changing the leader to blank I want a lisp that automatically results in dot blank leader
i.e If I press Q and press enter it activates Qleader When I press QQ and enter the result of the command should be of dot blank leader.

[VincentSheehan]

Try this. You'll need to setup two MLeader Styles. I created Blank_Leader and Dot_Blank_Leader shown below.

(defun C:Q ()
   (command "cmleaderstyle")
   (command "Blank_Leader")
   (command "Mleader")

   (princ)
)

(defun C:QQ ()
   (command "cmleaderstyle")
   (command "Dot_Blank_Leader")
   (command "Mleader")
   
   (princ)
)

[krishravi2000]

Hi sir,
the LISP that previously mentioned showing error & function cancelled. 

[VincentSheehan]

Did you change the lisp to your mleader styles? The two bold text will need to be changed to your mleader styles.

(defun C:Q ()
(command "cmleaderstyle")
(command "Blank_Leader")
(command "Mleader")

(princ)
)

(defun C:QQ ()
(command "cmleaderstyle")
(command "Dot_Blank_Leader")
(command "Mleader")

(princ)
)

[krishravi2000]

The lisp still showing error sir

[VincentSheehan]

So I created two mleader styles with the names in the lisp. Load the lisp then I can type Q or QQ to place the two different mleaders. It works on my end. Can you screen shot your Multileader Style Manager?

[krishravi2000]

hi sir
I made some slight changes in the lisp.

(defun C:Q ()
(command "STANDARD")
(command "Blank_Leader")
(command "Qleader")

(princ)
)

(defun C:QQ ()
(command "STANDARD")
(command "Dot_Blank_Leader")
(command "Qleader")

(princ)
)

[VincentSheehan]

Okay, I see you are using QLeader. You'll need to create the Dot_Blank_Leader and Blank_Leader styles in the Dimension Style Manager.

(defun C:Q ()
(command "-dimstyle")
(command "restore")
(command "Blank_Leader")
(command "Qleader")

(princ)
)

(defun C:QQ ()
(command "-dimstyle")
(command "restore")
(command "Dot_Blank_Leader")
(command "Qleader")

(princ)
)

[krishravi2000]

The Q command is working perfectly but the QQ command is also resulting in closed filled leader sir.

[VincentSheehan]

Check the Dim Style.

[Kent1Cooper]

---

@krishravi2000 wrote:

... the QQ command is also resulting in closed filled leader sir.

---

The command-line history tells you what the problem is.  The Dimension Style must exist in the drawing, and its name must be spelled correctly in the routine.

[krishravi2000]

Hello guys,
Sorry for the late reply I was sick for past few days, I changed the leader type name in the lisp and it still shows the same error unknown dimension style

(defun C:QQ ()
(command "-dimstyle")
(command "restore")
(command "Dot Blank")
(command "Qleader")

(princ)
)

[komondormrex]

hey,

what kind of leaders do you want? are they leaders without annotation?

[Kent1Cooper · Accepted solution]

---

@krishravi2000 wrote:

....

(defun C:QQ ()
(command "-dimstyle")
(command "restore")
(command "Dot Blank")
(command "Qleader")

(princ)
)

---

Then you don't have a Dimension Style by that name in the drawing.  If you think you do, are you sure you spelled it exactly the same way?  For example, could the Style really be named Dot_Blank with an underscore, rather than with a space?  [The actual Block name is _DotBlank with the prefixed underscore -- might you have named the Style that way?]

And by the way [and this is also applicable to several earlier Messages in this Topic] you don't need to put each entry into its own separate (command) function.  You can include not just options and arguments within one command, but even more than one command entirely, within one such function.  You can do [assuming you fix the unknown-style problem]:

(defun C:QQ ()
  (command "-dimstyle" "restore" "Dot Blank" "Qleader")

  (princ)
)

[komondormrex]