TuttoCAD Forum

TuttoCAD Forum
[ Home | Registrati | Discussioni Attive | Discussioni Recenti | Segnalibro | Msg privati | Sondaggi Attivi | Utenti | Album Fotografico | Download | | Cerca | FAQ ]
Nome Utente:
 Password:
Salva Password
Password Dimenticata?

 Tutti i Forum
 1 - TuttoCAD Software
 AutoCAD
 Lisp per sequenza numeria		  Nuova Discussione  Rispondi
 Versione Stampabile Bookmark this Topic Aggiungi Segnalibro
I seguenti utenti stanno leggendo questo Forum Qui c'è:
Autore Discussione Precedente Discussione Discussione Successiva  

Giovannino60
Utente Master



355 Messaggi
Inserito il - 26 agosto 2016 : 14:15:34  Mostra Profilo Invia a Giovannino60 un Messaggio Privato  Rispondi Quotando
Ho installato questo lisp per creare dei numeri crescenti ma non capisco scrivo numero sulla riga di comando
http://xoomer.virgilio.it/lwcon/autolisp/autolisp.htm

punto 025 nome numera


Non capisco come procedere mi chiede:
1) numero iniziale e cosa devo fare dove devo metterlo?
2) ragione cos'è?
3) punto iniziale cosa devo fare?

Grazie

arri
Utente Master


Regione: Lombardia


14951 Messaggi
Inserito il - 26 agosto 2016 : 15:03:11  Mostra Profilo Invia a arri un Messaggio Privato  Rispondi Quotando
prova quello segnalato da joseph

http://www.cadlandia.com/topic.asp?TOPIC_ID=12060

(defun c:num (/ oldPref oldSuf oldStart curStr newNum
actDoc actSp oldEcho oldSize *error*)
(defun *error* (msg)
(setvar "CMDECHO" oldEcho)
(princ)
); end *error*
(vl-load-com)
(if(not num:Size)(setq num:Size(getvar "DIMTXT")))
(if(not num:Pref)(setq num:Pref ""))
(if(not num:Suf)(setq num:Suf ""))
(if(not num:Num)(setq num:Num 1))
(setq oldPref num:Pref
oldSuf num:Suf
oldStart num:Num
oldSize num:Size
actDoc(vla-get-ActiveDocument
(vlax-get-acad-object))
oldEcho(getvar "CMDECHO")
); end setq
(setvar "CMDECHO" 0)
(if(=(vla-get-ActiveSpace actDoc)1)
(setq actSp(vla-get-ModelSpace actDoc))
(setq actSp(vla-get-PaperSpace actDoc))
); end if
(setq num:Size
(getreal
(strcat "\nText size <"(rtos num:Size)">: ")))
(if(null num:Size)(setq num:Size oldSize))
(setq num:Pref
(getstring T
(strcat "\nPrefix: <"num:Pref">: ")))
(if(= "" num:Pref)(setq num:Pref oldPref))
(if(= " " num:Pref)(setq num:Pref ""))
(setq num:Suf
(getstring T
(strcat "\nSuffix: <"num:Suf">: ")))
(if(= "" num:Suf)(setq num:Suf oldSuf))
(if(= " " num:Suf)(setq num:Suf ""))
(setq num:Num
(getint
(strcat "\nStarting number <"(itoa num:Num)">: ")))
(if(null num:Num)(setq num:Num oldStart))
(princ "\n<<< Insert numbers or press Esc to quit >>> ")
(while T
(setq curStr(strcat num:Pref(itoa num:Num)num:Suf)
newNum(vla-AddText actSp
curStr (vlax-3d-point '(0.0 0.0 0.0)) num:Size))
(vla-put-Alignment newNum acAlignmentMiddleCenter)
(command "_.copybase"(trans '(0.0 0.0 0.0)0 1)(entlast)"")
(command "_.erase" (entlast) "")
(command "_.pasteclip" pause)
(setq num:Num(1+ num:Num))
); end while
(princ)
)
Torna all'inizio della Pagina

Giovannino60
Utente Master



355 Messaggi
Inserito il - 26 agosto 2016 : 15:06:09  Mostra Profilo Invia a Giovannino60 un Messaggio Privato  Rispondi Quotando
Dove carico tutte le scritte che mi hai allegato?
Torna all'inizio della Pagina

arri
Utente Master


Regione: Lombardia


14951 Messaggi
Inserito il - 26 agosto 2016 : 15:13:08  Mostra Profilo Invia a arri un Messaggio Privato  Rispondi Quotando
Messaggio inserito da Giovannino60

Dove carico tutte le scritte che mi hai allegato?

copi tutto il listato e lo incolli sulla riga di comando di AutoCAD
Torna all'inizio della Pagina

arri
Utente Master


Regione: Lombardia


14951 Messaggi
Inserito il - 26 agosto 2016 : 15:18:16  Mostra Profilo Invia a arri un Messaggio Privato  Rispondi Quotando
oppure lo copi in un file con estensione lisp,
come allegato
Una volta caricato il comando è NUM


Scarica allegato:

num.rar
1,1 KB
Torna all'inizio della Pagina

Giovannino60
Utente Master



355 Messaggi
Inserito il - 26 agosto 2016 : 17:10:32  Mostra Profilo Invia a Giovannino60 un Messaggio Privato  Rispondi Quotando
Come bisogna scrivere per partire da 10 e poi cliccare per avere 11 e poi cliccare per avere il 12 ecc.
Modificato da - Giovannino60 in data 26 agosto 2016 17:18:02
Torna all'inizio della Pagina

arri
Utente Master


Regione: Lombardia


14951 Messaggi
Inserito il - 26 agosto 2016 : 18:23:45  Mostra Profilo Invia a arri un Messaggio Privato  Rispondi Quotando
Messaggio inserito da Giovannino60

Come bisogna scrivere per partire da 10 e poi cliccare per avere 11 e poi cliccare per avere il 12 ecc.

Comando: NUM

Text size <2.5>:

Prefix: <>:

Suffix: <>:

Starting number <1>: 10

<<< Insert numbers or press Esc to quit >>>
Torna all'inizio della Pagina

cantacad
Utente Master



662 Messaggi
Inserito il - 30 agosto 2016 : 11:13:58  Mostra Profilo Invia a cantacad un Messaggio Privato  Rispondi Quotando
utile! segnalo anche il comando express tcount (automatic text numbering)
Torna all'inizio della Pagina

Roberto07
Utente Master



Regione: Lazio
Prov.: Roma
Città: Sabina Italia


1042 Messaggi
Inserito il - 31 agosto 2016 : 15:55:04  Mostra Profilo Invia a Roberto07 un Messaggio Privato  Rispondi Quotando
Io uso numincv2-9.lsp che mi sembra di averlo avuto proprio qui. Funziona benissimo, l'unica cosa da ricordarsi è di impostare l'altezza che di default sta a 0.0...
Torna all'inizio della Pagina

arri
Utente Master


Regione: Lombardia


14951 Messaggi
Inserito il - 01 settembre 2016 : 13:33:57  Mostra Profilo Invia a arri un Messaggio Privato  Rispondi Quotando
Messaggio inserito da Roberto07

Io uso numincv2-9.lsp che mi sembra di averlo avuto proprio qui. Funziona benissimo, l'unica cosa da ricordarsi è di impostare l'altezza che di default sta a 0.0...



http://www.cadlandia.com/topic.asp?TOPIC_ID=12996&SearchTerms=numera
Torna all'inizio della Pagina
  Discussione Precedente Discussione Discussione Successiva  
 Nuova Discussione  Rispondi
 Versione Stampabile Bookmark this Topic Aggiungi Segnalibro
Vai a:
TuttoCAD Forum © 2001-2010 CADLandia Torna all'inizio della Pagina
Pagina generata in 1,45 secondi.