|
Lisp : Polylinie versetzen und enden schließen
Hämmy am 31.08.2020 um 06:29 Uhr (1)
Zitat:Original erstellt von CAD-Huebner:Anbei mal eine überarbeitete Version mit Vorgabelayer "Blech", Wahl der Seite durch +- Blechdicke und anschließender Schraffur mit ANSI31.Details kann man dann im Lisp Code selbst noch anpassen.@CAD-Huebner,super... das funktioniert jetzt wirklich prima, jetzt geht es auch in die andere Richtung.Aber eines bekomme ich immer noch nicht hin:Die Schraffur wird mit dieser Einstellung auf meine letzten Schraffur Einstellungen gesetzt, so weit so gut. Doch wenn ich einen a ...
| | In das Form Lisp wechseln |
|
Lisp : Polylinie versetzen und enden schließen
CAD-Huebner am 01.09.2020 um 09:06 Uhr (1)
Frage 1: der Code am Schluss hat keine besondere Funktion - in einer Lisp Datei können beliebig viele Funktionen definiert sein, diese war ein separates Beispiel, dass ich einfach in der Lisp Datei belassen habe.Frage 2: Ja, dass Problem sehe ich genauso. Hier ist einfach der Quellcode so programmiert worden, dass zunächst eine Polylinie schrittweise gezeichnet wird (AddVertex) und dann nach jedem neuen Punkt komplett abgerundet wird (_FILLET Polyline) und dann einseitig versetzt wird.Richtigerweise müsste ...
| | In das Form Lisp wechseln |
|
Lisp : DOTS-Schraffuren auf SOLID ändern
Dorfy am 01.10.2009 um 09:17 Uhr (1)
Hi Peter,mal nen Versuch ohne command (setq hatch (vlax-ename-vla-object (car (entsel "
Hatch:")))) (vla-SetPattern hatch acHatchPatternTypePreDefined "SOLID")------------------Mfg HeikoElefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..." (www.uni-leipzig.de/~rotheh/elefant.htm)
| | In das Form Lisp wechseln |
|
Lisp : Umgrenzung für Schraffur neu erstellen
Hämmy am 10.09.2020 um 07:25 Uhr (1)
Hallo Leute,ich habe folgendes Problem:wenn ich Objekte die Schraffiert sind, kopiere und danach in der Größe ändere, geht die Schraffur nicht mit.Eigentlich sollte das nicht so sein, aber bei kopierten ist das leider oft der Fall.jetzt muß ich Umständlich in die Schraffur gehen, die Umgrenzung für das Objekt entfernen, und dann das gestreckte Objekt als neue Umgrenzung auswählen.Das ist natürlich sehr umständlich, deshalb wollte ich hier fragen, ob man dafür eine Lösung per Lisp basteln kann.z.B.Schraffur ...
| | In das Form Lisp wechseln |
|
Lisp : Umgrenzung für Schraffur neu erstellen
Hämmy am 10.09.2020 um 11:24 Uhr (1)
noch zur Info:ich verwende oft diese Lisp um schnell etwas zu schraffieren:Code:(Defun C:schraff() (command "_hatch" "ANSI31" 10.0 0.0 "setq objekt" ""))wenn ich das dann in der Größe strecke, bleibt die Schraffur stehen, und geht nicht mit.Aus diesen Grund meine obere Anfrage Gruß Hämmy
| | In das Form Lisp wechseln |
|
Lisp : Umgrenzung für Schraffur neu erstellen
KlaK am 10.09.2020 um 17:34 Uhr (1)
Ja, so ist das mit Fremdzeichnungen ...Steht denn die Schraffur bei den nicht funktionierenden Fremdobjekten auf assoziativ?Zitat:z.B.Schraffur auswählen, neues Objekt wählen fertig. So müsste es gehen, die Schraffur einer neuen Umgrenzung zuzuweisen.Ist das machbar?In VBA wüßte ich wie das zu proggen wäre, in Lisp übersteigt das leider meine Kenntnisse, müßte aber machbar sein. Allerdings gibt es hier schon noch einige Sachen zu klären:- Haben die Flächen nur äußere Umgrenzungen? Sind diese eindeutig defi ...
| | In das Form Lisp wechseln |
|
Lisp : Umgrenzung für Schraffur neu erstellen
Hämmy am 14.09.2020 um 14:24 Uhr (1)
@cadffm,wenn ich bei mir im linken Bereich das Mauerwerk mit Dämmung strecke, geht die Dämmung nicht mit, aber bei dieser ist assoziativ aktiviert.Das ist immer mein Problem.Zu der Ursprünglichen frage nach eine Lisp:Kann man nicht eine Lisp erstellen, in welcher ich hinterlege, welche Schraffur, den Winkel, den Layer und Assoziativ.Dann sollte die Lisp einfach nach den Objekten fragen, welche mit meiner Voreinstellung schraffiert werden sollen. Sozusagen 2 Klicks, denn jetzt brauche ich einige mehr, und d ...
| | In das Form Lisp wechseln |
|
Lisp : Alternative zu REFEDIT
cadplayer am 23.09.2020 um 13:28 Uhr (1)
Entschuldige für die dürtigen infos und danke vorab für deine schnelle antwort.Mittels Accoreconsole will ich mehrere 100 zeichnungen bearbeiten. Dabei sind die zeichnung gleich aufgebaut... jeweils müsste ich einen block manipulieren (also ändern). Mit Lisp ist das einfach umsetzbar mittels REFEDI-befehl. Der funktioniert aber leider nicht in der Accoreconsole, weil es kein "interner" Acad-befehl ist.Ich glaube ich muss die sache etwas aufwendiger mit einer .net programmierung absolvieren. ein denkanschub ...
| | In das Form Lisp wechseln |
|
Lisp : Alternative zu REFEDIT
cadffm am 23.09.2020 um 13:41 Uhr (1)
Zitat:Original erstellt von cadplayer:will ich mehrere 100 zeichnungen bearbeitenDann nimm doch einfach Acad, mehrere 100 sind ja nun kein Problem wenn man es nicht 4x am Tag braucht.Und im Direkten Zugriff auf die Dateien mit .Net oder Lisp über odbx ist die Konsole auch nicht schneller,außer man betreibt mehrere Instanzen parallel statt in Reihejeweils müsste ich einen block manipulieren (also ändern).Wenn es immer derselbe ist, manipuliere ihn, schreibe das ganze als DWG heraus (WBLOCK, Option Block) un ...
| | In das Form Lisp wechseln |
|
Lisp : Häcken im Menü anzeigen
ryfCAD am 23.09.2020 um 16:22 Uhr (1)
Guten Tag,dass man in einem Menü einen Eintrag unter bestimmten Bedingungen mittels einem Hacken kennzeichnen kann ist mir bekannt:[$(if,$(=,$(getvar,cannoscalevalue),0.1),!.)1:100]^c^c^p...funktioniertjedoch[$(if,$(=,$(getenv,Wert),0.1),!.)1:100]^c^c^p...funktioniert nichtliegt es an Getenv?, Kann ich nur Getvar verwenden?Besten Dank!------------------Auch für LT gibt es Lösungen, aber Lisp erleichtert das Leben ungemein
| | In das Form Lisp wechseln |
|
Lisp : Häcken im Menü anzeigen
ryfCAD am 25.09.2020 um 07:26 Uhr (1)
Danke für die schnelle Antwort.Leider nein. Ich habe auch das schon versucht. [$(if,$(=,$(getenv,Wert),"0.1"),!.)1:100]^c^c^p...[$(if,$(=,$(getenv,"Wert"),"0.1"),!.)1:100]^c^c^p...[$(if,$(=,$(getenv,"Wert"),0.1),!.)1:100]^c^c^p...Der Eintrag die im Menü sieht immer wie folgt aus:$(if,??)bedeutet, dass bereits das Argument Getenv unbekannt ist.------------------Auch für LT gibt es Lösungen, aber Lisp erleichtert das Leben ungemein
| | In das Form Lisp wechseln |
|
Lisp : Häcken im Menü anzeigen
CAD-Huebner am 25.09.2020 um 08:50 Uhr (1)
Was ist denn in der Umgebungsvariable "Wert" enthalten?Was liefert denn alternativ der LISP Ausdruck (getenv "WERT") im Vergleich zum DIESEL Ausdruck $(getenv,Wert) auf der Befehlszeile?[EDIT]Wenn nur LT verfügbar sein sollte, was steht denn in der Statuszeile, nachdem manBefehl: MODEMAKRO$(getenv, Wert)eingegeben hat?Wichtig ist vielleicht noch zu erwähnen, dass Umgebungsvariablen die Groß/Kleinschreibung berücksichtigen.------------------Mit freundlichem GrußUdo Hübnerwww.CAD-Huebner.de[Diese Nachricht w ...
| | In das Form Lisp wechseln |
|
Lisp : Häcken im Menü anzeigen
ryfCAD am 25.09.2020 um 09:42 Uhr (1)
Das war es dann auch:[$(if,$(=,$(getenv,WERT),"0.1"),!.)1:100]^c^c^p...die Variable WERT steht gross geschrieben in der RegistryBesten Dank Herr Huebner!------------------Auch für LT gibt es Lösungen, aber Lisp erleichtert das Leben ungemein
| | In das Form Lisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
