Rechteck Linienbreite (Autodesk/Lisp) - Lösung vorhanden!


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: Rechteck Linienbreite (1221 / mal gelesen)
Meldin Mitglied Beiträge: 381 Registriert: 15.07.2011 ACA2020 Windows10	erstellt am: 09. Jul. 2019 13:56 <-- editieren / zitieren --> Unities abgeben: Hallo, stehe gerade auf dem Schlauch und hatte so keine Antwort gefunden. Für eine Polylinie kann ich die Breite mit (setvar "PLINEWID" Actvive-LinienBreite) festlegen aber wie mache ich das bei einem Rechteck ist doch auch nur eine Poly. Hatte auch keine Var gefunden. ------------------ Gruß Wolfgang Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
cadffm Moderator 良い精神 Beiträge: 21533 Registriert: 03.06.2002 Alles	erstellt am: 09. Jul. 2019 14:15 <-- editieren / zitieren --> Unities abgeben: Nur für Meldin Ist nur eine Poly, richtig - aber aber es ist auch viel mehr ein Befehl und der nutzt die plinewid Einstellunge eben nicht, sondern seine eigene. Die ist nicht dauerhaft gespeichert und temporär ist mir kein anderer Weg wie über den Befehl selbst bekannt. (soll nicht bedeuten das es da nichts gibt, mir ist es aber nicht bekannt). Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Meldin Mitglied Beiträge: 381 Registriert: 15.07.2011 ACA2020 Windows10	erstellt am: 09. Jul. 2019 14:32 <-- editieren / zitieren --> Unities abgeben: So etwas hatte ich befürchtet. ok vielen Dank! ------------------ Gruß Wolfgang Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Meldin Mitglied Beiträge: 381 Registriert: 15.07.2011 ACA2020 Windows10	erstellt am: 09. Jul. 2019 14:58 <-- editieren / zitieren --> Unities abgeben: Wäre dagegen was einzuwenden? Code: (defun c:RectLW (PLB / Varosmode) (setq Varosmode (getvar "osmode")) (setvar "osmode" 0) (command "rechteck" "Breite" PLB "0,0" "0,0") (entget (entlast)) (if (and (= "Polylinie" (getpropertyvalue (entlast) "LocalizedName")) (= 0.0 (getpropertyvalue (entlast) "Length")) ) (command "_.erase" (entlast) "") ) (setvar "osmode" Varosmode) ) ------------------ Gruß Wolfgang Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
cadffm Moderator 良い精神 Beiträge: 21533 Registriert: 03.06.2002 Alles	erstellt am: 09. Jul. 2019 15:06 <-- editieren / zitieren --> Unities abgeben: Nur für Meldin Ich hätte so ziemlich in jeder Zeile was einzuwenden, daher bin ich nicht sicher zu verstehen um was es aktuell geht bei der Frage. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
cadffm Moderator 良い精神 Beiträge: 21533 Registriert: 03.06.2002 Alles	erstellt am: 09. Jul. 2019 15:10 <-- editieren / zitieren --> Unities abgeben: Nur für Meldin Zitat: Original erstellt von cadffm:Ich hätte so ziemlich in jeder Zeile was einzuwenden einzuwenden = anzumerken Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Meldin Mitglied Beiträge: 381 Registriert: 15.07.2011 ACA2020 Windows10	erstellt am: 09. Jul. 2019 16:24 <-- editieren / zitieren --> Unities abgeben: Ich habe zur Zeit eine Menge Dateien in denen ich immer PL und RE Eintragungen machen muss und daher nicht immer die breiten von Hand anpassen möchte sollte dies nur ein wenig helfen für RE. Und natürlich (entget (entlast)) ist da überflüssig. Gerne nehme ich aber deine Anmerkungen an. ------------------ Gruß Wolfgang Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)