Colocar bloque en ultimo punto ingresado luego de definir multileader

[lucianomontanelli]

Como ven lo que hace la macro es crear la mleader con un circulo negro como contenido, luego aparece el bloque para insertarlo, y yo quiero insertarlo en el ultimo punto que elegi al momento de hacer la mleader.  Que debo poner en la macro para que realice esto que yo quiero?. No quiero hacerlo de otra forma porque despues tengo que extrar atributos que estan en los bloques.

[Anonymous]

@lucianomontanelli ¿Podría ser más específico en su pregunta?
¿sería algo así?
Nota: Sustituya el texto rosa por el nombre de su bloque.

(defun c:Demo (/ p1 p2)
  (setq p1 (getpoint "\nEspecifique el primer punto: ")
 p2 (getpoint p1 "\nEspecifique el segundo punto: ")
 )
  (command "_.MLEADER" p1 p2)
  (command "_.Insert" "Block_Test" "_Scale" 1 p2 0)
  (princ)
)

[lucianomontanelli]

Genial, modifique el texto de la siguiente manera:
(defun c:Cadena (/ p1 p2)
(setq p1 (getpoint "\nEspecifique el primer punto: ")
p2 (getpoint p1 "\nEspecifique el segundo punto: ")
)
(command "_.CMLEADER" Spline)
(command "_.MLEADER" p1 p2)
(command "_.Insert" "C:/Bicicletería/BIBLIOTECA/Bloques_Repuestos/Cadena.dwg" "_Scale" 10 p2 0)
(princ)
)

Cuando hago la multileader hacia la derecha funciona, pero, cuando la hago hacia la izquiera no.(Screencast).

Otra cosa que tambien querría es que la multileader tenga esta configuracion: Multileaderstyle-->Content-->Attachment-->Center extents

Y que con esta configuracion se inserte el bloque como si estuviera anidado a la multileader, pero, EN REALIDAD NO ESTA ANIDADO.

[Anonymous]

@lucianomontanelli 

¿Podría adjuntar u ejemplo de su bloque?

[lucianomontanelli]

Dwg

[Anonymous]

Pruebe esto:
¡luego ajuste sus necesidades!
pero me quita una duda el uso del "_.LEADER" no resolvería?

(defun c:Cadena (/ p1 p2)
  (setq p1 (getpoint "\nEspecifique el primer punto: ")
	p2 (getpoint p1 "\nEspecifique el segundo punto: ")
	)
  (command "_.LEADER" p1 p2 "" "" "_Block" "Cadena" "_Scale" 1 p2 0 )
  (princ)
  )

[lucianomontanelli]

Se puede editar dicha leader para que se corte en el perimetro del circulo del bloque?. Se puede ver dicho problema en el jpg adjunto.

Si es posible tambien me gustaria que sea spline la flecha y que en su punta sea un punto relleno. 

Pd: no se casi nada de autolisp

[Anonymous · Accepted solution]

@lucianomontanelli  Sí
Utiliza esto:

