---

Hallo zusammen,

kann mir jemand helfen?
Bin per http://www.cad-od.de/downloads.html  hier gelandet.

Wollte eigentlich das Number-lisp finden  (Zitat: Tool dient zum Nummerieren. Startnummer festlegen und dann nur noch die Punkte anwählen an denen fortlaufende Nummer eingetragen werden soll.)

Allerdings landete ich beim Script , dass Kreise in Polylinien ändert.

Hat jemand ein lisp mit dem ich Punkte markieren kann und bei denen dann automatisch fortlaufende Zahlen entstehen?

Danke und Gruss
Marco

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

meinst du sowas hier?

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Sehr alt und einfach vor Jahren aus dem Netz gefischt
(defun c:number (/ nr ipt ant)
  (setq nr (if (setq ant(getint "\nStartnummer <0>"))
    (1- ant)
    0
    )
)
  (while (setq ipt (getpoint (strcat "\nEinfügepunkt: " (itoa (setq nr (1+ nr))) ":")))
    (entmake(list
      '(0 . "TEXT")
      '(100 . "AcDbEntity")
      '(67 . 0)
      '(410 . "Model")
      '(8 . "0")
      '(100 . "AcDbText")
      (cons 10 ipt)
      '(40 . 0.175)          ;texthoehe
      (cons 1 (itoa nr))
      '(50 . 0.0)
      '(41 . 1.0)
      '(51 . 0.0)
      '(7 . "ARIAL")          ;textstil
      '(71 . 0)
      '(72 . 0)
      (cons 11 ipt)
      '(210 0.0 0.0 1.0)
      '(100 . "AcDbText")
      '(73 . 0)
      )
    )
    )
  (princ)
  )

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,
das ist ne alte Seite. Aktuell ist http://www.d-tools.eu/Asptest/Tools.aspx
Dort gibt es aber kein "Number.lsp" (zumindest hab ich keins gefunden), aber der Herr google kennt so eine lsp: http://www.spaug.org/LISP_Index00.Html  -> October.
kA, ob Du das brauchen kannst, teste und berichte. Wenn's das nicht ist, es gibt viele weitere, google kennt die meisten davon, wenn's das immer noch nicht ist: http://ww3.cad.de/foren/ubb/Forum54/HTML/021111.shtml#000001     
Viel Erfolg!

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info | Dateianhänge | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

es stimmt, es sind noch nicht alle Tools migriert  - Von der alten Seite,  kann man noch die alten Dateien herunterladen. Die Links auf die Forenbeiträge sind nicht mehr passend. Unter dem Forenbeitrag-Link ist aber der Download-Button (ohne Bild), der auf das richtige Ziel verweist.
In dem Fall auf: http://www.cadlon.de/FREEDOWNLOAD/Nummer.zip

Bei Fragen ...

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen,

Vielen Dank für die Hilfe.

Habe mich dann für Numinc entschieden, genau das was ich suchte.

Merci und Grüsse
Marco

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

http://ww3.cad.de/foren/ubb/uploads/E-Boy/DDNUM.DCL.txt
http://ww3.cad.de/foren/ubb/uploads/E-Boy/DDNUM.LSP.txt

Vielleicht ist das was für Dich... .txt weglöschen

------------------
Gruß Stefan

  Nur Feiglinge speichern zwischen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo MarcoSVB,

dafür braucht man nicht unbedingt LISP, das kann man auch mit Schaltermakros in DIESEL lösen. Wie das geht, steht hier. In der Vollversion sind die Aufrufe "getenv" und "setenv" durch "getvar und "setvar" zu ersetzen. Auch vorangestellter Text oder Brüche sind möglich. Ein Beispiel befindet sich dort.

mfg, Ingo 

------------------
"Umwege erhöhen die Ortskenntnisse!"

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen,

leider ist meine obige Behauptung so nicht richtig und gilt nur für AutoCAD LT.
Dennoch gibt es eine Lösung, die sowohl unter LT als auch unter VV läuft. Diese stammt von wronzky:

Zitat:

---

AutoCAD (VV) kennt die Befehle getenv und setenv (im Normalfall) nicht, also würde das selbe Makro, das in LT läuft in VV nicht laufen. Ärgerlich, aber abstellbar, indem man in der VV einfach die Befehle vorher definiert, dann läuft das LT-Makro auch in der VV:

Code:

(defun c:getenv (/ env_name)
  (if
    (/= (setq env_name (getstring "Variablennamen eingeben: ")) "")
    (getenv env_name)
  )
)

(defun c:setenv (/ env_name value)
  (if
    (and
      (/= (setq env_name (getstring "Variablennamen eingeben: ")) "")
      (/= (setq value (getstring "Wert: ")) "")
    )
    (setenv env_name value)
  )
)

---

P.S.: Danke für ein wenig Nachhilfe an cadffm! 

mfg, Ingo 

------------------
"Umwege erhöhen die Ortskenntnisse!"

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP