CADsite forum

AutoCAD => Autolisp => Topic gestart door: silverster op wo 23 05 2007, 13:48:59

Titel: cijfers plaatsen
Bericht door: silverster op wo 23 05 2007, 13:48:59
Er is een lisp waarmee je cijfers plaats, door middel van klikken in je beeldscherm, helaas doet deze lisp het alleen maar hele getallen, en niet met een ingevoerde waarde.
dus op het moment dat je bijvoorbeeld huisnummers wil nummer aan 1 kant van de straat kan dan dus niet omdat die oplopen met 2 in plaats van met 1.
nu is mijn vraag ofdat iemand onderstaande lisp routine zou kunnen aanpassen zodat je gewoon een begin getal aangeeft, en de waarde waarmee dat begingetal moet stijgen/dalen.

(defun c:objno ()
(setq a (getint "Enter First Number:"))(terpri)
(setq h (getreal "Enter Text Height:"))(terpri)
(setq x 1)
(while x
(command "text" "j" "mc" pause h "0" a)(terpri)
(setq a (+ a 1))
(princ"This program has not yet been registered")(terpri)
(princ"See the readme.txt and register.txt files")(terpri)
)
Titel: Re: cijfers plaatsen
Bericht door: julien op wo 23 05 2007, 14:40:48
Volgens mij ben je geholpen met
http://www.cadsite.be/download/pafiledb.php?action=file&id=3
of
http://www.cadsite.be/download/pafiledb.php?action=file&id=10
Titel: Re: cijfers plaatsen
Bericht door: silverster op do 24 05 2007, 14:38:18
niet echt eigenlijk, die lisp nummerx, telt vanaf de beginwaarde alles op met de waarde die je ingevoerd heb,
dus stel je hebt de cijfers 1, 2, 3, 4, 5

en dan doe je nummerx met een delta waarde van bv. 0.5
dan krijg je nu dus
1.5, 2, 2.5, 3, 3.5, 4 enz

terwijl ik dan eigenlijk
1.5, 2.5, 3.5, 4.5, 5.5 wil
Titel: Re: cijfers plaatsen
Bericht door: julien op do 24 05 2007, 14:57:55
Dat kan toch perfect met autonumb?
http://www.cadsite.be/download/pafiledb.php?action=file&id=3
(https://cadsite.be/smf/proxy.php?request=http%3A%2F%2Fvaria.cadsite.be%2Fautonumb.jpg&hash=f43329105f0cfeeb5a315e20ce805b3f6b80b1f5)