AutoCad - seleccionar

Hola a todos

como puedo seleccionar un objeto o un texto desde autolis para cambiarle sus propiedades?
como color, tamaño etc.

Hola...

Te voy a dar un ejemplo de como hacerlo:

(defun opcion_texto (/ num op)
(setq num (sslength conj))
(setq op T)
(while op
(initget "Rotación ALtura")
(setq op (getkword "Propiedad a cambiar /Rotación/ALtura/: "))(terpri)
(cond ( (= op "ALtura")(cam_altu) )
( (= op "Rotación")(cam_rot) )
)
)
)

(defun cam_altu ( / altt nalt n lent)
(setq altt (cdr (assoc 40 (entget (ssname conj 0)))))
(if altt ( ) (setq altt 1))
(initget 6)
(if (setq nalt (getreal (strcat "Nueva altura <" (rtos altt 2 2) ">: ")))
( ) (setq nalt altt))
(terpri)
(setq n 0)
(command "_undo" "_begin")
(repeat num
(setq lent (entget (ssname conj n)))
(setq lent (subst (cons 40 nalt)(assoc 7 lent) lent))
(entmod lent)
(setq n (+ 1 n))
)
(command "_undo" "_end")
)

(defun cam_rot ( / n lent rotact nrot)
(setq rotact (cdr (assoc 50 (entget (ssname conj 0)))))
(if rotact ( ) (setq rotact 0))
(setq rotact (/ (* rotact 180) PI))
(if (setq nrot (getreal (strcat "Nuevo ángulo de rotación <" (rtos rotact 2 2) ">: "))) ( ) (setq nrot rotact))
(setq nrot (/ (* nrot PI) 180))
(command "_undo" "_begin")
(setq n 0)
(repeat num
(setq

(repeat num
(setq lent (entget (ssname conj n)))
(setq lent (subst (cons 50 nrot)(assoc 50 lent) lent))
(entmod lent)
(setq n (+ 1 n))
)
(command "_undo" "_end")
)

(defun c:cambtext (/ conj)
(setvar "cmdecho" 0)
(if (setq conj (ssget (list (cons 0 "text"))))
(opcion_texto)
(prompt "Ningún texto encontrado."))
(setvar "cmdecho" 0)(prin1)
)

Puedes ocupar este ejemplo para agragar mas cosas, por ejemplo cambiar anchura, color, contenido del texto, pasar a mayuscula o minuscula, etc...

Espero que te sirva... si quieres alguna explicacion mandame un email a [email protected] y te explico la rutina, por aca no la explico por que el foro no aguanta mucho texto...

Un saludo de SpeedCAD... :-)