| V I S U A L I Z Z A D I S C U S S I O N E |
| blubossa |
Inserito il - 24 ottobre 2010 : 20:19:43
ciao a tutti,
vorrei creare un lisp che vada direttamente in edita vertici e al prompt vorrei vedere solo le opzioni avanti indietro ed esci.....
ovviamente riferito ai vertici della polilinea.
ho provato ma purtroppo al prompt dei comandi mi esce sempre l'opzione di defaul di autocad.......
come posso aggirare l'ostacolo??
grazie |
| 9 U L T I M E R I S P O S T E (in alto le più recenti) |
| Terminator |
Inserito il - 31 ottobre 2010 : 18:11:06
Per la verità non ho chiesto a blu l'uso che intende fare di questa variante del comando PEDIT, pura visualizzazione dei vertici senza modifica. Ad ogni modo lui deciderà l'uso più opportuno. |
| joseph |
Inserito il - 31 ottobre 2010 : 14:23:09
Tanto di csppello alla tua personalizzazione ma... dove utilizzi e qual'è la funzionalità di questo nuovo comando, se non sono indiscreto?
Saluti
Joseph |
| Terminator |
Inserito il - 31 ottobre 2010 : 10:03:42
De nada |
| blubossa |
Inserito il - 30 ottobre 2010 : 23:18:54
| Messaggio inserito da Terminator
Così dovrebbe andare:
(defun C:PPEDIT (/ ename a1 a prova olderr)
(defun err (errmsg)
(alert (strcat " " errmsg))
(setq *error* olderr
olderr nil
)
(command "C" "")
)
(setq olderr *error*
*error* err
)
(setvar "CMDECHO" 0)
(setq ename (car (entsel "\nSELEZIONA PROFILO DA SEGUIRE!")))
(prompt "\nPREMI INVIO PER SPOSTARSI SUL PUNTO SUCCESSIVO!")
(command "_PEDIT"
ename
"_E"
)
(setq a1 "S")
(setq prova "PROVA")
(while prova
(princ "\n[Seguente/Precedente/esCi] <")
(princ a1)
(setq a (strcase (getstring ">: ")))
(if (= a "")
(setq a a1)
(setq a1 a)
)
(cond
((= a "S")
(command "SE")
)
((= a "P")
(command "PR")
)
((= a "C")
(command "C" "")
(setq prova nil)
)
(T
(alert "Comando non valido!")
)
)
)
(setq *error* olderr
olderr nil
)
(princ)
)
|
ciao terminetor della soluzione veramente geniale!!!
non conoscevo questa tecnica di prg.
grazie
bb
|
| Terminator |
Inserito il - 30 ottobre 2010 : 17:41:33
Così dovrebbe andare:
(defun C:PPEDIT (/ ename a1 a prova olderr)
(defun err (errmsg)
(alert (strcat " " errmsg))
(setq *error* olderr
olderr nil
)
(command "C" "")
)
(setq olderr *error*
*error* err
)
(setvar "CMDECHO" 0)
(setq ename (car (entsel "\nSELEZIONA PROFILO DA SEGUIRE!")))
(prompt "\nPREMI INVIO PER SPOSTARSI SUL PUNTO SUCCESSIVO!")
(command "_PEDIT"
ename
"_E"
)
(setq a1 "S")
(setq prova "PROVA")
(while prova
(princ "\n[Seguente/Precedente/esCi] <")
(princ a1)
(setq a (strcase (getstring ">: ")))
(if (= a "")
(setq a a1)
(setq a1 a)
)
(cond
((= a "S")
(command "SE")
)
((= a "P")
(command "PR")
)
((= a "C")
(command "C" "")
(setq prova nil)
)
(T
(alert "Comando non valido!")
)
)
)
(setq *error* olderr
olderr nil
)
(princ)
) |
| blubossa |
Inserito il - 25 ottobre 2010 : 18:14:48
| Messaggio inserito da GP
Se AAA è la variabile assegnata alla poly:
(command "_PEDIT" AAA "E")
|
ho provato con il comando pline e sono riuscito a gestire le opzioni, la cosa non mi riesce con il comando pedit, e non riesco a capire come risolvere. Di seguito gli esempi:
(setq pt T)
(setq pt0(getpoint "\nInserisci punto iniziale dima:\n"))
(command "_PLINE" pt0)
(initget "Rif Linea Arco Esci Chiudi")
(while pt
(initget "Rif Linea Arco Esci Chiudi")
(setq pt(getpoint pt0 "\nInserisci punto o Rif/Linea/Arco/Esci/Chiudi:\n"))
............
..........
.............
---------------------------
(defun c:ppedit ()
(SETVAR "CMDECHO" 0)
(setq ename (car (entsel "\nSELEZIONA PROFILO DA SEGUIRE!")))
(PROMPT "\nPREMI INVIO PER SPOSTARSI SUL PUNTO SUCCESSIVO!")
(initget "Seguente Precedente Esci")
(COMMAND "_PEDIT" ENAME "_E"
(while (not (zerop (getvar "cmdactive")))
((initget "Seguente Precedente Esci"))
)
)
);def
che ne pensate??
bb
|
| blubossa |
Inserito il - 25 ottobre 2010 : 08:45:39
| Messaggio inserito da GP
Se AAA è la variabile assegnata alla poly:
(command "_PEDIT" AAA "E")
|
ma io ho fatto proprio così..........però non è quello che voglio
perché mi mostra subito dopo tutte le opzioni che sono presenti all'interno del comando pedit.
io non voglio far vedere quelle opzioni, ma vorrei metterne delle mie che riguardano i vertici e cioè:
avanti (premendo invio ci si sposta al vertice successivo)
indietro (premendo invio ci si sposta al vertice precedente)
esci
questo semplicemente per semplificare il comando per l'operatore.
grazie
bb |
| n/a |
Inserito il - 24 ottobre 2010 : 23:35:15
| Messaggio di blubossa
vorrei vedere solo le opzioni avanti indietro ed esci
|
Direi che sia possibile soltanto con una maschera DCL, ma lascio l'ultima parola a Mastro GePpetto...
 |
| GP |
Inserito il - 24 ottobre 2010 : 21:50:46
Se AAA è la variabile assegnata alla poly:
(command "_PEDIT" AAA "E")
|
