Hot News aus dem CAD.de-Newsletter:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Lisp für Böschungssignatur

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
Autor Thema:   Lisp für Böschungssignatur (304 mal gelesen)
Dunkelelf
Mitglied
CAD-Konstrukteur


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

Beiträge: 74
Registriert: 10.02.2017

Windows 7
Prozessor: I7-4810, 2,8 GHz mit 32GB RAM
Grafikkarte: NVIDIA Quadro K1100M
AutoCAD 2017, SP1

erstellt am: 23. Jan. 2020 12:47    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


Boesch.lsp

 
Hallo zusammen
Ich benutze die angehängte Lisp um Böschungssignaturen zu erstellen.
Leider kann ich für den Schraffurabstand nur Werte ab "1" eingeben.
Nur Ganzzahlen erlaubt.
Es wäre schön wenn ich auch andere Werte (z. B. 0.5) eingeben könnte.
Da es hier im Forum ja viele Lisp-Füchse gibt hoffe ich, das mir jemand helfen kann.

------------------
freundlich grüßt der Dunkelelf

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

spider_dd
Mitglied



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

Beiträge: 1010
Registriert: 27.11.2003

Win 10Pro
Intel(R) Core(TM) i7-7700
NVIDIA Quadro P1000
ACAD, Civil-3D 2018

erstellt am: 23. Jan. 2020 13:10    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 Dunkelelf 10 Unities + Antwort hilfreich

Hallo Dunkelelf,

suche in der Lis-Datei mal folgende Zeile:

Code:
(setq abstand (getint "\nSchraffurabstand:"))

und ersetze das getint mit getreal

Dann neuladen, probieren und berichten 

HTH
Gruß Thomas

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

Dunkelelf
Mitglied
CAD-Konstrukteur


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

Beiträge: 74
Registriert: 10.02.2017

Windows 7
Prozessor: I7-4810, 2,8 GHz mit 32GB RAM
Grafikkarte: NVIDIA Quadro K1100M
AutoCAD 2017, SP1

erstellt am: 23. Jan. 2020 13:12    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 Spider
Daran liegt es leider nicht.

------------------
freundlich grüßt der Dunkelelf

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

runkelruebe
Moderator
Straßen- / Tiefbau




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

Beiträge: 8017
Registriert: 09.03.2006

sw:
Win7-x64
Office 365 ProPlus
C3D (& LT )
ET; DACH; Extensions
-------------------
hw:
FX3800
i5 CPU 670
8GB RAM

erstellt am: 23. Jan. 2020 13:22    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 Dunkelelf 10 Unities + Antwort hilfreich

Hmm, genau das bewirkt bei mir aber das gewünschte Verhalten.
Hast Du die lsp erneut mit APPLOAD reingeladen, nachdem Du sie geändert (und gespeichert) hast?

Welche Meldung kommt genau?

Erfordert einen ganzzahligen Wert. 

Code:
getint:
Befehl: BOESCH

Obere Grenzkante wählen:
Untere Grenzkante wählen:
Schraffurabstand:0.5

Erfordert einen ganzzahligen Wert.

Schraffurabstand:*Abbruch*
; Fehler: Funktion abgebrochen



Code:
getreal


Befehl: BOESCH

Obere Grenzkante wählen:
Untere Grenzkante wählen:
Schraffurabstand:0.5
131

Befehl:
Befehl: Entgegengesetzte Ecke angeben oder [Zaun/FPolygon/KPolygon]:


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

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

Dunkelelf
Mitglied
CAD-Konstrukteur


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

Beiträge: 74
Registriert: 10.02.2017

Windows 7
Prozessor: I7-4810, 2,8 GHz mit 32GB RAM
Grafikkarte: NVIDIA Quadro K1100M
AutoCAD 2017, SP1

erstellt am: 23. Jan. 2020 13:32    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


Boesch.lsp

 
Hallo nochmal
Hatte parallel zu dieser Anfrage bei uns in der Abteilung um Hilfe gebeten und habe eine Lösung bekommen.
Mit der Lisp im Anhang funktioniert es.
Danke für die Mühen. Unities folgen.

------------------
freundlich grüßt der Dunkelelf

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

runkelruebe
Moderator
Straßen- / Tiefbau




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

Beiträge: 8017
Registriert: 09.03.2006

sw:
Win7-x64
Office 365 ProPlus
C3D (& LT )
ET; DACH; Extensions
-------------------
hw:
FX3800
i5 CPU 670
8GB RAM

erstellt am: 23. Jan. 2020 13:48    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 Dunkelelf 10 Unities + Antwort hilfreich


2020-01-23--Boeschungsschraffuren.PNG

 
Laut notepad++ unterscheiden sich Deine beiden Dateien genau um die von spider_dd erwähnte Zeile  
Ich setze daher nach wie vor auf den fehlenden APPLOAD, freue mich aber natürlich, dass es jetzt zufriedenstellend läuft  

PS: Dass diese Böschungsschraffur seltsam aussieht, ist mutmaßlich bekannt. Aber es hat ja nicht jeder ein DACH, mit dem man versch. Arten einstellen kann, mal mehr, mal weniger hübsch (screenshot anbei).
Kennt eigentlich wer die Zeichenvorschrift (NORM) für diese Schraffuren?

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

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)2020 CAD.de | Impressum | Datenschutz