Topic: MLEADER ALIGN

[jmyrwen]

Hello, need some help. Im trying to create a lisp that will do the following

1. select the objects (mleaders)
2. pick points to align

here's the code that i did

Code - Auto/Visual Lisp: [Select]

1. (defun c:mu (/ p1 p2)
2. (setq p1 (getpoint "\nPick origin point:)"))
3.   (command "osmode" "0")
4.   (command "orthomode" "0")
5.   (setq p2 (getpoint "\nPick target" p1))
6.   (princ)
7. (command "_mleaderalign" (ssget "_X") p1 p2 "_o" "U")
8.  )

[ChrisCarlson]

I'm confused, the routine as you have it is trying to align ALL mleader entities in the database. The mleaderalign command within AutoCAD is quite powerful, what are you trying to do in addition to it?

Extended search (Entire Drawing Database) [automated] [documented]

Iterates over the entire drawing database selection all entities matching the criteria given by the supplied filter list (if present); includes entities on layers that are off, frozen & locked, and entities outside of the visible drawing area.

Example:
(ssget "_X" '((0 . "CIRCLE")))

Selects all circles in every drawing layout.

[jmyrwen]

i want to select only specific leaders to align and then let me pick 2 points where to align them without putting again "options" "use current spacing"

[ChrisCarlson]

Use Current Spacing option should be default and shouldn't change unless you manually change it.

[jmyrwen]

Command: MLEADERALIGN
Select multileaders: Specify opposite corner: 3 found
Select multileaders:
Current mode: Use current spacing
Select multileader to align to or [Options]
Enter an option [Distribute/make leader segments Parallel/specify Spacing/Use current spacing] <Use current spacing>: u
Select multileader to align to or [Options]:
Specify direction:

here's the usual commands im working, just want to shorten like after selecting mleaders the next step is to just pick where i want to align them, im not sure if possible

[ChrisCarlson]

Start the mleaderalign command
Select mleader entities
Select first point
Select second point

There is no need to manually select Option and then Use current spacing.

[jmyrwen]

yeah im just trying to translate it to lisp anyway thanks for your help