Crear un block con dos entidades.
2 participantes
Página 1 de 1.
Crear un block con dos entidades.
por eliasp Miér Dic 14, 2022 7:50 pm
Buen día señores.
Se me está complicando "un poco el asunto" hice esta rutinita para crear un block con un rectángulo y su hatch, el problema fue cuando quise hacerlo block, no supe ni con (vl-cmdf "_bloc" y menos con entmake. Si alguien pudiera orientarme, por favor. Necesito que el punto de inserción esté en (0 0), ya que se va a colocar a lo largo de algunas polis.
Saludos y gracias
Se me está complicando "un poco el asunto" hice esta rutinita para crear un block con un rectángulo y su hatch, el problema fue cuando quise hacerlo block, no supe ni con (vl-cmdf "_bloc" y menos con entmake. Si alguien pudiera orientarme, por favor. Necesito que el punto de inserción esté en (0 0), ya que se va a colocar a lo largo de algunas polis.
Saludos y gracias
- Código:
(defun c:xbloc()
(setq ptoin(list 0 0))
(setq rect(vl-cmdf "_rectangle" (list -0.2 -0.20)(list 0.2 0.2)))
(setq h(command "_hatch" "_solid" "0" (entlast) ""))
)
eliasp- Mensajes : 195
Fecha de inscripción : 17/03/2016
Re: Crear un block con dos entidades.
por kasperle Lun Dic 19, 2022 4:00 pm
- Código:
(defun c:xbloc ()
(vl-cmdf "_.RECTANGLE" (list -0.2 -0.20) (list 0.2 0.2))
(vl-cmdf "_.-HATCH" "_P" "S" "_S" (entlast) "" "")
)
kasperle- Mensajes : 28
Fecha de inscripción : 18/03/2016
Re: Crear un block con dos entidades.
por eliasp Lun Dic 19, 2022 4:02 pm
Gracias maestro.... estás viendo las preguntas pendientes???
Saludos
Saludos
eliasp- Mensajes : 195
Fecha de inscripción : 17/03/2016
Re: Crear un block con dos entidades.
por eliasp Lun Dic 19, 2022 4:08 pm
Maestro. Ya probé el código que me hiciste favor de poner. Sin embargo, no crea el block, si que dibuja ambas entidades, el rectángulo y su hatch... pero la intención es crear el bloque con esas dos entidades y que el punto de insersión sea 0,0.
Gracias
Gracias
eliasp- Mensajes : 195
Fecha de inscripción : 17/03/2016
Re: Crear un block con dos entidades.
por kasperle Lun Dic 19, 2022 6:28 pm
- Código:
(defun C:XBLOC (/ cmd err grp xblerr)
(defun xblerr ()
(setvar "CMDECHO" cmd)
(setq *error* err)
(princ)
)
(setq err *error*
grp (ssadd)
cmd (getvar "CMDECHO")
)
(setvar "CMDECHO" 0)
(if (tblsearch "BLOCK" "ELIASP")
(alert "\n¡El bloque \"ELIASP\" ya existe!")
(progn
(vl-cmdf "_.RECTANGLE" (list -0.2 -0.20) (list 0.2 0.2))
(ssadd (entlast) grp)
(vl-cmdf "_.-HATCH" "_P" "S" "_S" (ssname grp 0) "" "")
(ssadd (entlast) grp)
(vl-cmdf "_.BLOCK" "ELIASP" '(0. 0. 0.) grp "")
(princ "\nNuevo bloque \"ELIASP\" creado.")
)
)
(setvar "CMDECHO" cmd)
(setq *error* err)
(princ)
)
kasperle- Mensajes : 28
Fecha de inscripción : 18/03/2016
A robierzo le gusta esta publicaciòn
Re: Crear un block con dos entidades.
por eliasp Lun Dic 19, 2022 7:03 pm
Ok.... Muchas gracias....
Tenía una idea, pero no estructurada.
Saludos
Tenía una idea, pero no estructurada.
Saludos
eliasp- Mensajes : 195
Fecha de inscripción : 17/03/2016
Temas similares» Entidades dentro de Block
» Crear Rutina Lisp para Crear Tipo de Linea
» Listado de entidades en un dibujo
» Insertar Block en Tabla
» EXTRAER BLOCK DE TABLA
» Crear Rutina Lisp para Crear Tipo de Linea
» Listado de entidades en un dibujo
» Insertar Block en Tabla
» EXTRAER BLOCK DE TABLA
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.|
|
|