AutoCad - como poner globos

 
Vista:

como poner globos

Publicado por ANGELMARI (2 intervenciones) el 14/11/2005 10:19:43
hola a todos me podriais decir como se pueden realizar globos de numeracion como por ejem para un listado de materiales?
me refiero a cuando detallas las piezas en los planos con marcas 1, 2, 3...etc
simplemente eso. de momento lo hago haciendo flecha circulo e insertando el texto pero supongo que habra algun comando para realizarlos directamente, no es asi?
gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:como poner globos

Publicado por carlos (47 intervenciones) el 14/11/2005 16:37:28
Utiliza esta rutina para lo que buscas. Tiene un par de pulgas, que si alguien puede mejorle, pues bien nos vendria a todos. Suerte.

(defun c:Globos ()
(setvar "cmdecho" 0)
(setq osmode (getvar"osmode" ))
(command "cmddia" "0" "lman" "s" "detail" "" "color" "bylayer" "linetype" "s" "bylayer" "")
;;(setvar "osmode" 512)
(setq firstnum (getint "\nENTER NUMBER: "))
(setq pt2 (getpoint "\nPOINT OF ARROW: "))
(setq dimscale (getvar "dimscale"))
(setq r1 (* dimscale 5 ))
(setq h1 (* dimscale 3.5 ))
(setq a1 (* dimscale 3.5 ))
(setq w2 (* dimscale 1 ))
(while (/= pt2 nil )
(setq pt1 (getpoint pt2"\n PICK CENTRE:"))
(setq dist1 (distance pt1 pt2 ))
(setq ang1 (angle pt2 pt1 ))
(setq newdist (- dist1 r1 ))
(setq pt3 (polar pt2 ang1 newdist ))
(command "line" pt3 pt2 "" )
(command "circle" pt1 r1 )
(command "text" "m" pt1 h1 0.0 firstnum "chprop" (entlast) "" "c" "yellow" "" )
(setq pt4 (polar pt2 ang1 a1 ))
(command "pline" pt2 "w" 0.0 w2 pt4 "" )
(setq pt2 (getpoint"\nPICK ARROW POINT:"))
(setq firstnum(1+ firstnum))
) ; while
(setvar"osmode" osmode)
(setvar "cmdecho" 1)
)

Saludos desde Costa Rica
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar