Rutina para automatizar BLOQUEDISC
Publicado por Juanma (140 intervenciones) el 03/01/2019 08:50:11
Buenas, la idea es crear una rutina capaz de crear un archivo dxf por cada entidad de los objetos seleccionados.
El problema es que no soy capaz de que el comando -BLOQUEDISC utilice los elementos seleccionados, alguien puede ayudarme con eso? es que tengo que generar unos 400 dxf, cada uno con una sola polilinea.
Muchas gracias de antemano, paso el codigo:
El problema es que no soy capaz de que el comando -BLOQUEDISC utilice los elementos seleccionados, alguien puede ayudarme con eso? es que tengo que generar unos 400 dxf, cada uno con una sola polilinea.
Muchas gracias de antemano, paso el codigo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
(vl-load-com)
(defun c:bld (/ seleccion contador nombreent
filenametouse objetovla pt0
myent
)(while (= 1 1)
(setq contador 0)
(setq seleccion nil)
(while (not seleccion)
(setq seleccion (ssget '((0 .
"ARC,CIRCLE,ELLIPSE,HATCH,*POLYLINE,REGION,SPLINE"
)
)
)
contador 0
)
)
(repeat (sslength seleccion)
(setq nombreent (ssname seleccion contador)
myent (entget nombreent)
objetovla (vlax-ename->vla-object nombreent)
pt0 (cdr (assoc 10 myent))
contador (1+ contador)
filenametouse (strcat "ADCC-" (itoa contador))
)
(command "-bloquedisc" objetovla filenametouse pt0)
)
)
(princ)
)Valora esta pregunta
0