| V I S U A L I Z Z A D I S C U S S I O N E |
| Giovannino60 |
Inserito il - 26 agosto 2016 : 14:15:34
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
|
| 9 U L T I M E R I S P O S T E (in alto le più recenti) |
| arri |
Inserito il - 01 settembre 2016 : 13:33:57
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
|
| Roberto07 |
Inserito il - 31 agosto 2016 : 15:55:04
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... |
| cantacad |
Inserito il - 30 agosto 2016 : 11:13:58
utile! segnalo anche il comando express tcount (automatic text numbering) |
| arri |
Inserito il - 26 agosto 2016 : 18:23:45
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 >>>
|
| Giovannino60 |
Inserito il - 26 agosto 2016 : 17:10:32
Come bisogna scrivere per partire da 10 e poi cliccare per avere 11 e poi cliccare per avere il 12 ecc.
|
| arri |
Inserito il - 26 agosto 2016 : 15:18:16
oppure lo copi in un file con estensione lisp,
come allegato
Una volta caricato il comando è NUM
Scarica allegato:
 num.rar
1,1 KB |
| arri |
Inserito il - 26 agosto 2016 : 15:13:08
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
|
| Giovannino60 |
Inserito il - 26 agosto 2016 : 15:06:09
Dove carico tutte le scritte che mi hai allegato? |
| arri |
Inserito il - 26 agosto 2016 : 15:03:11
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)
) |
