Newsgroup: it.comp.software.cad
Titolo: [ACAD] Quote x,y per piatti forati

Salve a tutti.
Uso Acad 2000ing full con Tecnometal (applicativo per carpenteria
metallica).
Mi trovo a dover eseguire un lavoro lungo e ripetitivo nell'ambito della
carpenteria metallica.
Ho decine di piastre metalliche che contengono delle forature che devo
quotare. all'incirca da 120 a 160 fori per piastra. Tutte le piastre sono
rettangolari mentre i fori sono disposti su due griglie anch'esse
rettangolari  ma inclinate l'una rispetto all'altra e rispetto al perimetro
del piatto.
Non ho la possibilità di tracciare quindi ne quote orizzontali ne verticali
esterne al piatto.
Per agevolare l'operatore alle macchine automatiche di foratura devo
indicare su un angolo le coordinate 0,0 e per ogni foro le coordinate
relative x,y.
Autocad e l'applicativo che utilizzo hanno già qualcosa che mi può aiutare
ma vorrei sapere, data l'entità delle forature, se esiste un lisp ad Hoc che
mi inserisca x,y selezionando i fori con una sola finestra anzichè cliccare
i fori uno alla volta e una volta per x e una volta per y.
Grazie a tutti
*frankyz

 wrote:
autocad mechanical ha  un comando apposito che crea la maschera di
foratura  partendo da un punto x,y selezionato l dall'utente e
selezionando tutti i fori con un unica istruzione , crea anche il
diagramma di foratura da trasformarsi in file txt per poi usare con
macchine  cnc.
sicuro che Tecnometal non lo abbia  ?



[...cut...]
Ciao!!
Tecnometal ha una serie di comandi che generano un file CAM. Al suo interno
Vi sono tutte le informazioni dettagliate di taglio. Il programma riesce a
leggerli con un visualizzatore e ne salva il DXF.
In casi molto complessi (oltre 120 fori tutti disallineati) come questo, il
file CAM non viene elaborato "correttamente". Il CAM dovrebbe essere ok ma
l'uscita DXF è molto pasticciata. Oltre a questo l'interfaccia del foglio di
taglio e il file non sono proponibili al mio attuale cliente.
Comunque, sia acad che Tecnometal hanno la possibilità di quotare in
assoluto. Il problema è proprio la ripetitività del comando e la singola
selezione.
Attendo. :-))
Grazie
*frankyz

Prova questo lisp.
Ciao Claudio
;;;-------------------------------------------------------------------------
(defun c:XYfori ()
(setvar "cmdecho" 0)(princ "\n Seleziona i fori (cerchi)...")(setq
gruppoCircle(ssget '((0 . "CIRCLE"))))
(setq puntoRIF(getpoint "\n Seleziona il punto di origine (0,0): "))(if (=
Hscr nil)(setq Hscr(getreal "\n Altezza scritte: ")))
(if (= Ndec nil)(setq Ndec(getint "\n Numero di decimali per X e Y: ")))
(if (and puntoRIF gruppoCircle) (progn (setq clay(getvar "clayer")) (setq
caunits(getvar "aunits")) (setvar "aunits" 2)
(setq Xo(car puntoRIF)) (setq Yo(cadr puntoRIF)) (setq i 0) (repeat
(sslength gruppoCircle) (setq Centro(cdr(assoc 10 (entget(ssname
gruppoCircle i))))) (setq Xp(- (car Centro) Xo))(setq Yp(- (cadr Centro)
Yo))
(command "_layer" "_m" "Coordinate_fori_X" "")
(command "_text" "_ml" Centro Hscr "300" (strcat "X=" (rtos Xp 2 Ndec)) \r)
(command "_layer" "_m" "Coordinate_fori_Y" "")
(command "_text" "_ml" Centro Hscr "0" (strcat "Y=" (rtos Yp 2 Ndec)) \r)
(setq i(1+ i)) ) (setvar "clayer" clay) (setvar "aunits" caunits)))(princ))
(princ "\n<Copyright: ing. Claudio Granuzzo - digitare XYfori per lanciare
il programma")
(princ)
;;;-------------------------------------------------------------------------

 Prova questo lisp.
[...cut...]
Grazie per il tuo lisp!
Esso mi da un errore di questo tipo:
Command: xyfori
Seleziona i fori (cerchi)...
Select objects: Specify opposite corner: 84 found
Select objects:
Seleziona il punto di origine (0,0): _endp of
Altezza scritte: 12.5
Numero di decimali per X e Y: 0
Unknown command "X=401".  Press F1 for help.
Unknown command "Y=60".  Press F1 for help.
Unknown command "X=400".  Press F1 for help.
Unknown command "Y=135".  Press F1 for help.
Unknown command "X=400".  Press F1 for help.
Unknown command "Y=210".  Press F1 for help.
Unknown command "X=61".  Press F1 for help.
(...ecc... per tutti i fori)
A disegno, per ogni foro, vengono inserite 2 scritte leggermente inclinate e
sovrapposte che indicano 0 e 300 che appaiono nel listato del lisp.
Qualche suggerimento?
CIao e Grazie ancora!
*frankyz
PS. Scusa il pasticcio con l'e-mail

 wrote in message
b549f5$1eckq$1...@news02.it.net...




Se  vuoi puoi mandami il file .dwg .dxf 
provo a quotartelo dovrei riuscirci con tre colpi di mouse se rientra
nella schermata ...
poi  rispedisco il tutto.
Saluti--

 Se  vuoi puoi mandami il file .dwg .dxf
[...cut...]
Ciao!
Ok. Anche se ho già fatto semi manualmente metà del lavoro.... SOb!
Dove lo mando?
Ciao
*frankyz