| V I S U A L I Z Z A D I S C U S S I O N E |
| Foxhound |
Inserito il - 13 aprile 2011 : 20:28:00
Ciao, sono nuovo, complimenti per il forum. E' presente un comando che mi realizzi l'asse formato tra due archi che non hanno ne origine in comune ne curvatura uguale? (in poche parole ho bisogno dell'insieme dei punti che si trovano a metà tra l'uno e 'altro arco) |
| 19 U L T I M E R I S P O S T E (in alto le più recenti) |
| TheGrey61 |
Inserito il - 15 aprile 2011 : 20:38:23
Ammirevole  Sagacia Arri: |
| arri |
Inserito il - 15 aprile 2011 : 19:23:08
Messaggio inserito da Terminator
Insomma vuoi farci lavorare comunque sul lisp! 
 lascia perdere,
a questo punto chi vuole overkill veloce si aggiorna al 2012 
|
| Terminator |
Inserito il - 15 aprile 2011 : 15:12:30
@GP
Infatti ELIMINADUPLICATI segue le filosofia dei comandi extralunghi!
| Messaggio inserito da arri
Comunque è una richiesta per chi non ha la versione 2012 |
Insomma vuoi farci lavorare comunque sul lisp! |
| arri |
Inserito il - 15 aprile 2011 : 14:46:17
Messaggio inserito da GP
Ormai non serve più, il comando nella 2012 è una scheggia.
grazie per l'info 
Comunque è una richiesta per chi non ha la versione 2012
|
| GP |
Inserito il - 15 aprile 2011 : 13:48:05
Messaggio inserito da arri
sarebbe interessante inglobarlo in un lisp per poter eseguire la pulizia del dwg mediante la divisione in riquadri automatici.
La pulizia globale su dwg complessi richiede tantissimo tempo ...
Ormai non serve più, il comando nella 2012 è una scheggia.
Messaggio inserito da Terminator
...Dato che quelli dell'Autodesk ci hanno preso gusto per i nomi lunghissimi deI nuovi comandi e variabili, non oso pensare come chiameranno in italiano questo comando, forse UCCIDIENTITASOVRAPPOSTE??
ELIMINADUPLICATI, ma funziona anche OVERKILL (senza underscore). |
| Terminator |
Inserito il - 15 aprile 2011 : 11:01:06
Solito bug trovato in ritardo (righe aggiunte in rosso):
(defun C:TROVAASSE (/ gruppolinee index surf1 surf2 arc1
arc2 arcvl1 arcvl2 pinizialearc1 pinizialearc2
pfinalearc1 pfinalearc2 line1 line2
)
(vl-load-com)
(setq osm(getvar "OSMODE"))
(setvar "OSMODE" 0)
(setq gruppolinee (ssadd)
surf1 (getvar "SURFTAB1")
surf2 (getvar "SURFTAB2")
arc1 (car (entsel "\nSelezionare primo arco: "))
arc2 (car (entsel "\nSelezionare secondo arco: "))
arc1vl (vlax-ename->vla-object arc1)
arc2vl (vlax-ename->vla-object arc2)
pinizialearc1 (vlax-safearray->list (vlax-variant-value (vla-get-startpoint arc1vl)))
pinizialearc2 (vlax-safearray->list (vlax-variant-value (vla-get-startpoint arc2vl)))
pfinalearc1 (vlax-safearray->list (vlax-variant-value (vla-get-endpoint arc1vl)))
pfinalearc2 (vlax-safearray->list (vlax-variant-value (vla-get-endpoint arc2vl)))
)
(setvar "SURFTAB1" 1000)
(setvar "SURFTAB2" 2)
(command "_LINE" pinizialearc1 pinizialearc2 "")
(setq line1 (entlast))
(command "_LINE" pfinalearc1 pfinalearc2 "")
(setq line2 (entlast))
(command "_EDGESURF" arc1 line1 arc2 line2 "_EXPLODE" (entlast))
(setq gruppo (ssget "p"))
(setq index 0)
(repeat (sslength gruppo)
(command "_LINE"
(cdr (assoc 11 (entget (ssname gruppo index))))
(cdr (assoc 12 (entget (ssname gruppo index))))
""
)
(ssadd (entlast) gruppolinee)
(setq index (1+ index))
)
(command "_ERASE" gruppo line1 line2 "" "_PEDIT" "P" gruppolinee "" "_J" "" "")
(setvar "SURFTAB1" surf1)
(setvar "SURFTAB2" surf2)
(setvar "OSMODE" osm)
(princ)
)
(princ
"\nTROVAASSE (vers.1) - by Terminator"
)
(princ "\nDigitare TROVAASSE per lanciare il lisp")
(princ) |
| arri |
Inserito il - 15 aprile 2011 : 10:33:55
Messaggio inserito da Terminator
Pardon, mi ero fissato con l'underscore, il trattino invece è il segno -.
naturalmente la richiesta del lisp sopra citato è rivolta anche a te
|
| Terminator |
Inserito il - 15 aprile 2011 : 10:28:44
Pardon, mi ero fissato con l'underscore, il trattino invece è il segno meno. |
| arri |
Inserito il - 15 aprile 2011 : 10:27:24
Messaggio inserito da Terminator
E invece questa volta il trattino non serve
serve, altrimenti esce la finestra di dialogo
|
| Terminator |
Inserito il - 15 aprile 2011 : 10:18:52
| Messaggio inserito da GP
Col solito trattino anteposto al comando. |
E invece questa volta il trattino non serve essendo un comando degli EXPRESS TOOLS. Mi sembra, fra l'altro, che OVERKILL è uno comandi inglobati già nella versione AutoCAD 2012. Dato che quelli dell'Autodesk ci hanno preso gusto per i nomi lunghissimi deI nuovi comandi e variabili, non oso pensare come chiameranno in italiano questo comando, forse UCCIDIENTITASOVRAPPOSTE?? |
| arri |
Inserito il - 15 aprile 2011 : 10:11:28
Messaggio inserito da GP
Col solito trattino anteposto al comando.
grazie
sarebbe interessante inglobarlo in un lisp per poter eseguire la pulizia del dwg mediante la divisione in riquadri automatici.
La pulizia globale su dwg complessi richiede tantissimo tempo ...
|
| Terminator |
Inserito il - 15 aprile 2011 : 10:09:07
Senza scomodare OVERKILL potrebbe andare bene questo, scritto di getto:
(defun C:TROVAASSE (/ gruppolinee index surf1 surf2 arc1
arc2 arcvl1 arcvl2 pinizialearc1 pinizialearc2
pfinalearc1 pfinalearc2 line1 line2
)
(setq gruppolinee (ssadd)
surf1 (getvar "SURFTAB1")
surf2 (getvar "SURFTAB2")
arc1 (car (entsel "\nSelezionare primo arco: "))
arc2 (car (entsel "\nSelezionare secondo arco: "))
arc1vl (vlax-ename->vla-object arc1)
arc2vl (vlax-ename->vla-object arc2)
pinizialearc1 (vlax-safearray->list (vlax-variant-value (vla-get-startpoint arc1vl)))
pinizialearc2 (vlax-safearray->list (vlax-variant-value (vla-get-startpoint arc2vl)))
pfinalearc1 (vlax-safearray->list (vlax-variant-value (vla-get-endpoint arc1vl)))
pfinalearc2 (vlax-safearray->list (vlax-variant-value (vla-get-endpoint arc2vl)))
)
(setvar "SURFTAB1" 1000)
(setvar "SURFTAB2" 2)
(command "_LINE" pinizialearc1 pinizialearc2 "")
(setq line1 (entlast))
(command "_LINE" pfinalearc1 pfinalearc2 "")
(setq line2 (entlast))
(command "_EDGESURF" arc1 line1 arc2 line2 "_EXPLODE" (entlast))
(setq gruppo (ssget "p"))
(setq index 0)
(repeat (sslength gruppo)
(command "_LINE"
(cdr (assoc 11 (entget (ssname gruppo index))))
(cdr (assoc 12 (entget (ssname gruppo index))))
""
)
(ssadd (entlast) gruppolinee)
(setq index (1+ index))
)
(command "_ERASE" gruppo line1 line2 "" "_PEDIT" "P" gruppolinee "" "_J" "" "")
(setvar "SURFTAB1" surf1)
(setvar "SURFTAB2" surf2)
(princ)
)
(princ
"\nTROVAASSE (vers.1) - by Terminator"
)
(princ "\nDigitare TROVAASSE per lanciare il lisp")
(princ) |
| GP |
Inserito il - 15 aprile 2011 : 10:00:43
Messaggio inserito da arri
è possibile sfruttare il comando OVERKILL senza passare attraverso le finestre di dialogo ?
Col solito trattino anteposto al comando.
|
| arri |
Inserito il - 15 aprile 2011 : 09:44:18
Messaggio inserito da Terminator
un bel comandO OVERKILL
è possibile sfruttare il comando OVERKILL senza passare attraverso le finestre di dialogo ?
|
| Terminator |
Inserito il - 15 aprile 2011 : 08:43:48
Fra il punto 7 e il punto 8 sggiungerei un bel comandO OVERKILL, dato che i segmenti ottenuti dall'esplosione delle regioni sono sovrapposti. |
| joseph |
Inserito il - 14 aprile 2011 : 23:06:21
Improponibile forse, impossibile mai (scherzo!!)
Non è un arco vero e proprio ma, aumentando il valore della variabile, la differenza è minima.
Immagine inserita:
118,33 KB |
| Foxhound |
Inserito il - 14 aprile 2011 : 19:31:56
Essatto Mauro è quella la difficoltà che ho a disegnare l'asse. Però mi correggo hanno uguale curvatura.
Ci sono riuscito a disegnarlo, gli archi non hanno una origine in comune ma hanno un punto di rotazione in cui poi ho fatto serie polare per realizzarli.
Niente ho fatto una serie polare con metà dei gradi dei due profili e mi è risultato un arco perfettamente al centro che rappresenta l'asse.
Comunque in caso si dovesse disegnare un asse tra due curve differenti senza un comando specifico sarebbe impossile. |
| Giuseppe Mauro |
Inserito il - 14 aprile 2011 : 11:26:29
Mica ho capito cosa cerchi...
Terminator ti ha spiegato la procedura per cercare un segmento che sia medio tra gli estremi degli archi, che forse e' quello che cerchi, ma non e' un asse...
un asse dovrebbe avere caratteristiche di equidistanza, e tra 2 archi diventa difficile. Dovrebbe' piu avere la forma di un paraboloide.
Ci puoi spiegare meglio?
|
| Terminator |
Inserito il - 14 aprile 2011 : 06:40:03
comando linea --> m2p --> clic sui due estremi più vicini dei due archi --> altro clic sugli altri due estremi --> hai l'asse |
