Messaggio inserito da GP
Prova così:
(prompt "\Selezionare i testi")
(setq T_tot (ssget '((0 . "TEXT"))))
(setq cont -1)
(repeat (sslength T_tot)
(setq primo_T (ssname T_tot (setq cont (1+ cont))))
(setq DWGname (strcat (cdr (assoc 1 (entget primo_T))) ".DWG"))
(if (not (findfile DWGname)) (alert (strcat "Non trovato il file: " DWGname)))
(if (findfile DWGname)
(progn
(setq P_inser (cdr (assoc 10 (entget primo_T))))
(command "_-INSERT" DWGname P_inser "1" "1" "1")
)
)
)
cia GP,
funziona alla grande
e se volessi fare inserire il blocco con la stesso angolo di rotazione del testo?
cosa devo estrarre dal db dell'oggetto testo? per poi utilizzarlo nell'agolo di inserimento del blocco....
grazie
bb
Chiaramente i dwg devono risiedere in cartelle del percorso di AutoCAD