(defun c:CD nil (c:Cadena))
;|-----{Atalhos C:}-----|;
(defun c:Cadena	(/ lv gv p1 p2 di pt)
  (setq	p1 (getpoint "\nEspecifique el primer punto: ")
	p2 (getpoint p1 "\nEspecifique el segundo punto: ")
	di (distance p1 p2)
	pt (polar p1 (angle p1 p2) (- di 1))
  )
  (setq lv '("CMDECHO" "OSMODE" "ATTREQ" "ATTDIA"))
  (setq gv (mapcar 'getvar lv))
  (mapcar
    'setvar lv '(0 0 1 0)
  )
  (vl-cmdf "_.LEADER" p1 pt "" "" "_Block" "Cadena" "_Scale" 1 p2 0)
  (mapcar 'setvar lv gv)
  (princ)(vl-load-com)
)
(prompt "Type >> CD <<")

"Accept las soluciones" si ha solucionado el problema.
"Like" si la respuesta a los asistentes !!

[lucianomontanelli]

No funciona

Command: CD
Especifique el primer punto:
Especifique el segundo punto:
"Cadena.dwg": Can't find file in search path:
C:\Bicicletería\ (current directory)
C:\bicicletería\ (current directory)
C:\Users\Montanelli\appdata\roaming\autodesk\autocad 2018\r22.0\enu\support\
C:\program files\autodesk\autocad 2018\support\
C:\program files\autodesk\autocad 2018\support\en-us\
C:\program files\autodesk\autocad 2018\fonts\
C:\program files\autodesk\autocad 2018\help\
C:\program files\autodesk\autocad 2018\express\
C:\program files\autodesk\autocad 2018\support\color\
C:\program files (x86)\autodesk\applicationplugins\autodesk appmanager.bundle\contents\resources\
C:\program files (x86)\autodesk\applicationplugins\autodesk appmanager.bundle\contents\windows\2018\
C:\program files (x86)\autodesk\applicationplugins\autodesk featuredapps.bundle\contents\resources\
C:\program files (x86)\autodesk\applicationplugins\autodesk featuredapps.bundle\contents\windows\2018\win64\
C:\programdata\autodesk\applicationplugins\autodesk chronicle.bundle\contents\windows\2018\win64\
C:\programdata\autodesk\applicationplugins\autodesk chronicle.bundle\contents\resources\
C:\Program Files\Autodesk\AutoCAD 2018\drv\
C:\Program Files\Autodesk\AutoCAD 2018\
"_Scale.dwg": Can't find file in search path:
C:\Bicicletería\ (current directory)
C:\bicicletería\ (current directory)
C:\Users\Montanelli\appdata\roaming\autodesk\autocad 2018\r22.0\enu\support\
C:\program files\autodesk\autocad 2018\support\
C:\program files\autodesk\autocad 2018\support\en-us\
C:\program files\autodesk\autocad 2018\fonts\
C:\program files\autodesk\autocad 2018\help\
C:\program files\autodesk\autocad 2018\express\
C:\program files\autodesk\autocad 2018\support\color\
C:\program files (x86)\autodesk\applicationplugins\autodesk appmanager.bundle\contents\resources\
C:\program files (x86)\autodesk\applicationplugins\autodesk appmanager.bundle\contents\windows\2018\
C:\program files (x86)\autodesk\applicationplugins\autodesk featuredapps.bundle\contents\resources\
C:\program files (x86)\autodesk\applicationplugins\autodesk featuredapps.bundle\contents\windows\2018\win64\
C:\programdata\autodesk\applicationplugins\autodesk chronicle.bundle\contents\windows\2018\win64\
C:\programdata\autodesk\applicationplugins\autodesk chronicle.bundle\contents\resources\
C:\Program Files\Autodesk\AutoCAD 2018\drv\
C:\Program Files\Autodesk\AutoCAD 2018\
"10.dwg": Can't find file in search path:
C:\Bicicletería\ (current directory)
C:\bicicletería\ (current directory)
C:\Users\Montanelli\appdata\roaming\autodesk\autocad 2018\r22.0\enu\support\
C:\program files\autodesk\autocad 2018\support\
C:\program files\autodesk\autocad 2018\support\en-us\
C:\program files\autodesk\autocad 2018\fonts\
C:\program files\autodesk\autocad 2018\help\
C:\program files\autodesk\autocad 2018\express\
C:\program files\autodesk\autocad 2018\support\color\
C:\program files (x86)\autodesk\applicationplugins\autodesk appmanager.bundle\contents\resources\
C:\program files (x86)\autodesk\applicationplugins\autodesk appmanager.bundle\contents\windows\2018\
C:\program files (x86)\autodesk\applicationplugins\autodesk featuredapps.bundle\contents\resources\
C:\program files (x86)\autodesk\applicationplugins\autodesk featuredapps.bundle\contents\windows\2018\win64\
C:\programdata\autodesk\applicationplugins\autodesk chronicle.bundle\contents\windows\2018\win64\
C:\programdata\autodesk\applicationplugins\autodesk chronicle.bundle\contents\resources\
C:\Program Files\Autodesk\AutoCAD 2018\drv\
C:\Program Files\Autodesk\AutoCAD 2018\
"0.dwg": Can't find file in search path:
C:\Bicicletería\ (current directory)
C:\bicicletería\ (current directory)
C:\Users\Montanelli\appdata\roaming\autodesk\autocad 2018\r22.0\enu\support\
C:\program files\autodesk\autocad 2018\support\
C:\program files\autodesk\autocad 2018\support\en-us\
C:\program files\autodesk\autocad 2018\fonts\
C:\program files\autodesk\autocad 2018\help\
C:\program files\autodesk\autocad 2018\express\
C:\program files\autodesk\autocad 2018\support\color\
C:\program files (x86)\autodesk\applicationplugins\autodesk appmanager.bundle\contents\resources\
C:\program files (x86)\autodesk\applicationplugins\autodesk appmanager.bundle\contents\windows\2018\
C:\program files (x86)\autodesk\applicationplugins\autodesk featuredapps.bundle\contents\resources\
C:\program files (x86)\autodesk\applicationplugins\autodesk featuredapps.bundle\contents\windows\2018\win64\
C:\programdata\autodesk\applicationplugins\autodesk chronicle.bundle\contents\windows\2018\win64\
C:\programdata\autodesk\applicationplugins\autodesk chronicle.bundle\contents\resources\
C:\Program Files\Autodesk\AutoCAD 2018\drv\
C:\Program Files\Autodesk\AutoCAD 2018\
Enter block name or [?]: C:\Bicicletería\BIBLIOTECA\Bloques_Repuestos\Cadena.dwg
Specify insertion point or [Basepoint/Scale/X/Y/Z/Rotate]: *Cancel*
Command: *Cancel*
Command: *Cancel*

[calderg1000]

Estimado @lucianomontanelli

Muy buena Rutina Autolisp compartido por el compañero @Frjuniornogueira, que soluciona perfectamente tu consulta, por mi parte te alcanzo otra opción que la podrías tomar en cuenta usando directamente los comandos de ACAD.

Te adjunto Screentcast demostrativo del procedimiento.

Saludos.