Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  AutoCAD Architecture ACA (ADT)
  zahlen.lsp

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  zahlen.lsp (752 mal gelesen)
wokijed
Mitglied
Konstrukteur

Sehen Sie sich das Profil von wokijed an!   Senden Sie eine Private Message an wokijed  Schreiben Sie einen Gästebucheintrag für wokijed

Beiträge: 2
Registriert: 04.10.2006

erstellt am: 04. Okt. 2006 10:21    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

hallo,

hab diese lsp gefunden   ( funktioniert besser als number.lsp) und würde aber gerne den layer einstellen und auch die texthöhe 

(Defun C:ZAHLEN ()
(START)
(prompt "\n\n\nDie aktuelle Texthöhe wird übernommen...")
(Setq A (Getint "\nStartnummer: "))
  (Setq E 1)
  (Setq I 0)
(Initget 1 "A")
(Setq P1T (Setq P1 (Getpoint"\nEinfuegepunkt oder Abbruch")))
  (While(/= P1T "A")
    (Setq F (Itoa A))
    (Command "Text" "z" P1 "" I F)
    (Setq A (+ A E))
    (Initget 1 "A")
    (Setq P1T (Setq P1 (Getpoint "\nEinfuegepunkt oder A für Abbruch")))
  )
(end)
(Princ)
)
(defun *error* (em)
(end)
(princ "\nAbbruch : ")
(princ em)
)
(defun end()
(if clay
    (progn
        (command "LAYER" "SE" clay "")
        (setvar "BLIPMODE" bmod)
        (setvar "CMDECHO" 1)
        (setvar "MENUECHO" mech)
        (setvar "OSMODE" mosm)
        (setvar "SNAPMODE" msna)
        (setvar "ORTHOMODE" mort)
      )
)
(princ)
)
(defun start()
(setq bmod (getvar "BLIPMODE")
      mosm (getvar "OSMODE")
      msna (getvar "SNAPMODE")
      mort (getvar "ORTHOMODE")
      clay (getvar "CLAYER")
      mech (getvar "MENUECHO")
)
(setvar "BLIPMODE" 0)
(setvar "CMDECHO" 0)
(setvar "MENUECHO" 3)
(setvar "OSMODE" 0)
(setvar "SNAPMODE" 0)
(setvar "ORTHOMODE" 0)
(command "LAYER" "M" "Text" "Fa" "1" "" "")
)

vielleicht kann mir jemand weiterhelfen

danke
grüße wokijed

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

charlieBV
Ehrenmitglied V.I.P. h.c.
Bauzeichnerin



Sehen Sie sich das Profil von charlieBV an!   Senden Sie eine Private Message an charlieBV  Schreiben Sie einen Gästebucheintrag für charlieBV

Beiträge: 9318
Registriert: 28.08.2003

Win 10 Pro

erstellt am: 04. Okt. 2006 11:28    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für wokijed 10 Unities + Antwort hilfreich

Hi und Herzlich Willkommen bei cad.de/Augce.de

ich denke, du bist mit einer Lisp-Anfrage hier im falschen Board gelandet. Das Lisp-Board ist hier und eine Übersicht der Foren hier.

Zudem kannst du uns und dir den Gefallen tun und deine Systeminfo bezüglich deiner verwendeten Software (Version, Aufsätze, Service Pack) auszufüllen.

------------------
Gruß Yvonne                                   ADT-Help-Site

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz