Solucionado: Re: Colocar bloque en ultimo punto ingresado luego de definir multileader

lucianomontanelli · ‎08-03-2018

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 · ‎08-04-2018

@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 · ‎08-04-2018

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.

lucianomontanelli · ‎08-04-2018

Anonymous · ‎08-04-2018

@lucianomontanelli

¿Podría adjuntar u ejemplo de su bloque?

lucianomontanelli · ‎08-04-2018

Dwg

Anonymous · ‎08-04-2018

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 · ‎08-04-2018

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 · ‎08-04-2018

@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 · ‎08-04-2018

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 · ‎08-05-2018

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.

Carlos Calderon G

>Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.

Colocar bloque en ultimo punto ingresado luego de definir multileader

Colocar bloque en ultimo punto ingresado luego de definir multileader

Colocar bloque en ultimo punto ingresado luego de definir multileader

Links del foro

Publicar en los foros