TuttoCAD Forum - personalizzare il comando pedit

TuttoCAD Forum

Nome Utente:	Password:
Salva Password
Password Dimenticata?

Tutti i Forum

1 - TuttoCAD Software

AutoLISP

personalizzare il comando pedit

Nuova Discussione

Rispondi

Versione Stampabile

Aggiungi Segnalibro

Autore

Discussione

blubossa
Utente Senior

102 Messaggi

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

GP
Utente Master

Regione: Piemonte
Prov.: Vercelli

2776 Messaggi

Inserito il - 24 ottobre 2010 : 21:50:46

Se AAA è la variabile assegnata alla poly:

(command "_PEDIT" AAA "E")

n/a
deleted

Prov.: Estero
Città: Sieradz (PL)

5926 Messaggi

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...

blubossa
Utente Senior

102 Messaggi

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

blubossa
Utente Senior

102 Messaggi

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

Terminator
Utente Master

725 Messaggi

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
Utente Senior

102 Messaggi

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
Utente Master

725 Messaggi

Inserito il - 31 ottobre 2010 : 10:03:42

De nada

joseph
Utente Master

Regione: Lombardia
Prov.: Cremona
Città: Casalmaggiore

1884 Messaggi

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
Utente Master

725 Messaggi

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.

Discussione

Nuova Discussione

Rispondi

Versione Stampabile

Aggiungi Segnalibro

Vai a:

TuttoCAD Forum

Pagina generata in 0,42 secondi.