Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  LSP funktioniert nicht mehr

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:  LSP funktioniert nicht mehr (1003 mal gelesen)
Carsten-0815
Mitglied
Schlosser


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

Beiträge: 33
Registriert: 03.01.2005

Autocad 2013 (64 BIT)

erstellt am: 18. Mai. 2012 07:57    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

Moin zusammen,

habe ein LSP, dass mir St.-Profilgewicht errechent,geht aber nicht mehr,
weiß jemand warum ?

Danke in vorraus

Carsten

(defun C:PROFGEWS ( / umr umr1 fl flges dr1 dr2 dr3 pkt1 laold cmdold umrnr
                umrisse)
  (setq laold (getvar "clayer"))
  (setq cmdold (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq umrisse (list ()))
  (setq umr (entsel "\nŽussere Profilkontur anw„hlen: "))
  (setq umrnr (car umr))
  (setq umrisse (cons umrnr umrisse))
  (redraw umrnr 3)
  (command "fl„che" "o" umr)
  (setq umr1 (getvar "perimeter"))
  (setq flges (getvar "area"))
  (while umr (setq umr (entsel "\nInnere Profilkontur(en) (Hohlrame) anw„hlen oder Return: "))
              (command "fl„che" "o" umr)
              (if umr (progn (setq umrnr (car umr))
                            (redraw umrnr 3)
                            (if (member umrnr umrisse)
                                (princ "Umriss wurde bereits angew„hlt")
                                (progn (setq umrisse (cons umrnr umrisse))
                                        (setq fl (getvar "area"))
                                        (setq flges (- flges fl))
                                )
                            )
                      )
              )
  )
  (if (< flges 0)
      (princ "Profilkonturen nicht korrekt angew„hlt")
      (progn
            (setq dr1 (strcat "Fl„che    = " (rtos flges 2 1) " mm2"))
            (setq dr2 (strcat "Abwicklung = " (rtos umr1 2 1) " mm"))
            (setq dr3 (strcat "Gewicht    = " (rtos (* flges 0.0079) 2 3) " kg/m"))
            (setq pkt1 (getpoint "\nWo soll der Text geschrieben werden?"))
            (command "layer" "mach" "t3" "lt" "continuous" "" "fa" "gelb" "" "")
            (command "text" pkt1 4 0 dr1) 
            (command "text" "" dr2)
            (command "text" "" dr3)
            (command "layer" "setz" laold "")
      )
  )
  (repeat (1-  (length umrisse))
          (setq umrnr (car umrisse))
          (setq umrisse (cdr umrisse))
          (redraw umrnr 4)
  )
  (setvar "cmdecho" cmdold)
  (princ)
)
(princ)


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

cad4fun
Ehrenmitglied



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

Beiträge: 1846
Registriert: 06.12.2004

privat ACAD 2013 und 2017 deutsch, Windows 7 64Bit
HP Elite 7500 Series MT,Intel Cote i5-3470 CPU 3,20Ghz,16GB RAM
ATI FirePro V (FireGL V) Graphics Adapter
Treiberversion: 15.201.1151.1008

erstellt am: 18. Mai. 2012 08:13    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 Carsten-0815 10 Unities + Antwort hilfreich

Und wie funktioniert es nicht? Irgendwelche Meldungen?
Liegt es vielleicht dardan, dass in Deiner Lisp der gleiche Fehler wie hier ist  Fl„che statt fläche?

EDIT:
was ist geändert, seit es das letzte Mal funktioniert hat?

[Diese Nachricht wurde von cad4fun am 18. Mai. 2012 editiert.]

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



Testingenieur (m/w/d)

Think global, act local: Nach dieser Devise entwickelt Big Dutchman wegweisende Stallausrüstungen für Legehennen, Mastgeflügel und Schweine. Seit über 80 Jahren steht unser Name für Innovation, Hightech und Qualität. Vom Hauptsitz in Vechta aus ist unser bodenständiges Familienunternehmen heute in mehr als 100 Ländern aktiv. Mit über 3.400 Mitarbeitenden und cleveren Konzepten sind wir weltweit auf solidem Wachstumskurs....

Anzeige ansehenQualitätsmanagement
Carsten-0815
Mitglied
Schlosser


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

Beiträge: 33
Registriert: 03.01.2005

Autocad 2013 (64 BIT)

erstellt am: 18. Mai. 2012 08:23    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,

ja, das mit den Umlauten stört mich aber auch nicht,
dennoch schreibt er das Ergebniss hin , aber alles null
Grad al ich diese Anwort schreibe, bin ich auf die Idee gekommen bei "Fläche" auch das "ä"
in der LSP zu ändern, und schon funktioniert das wieder

Danke für deinen Hinweis, dass war es schon
Als DAU (dümmst anzunehmender User" stolpert man über solche Kleinigkeiten.

Nochmal Danke und ein schönes Wochende

Carsten

Befehl: PROFGEWS
Žussere Profilkontur anw„hlen: Unbekannter Befehl "FL„CHE". Drücken Sie
F1-Taste für Hilfe.
Unbekannter Befehl "O". Drücken Sie F1-Taste für Hilfe.
<Objektname: FF4A5D00>
Innere Profilkontur(en) (Hohlrame) anw„hlen oder Return:
Unbekannter Befehl "FL„CHE". Drücken Sie F1-Taste für Hilfe.
Unbekannter Befehl "O". Drücken Sie F1-Taste für Hilfe.
Wo soll der Text geschrieben werden?*Abbruch*
Wo soll der Text geschrieben werden?

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