---

Hallo zusammen,

besteht die Möglichkeit in Autocad 2004 den Befehl Konstruktionslinie
so zu umzuschreiben bzw. zu erweitern, daß ich direkt eine
senkrechte, eine waagerechte oder ein Kreuz als Konstruktionslinie bekomme.
Ich finde es lästig jedesmal über das Abrollmenü oder die Befehlszeile den Befehl auszuwählen.
Super wäre auch der Befehl, das nur die Konstruktionslinien gelöscht werden.

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

---

Hallo,

ich habe einen WK Konstruktionslinien. Hier Beispielmacros einiger Buttons:
^C^C-layer se hilfslin_018;;_xline ho ==> macht meinen Layer hilfslin_018 aktuell und zeichnet eine horizontale Konstruktionslinie
^C^C-layer se 0 fr hilfslin_018;; ==> friert den Layer hilfslin_018 (schaltet zuvor auf Layer 0)
^C^Cmd_dellayer hilfslin_018;; ==> löscht alle Objekte auf Layer hilfslin_018 (lisp von cadwiesel (?))

Gruß Fips

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

---

Morgen

Gute Idee mit Konstruktionslinie löschen.

@fips (^C^C-layer se hilfslin_018;;_xline ho) Wieso " " und ";" beides Enter.

@newcad Die Konstruktionslinie gibtŽs alls ButtonŽs im Autocad, einfach neuen Befehl reinschreiben.

------------------
Wer Rechtschreibfehler findet, darf sie der Analphabetenvereinigung schenken.
Warum einfach, es geht auch Kompliziert.
mfG Bernd P.

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

---

Hallo newcad,
probier mal "^C^C_xline w;" als Werkzeugknopf.
Hat den Vorteil den Winkel der Konstruktionslinie auswählen zu können.
Bei der täglichen Arbeit hat sich dieser Knopf ebenfalls bewährt.

Gruß Stefan

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

---

Hallo zusamen,
leider verstehe ichnicht alles!!
In der Befehlszeile steht: Name des zu aktivierenden Layers eingeben oder Objekt wählen.
Muß ich zuerst den Layer anlegen??

Danke
Ansgar

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

---

Zitat:

---

Original erstellt von newcad:
Hallo zusamen,
leider verstehe ichnicht alles!!
In der Befehlszeile steht: Name des zu aktivierenden Layers eingeben oder Objekt wählen.
Muß ich zuerst den Layer anlegen??

Danke
Ansgar

---

Hallo Ansgar,

da hast Du recht. Das erste Makro von Fips funktioniert nur, wenn der Layer "hilfslin_018" existiert.

@Fips, wenn Du mit Deinem dritten Makro den Layer "hilfslin_018" wegbereinigst, dann funkt Dein erstes Makro wiederum nicht
-> deswegen ist dies hier eine Verbesserung:
^C^C-la;_new;hilfslin_018;se;hilfslin_018;;_xline;ho;

Eleganter ist es naturlich die Objekte eines Layer mit einem Makro zu löschen, und den Layer beizubehalten, das kann ich aber nicht 

Lothar

------------------
"Stellt Euch vor, es geht, und keiner kriegt's hin." (Neuss)

[Diese Nachricht wurde von Kramer24 am 13. November 2003 editiert.]

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

---

Hallo Lothar,

das war der richtige Befehl. Kann dieser auch so geschrieben werden, das ein -Kreuz- als Konstruktionslinie erstellt wird.
Das löschen der Kon_Linien klappt aber noch nicht.
Ich probiers weiter, aber allen Usern besten Dank.

Ansgar

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

---

Hallo,
noch ein Frage. Da ich überwiegend mit Tastaturbefehlen arbeite und meine eigene pgp-Datei erstellt habe, wäre es toll wenn ich die Befehle der Konstr_Linien auf Tastatur legen könnte.
kh= Konstr_Linie_Horizontal
kv= Konstr_Linie_Verikal usw.
Den Befehl ^C^Cmd_dellayer hilfslin_018;; habe ich bei Cadwiesel nicht finden können.

Ansgar

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

---

hier ein paar Zeilen Lisp:

(defun c:kh() ;erzeugt eine horizontale Hilfslinie im gewählten Punkt
(setq pt (getpoint))
(setq altlay (getvar "CLAYER"))
(command "_layer" "_m" "hilfslin_18" "_c" 9 "hilfslin_18" "_lw" 0.18 "hilfslin_18" "")
(command "_xline" "_h" pt "")
(setvar "CLAYER" altlay)
(princ)
)
(defun c:kv() ;erzeugt eine vertikale Hilfslinie im gewählten Punkt
(setq pt (getpoint))
(setq altlay (getvar "CLAYER"))
(command "_layer" "_m" "hilfslin_18" "_c" 9 "hilfslin_18" "_lw" 0.18 "hilfslin_18" "")
(command "_xline" "_v" pt "")
(setvar "CLAYER" altlay)
(princ)
)
(defun c:kx()  ;erzeugt ein Hilfslinienkreuz im gewählten punkt
(setq pt (getpoint))
(setq altlay (getvar "CLAYER"))
(command "_layer" "_m" "hilfslin_18" "_c" 9 "hilfslin_18" "_lw" 0.18 "hilfslin_18" "")
(command "_xline" "_h" pt "")
(command "_xline" "_v" pt "")
(setvar "CLAYER" altlay)
(princ)
)
(defun c:kl ()  ;löscht alle Hilfslinien auf dem Layer "hilfslin_18
(setq as (ssget "X" '((0 . "XLINE")(8 . "hilfslin_18"))))
(command "_erase" as "")
(command)
(princ)
)

------------------
      
gruß
Stephan

[Diese Nachricht wurde von StephanJP am 20. Nov. 2003 editiert.]

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

---

Hallo Stefan,
Dein Beitrag ist super, aber ich habe ich Sachen Autolisp und Programmierung null Plan. Wie und wo muß ich das von Dir geschrieben "hinschreiben"???, damit es funktioniert???
Ich bitte um eine letzte Hilfe!
Und,
wie und wo kann man Autolisp am besten lernen, ohne die Schulbank zu drücken??

Ansgar

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

---

Morgen

Hat a bisserl mit die Layererstellen geschlamp aber sonst gut 

(defun c:kh() ;erzeugt eine horizontale Hilfslinie im gewählten Punkt
(setq altlay (getvar "CLAYER"))
(setq pt (getpoint))
(command "_layer" "_m" "A_hilfsline" "_c" "213" "A_hilfsline" "_lw" "0" "A_hilfsline" "")
(command "_xline" "_h" pt "")
(setvar "CLAYER" altlay)
(princ)
)
(defun c:kv() ;erzeugt eine horizontale Hilfslinie im gewählten Punkt
(setq altlay (getvar "CLAYER"))
(setq pt (getpoint))
(command "_layer" "_m" "A_hilfsline" "_c" "213" "A_hilfsline" "_lw" "0" "A_hilfsline" "")
(command "_xline" "_v" pt "")
(setvar "CLAYER" altlay)
(princ)
)
(defun c:kx() ;erzeugt eine horizontale Hilfslinie im gewählten Punkt
(setq altlay (getvar "CLAYER"))
(setq pt (getpoint))
(command "_layer" "_m" "A_hilfsline" "_c" "213" "A_hilfsline" "_lw" "0" "A_hilfsline" "")
(command "_xline" "_h" pt "")
(command "_xline" "_v" pt "")
(setvar "CLAYER" altlay)
(princ)
)
(defun c:kl ()  ;löscht alle Hilfslinien auf dem Layer "A_hilfsline
(setq as (ssget "X" '((0 . "XLINE")(8 . "A_hilfsline"))))
(command "_erase" as "")
(princ)
)

------------------
Wer Rechtschreibfehler findet, darf sie der Analphabetenvereinigung schenken.
Warum einfach, es geht auch Kompliziert.
mfG Bernd P.

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

---

Moin Ansgar,

so ich fang noch mal von vorne an.

1. Du bist noch relativ neu. Schreibe doch Deine Software, etc. in Dein Profil.

2. "dellayer" ist ein Lisp vom Wiesel Mit diesem Befehl wirde der Layer "hilfslin_018" gelöscht.
was dieses "md_" soll, weiß ich auch nicht. 

3. Wie man ein Lisp lädt und ausführt findest Du hier .

4. Befehle auf die Tastatur legen: Gehe auf die Suche im Forum und gib "2004 pgp" ein...

Lothar

------------------
"Stellt Euch vor, es geht, und keiner kriegt's hin." (Neuss)

[Diese Nachricht wurde von Kramer24 am 14. November 2003 editiert.]

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

---

Morgen

Kann mir wer helfen
Hab das ganze in ein Button geschrieben

^C^C(progn (setq altlay (getvar "CLAYER")) (command "_layer" "_m" "A_hilfsline" "_c" "213" "A_hilfsline" "_lw" "0" "A_hilfsline" "") (command "_xline" (getpoint)) (setvar "CLAYER" altlay))

Sollen:
Layer "A_hilfsline" erstellen 1 Xline zeichnen (2 Punkte) und dann wieder auf vorherigen Layer schalten.

tun tut er:
Eine Xline auf dem "A_hilfsline" Zeichnen dann schaltet er auf den vorherigen z.B. "0" und bricht Xline nicht AUTOMATISCH nach der 1. Xline ab.

Mit
(command "_xline" (getpoint)(getpoint)"")

Tut er
"Fast" alles richitg nur die Ausrichtung der Xline wird erst angezeigt wenn sie gezeichnet ist (nicht wie normal "transparent")

------------------
Wer Rechtschreibfehler findet, darf sie der Analphabetenvereinigung schenken.
Warum einfach, es geht auch Kompliziert.
mfG Bernd P. 

[Diese Nachricht wurde von Bernd P am 14. November 2003 editiert.]

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

---

@Bernd

hast natürlich Recht, hab halt die Linienstärke vergessen, sorry

@newcad
speichere die Zeilen (meine oder Bernds) in einer ASCII-Datei KLinien.lsp o.ä. (wichtig ist nur das .lsp) in einem Verzeichnis, das im AutoCAD-Supportpfad liegt ab. Am Besten erzeugst Du für die vielen tollen Lisp-Routinen, die man hier so findet, ein eigenes Verzeichnis, z.B. \AutoCAD...\Lisp, trägst das in den Suchpfad für Supportdateien in AutoCAD ein. Dann musst Du dieses Lisp in AutoCAD noch laden und dann hast Du schon die neuen Befehle:
kv = Konstruktionslinie Vertikal
kh = Konstruktionslinie Horizontal
kx = Konstruktionslinienkreuz
kl = löschen aller Klinien auf dem Layer  "hilfslin_18"

Wie man Lisp-Routinen automatisch beim Starten von AutoCAD lädt ist im Forum bereits beschrieben. Mal mit der Suchen-Funktion arbeiten, dann findet man z.B. http://ww3.cad.de/foren/ubb/Forum54/HTML/001854.shtml

------------------

gruß
Stephan

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

---

Zitat:

---

Original erstellt von Bernd P:

Sollen:
Layer "A_hilfsline" erstellen 1 Xline zeichnen (2 Punkte) und dann wieder auf vorherigen Layer schalten.

---

Mein geistiger Horizont (mit 2004) schafft das:

^C^C-la;_new;A_hilfsline;_c;213;A_hilfsline;;^C^C-la;se;A_hilfsline;;_xline;\\;^C^C_layerP;

Andere Ideen?
Lothar

------------------
"Stellt Euch vor, es geht, und keiner kriegt's hin." (Neuss)

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

---

@Bernd
vielleicht
^C^C(progn (setq altlay (getvar "CLAYER")) (command "_layer" "_m" "A_hilfsline" "_c" "213" "A_hilfsline" "_lw" "0" "A_hilfsline" "") (command "_xline" (getpoint) pause "") (setvar "CLAYER" altlay))

------------------

gruß
Stephan

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

---

Servus

@StephanJP

Jau das war funkt gut

------------------
Wer Rechtschreibfehler findet, darf sie der Analphabetenvereinigung schenken.
Warum einfach, es geht auch Kompliziert.
mfG Bernd P.

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

---

Zitat:

---

Original erstellt von Bernd P:
Servus

@StephanJP

Jau das war funkt gut

---

Bei mir und AC2004 nicht. Ich erhalte am Ende den letzten Befehl...

Lothar 

------------------
"Stellt Euch vor, es geht, und keiner kriegt's hin." (Neuss)

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

---

Zitat:

---

Original erstellt von Kramer24:
  Hallo Ansgar,

da hast Du recht. Das erste Makro von Fips funktioniert nur, wenn der Layer "hilfslin_018" existiert.

@Fips, wenn Du mit Deinem dritten Makro den Layer "hilfslin_018" wegbereinigst, dann funkt Dein erstes Makro wiederum nicht
-> deswegen ist dies hier eine Verbesserung:
^C^C-la;_new;hilfslin_018;se;hilfslin_018;;_xline;ho;

wieso layer _new und dann setzen? ^C^C-la;m erzeugt den Layer und setzt ihn aktuell. Wenn er schon existiert wird er aktuell gesetzt.
Gruß Jörg

Eleganter ist es naturlich die Objekte eines Layer mit einem Makro zu löschen, und den Layer beizubehalten, das kann ich aber nicht  

Lothar

---

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

---

@Jörg,

das mit dem "M" kannte ich noch nicht. Toll & Danke

Lothar

------------------
"Stellt Euch vor, es geht, und keiner kriegt's hin." (Neuss)

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

---

Hallo,

zum Löschen der Konstr.linien folgenden Button erzeugen.

^c^c_erase;(ssget "x" '((0 . "xline")));;

löscht alle klinien egal auf welchem Layer sie liegen

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

---

servus

2 Problem die Ganzen Konstruktionslinien löschen

^C^C(progn (setq k1 (ssget "X" '((0 . "XLINE")(8 .  "a_hilfsline"))))  (setq k2 (ssget "X" '((0 . "ray")(8 .  "a_hilfsline")))) (command "_erase" k1 k2 " " ""))

löscht alle "Xline" u. "Ray" auf Layer "A_Hilfslinie"

Das Problem wenn entwedeer keine "Xline" od. "Ray" vorhanden sind funkt es nicht.

------------------
Wer Rechtschreibfehler findet, darf sie der Analphabetenvereinigung schenken.
Warum einfach, es geht auch Kompliziert.
mfG Bernd P.

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

---

^C^C(setq k1 (ssget "X" '((-4 . "<OR")(0 . "XLINE")(0 . "RAY")(-4 . "OR>")(8 .  "a_hilfsline"))));_erase;!k1;;

------------------

gruß
Stephan

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

---

Tach zusammen,

leider habe ich immer noch nicht alles nachvollziehen können, aber es hat geklappt.
Das einzige was nicht funktioniert ist ein Kreuz als Konstruktionslinie.
Allen die geholfen haben_Danke_.

Ansgar

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

---

Greetz Leutz :-),

super Thema, wie ich finde. Quält mich auch ein bisschen. Echt klasse wäre ja, wenn man das Hilfslinien-Lisp erweitern könnte um folgendes:

-
Hilfslinie an ein Objekt legen. Objekte können Linien, Polylinien aber auch solchige in Blöcken und XREFS sein.

-
Hilslinien versetzen von Objekten. Objekte können Linien, Polylinien aber auch solchige in Blöcken und XREFS sein.

Natürlich sollten die Hilfslinien gleich auf dem entsprechendem Layer liegen, und wenn dieser nicht in der Zeichnung vorhanden ist, sollte dieser angelegt werden.

Grüße

CAD-Tötti

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

---

Hilfslinien.JPG

Nochmals zum Thema Hilfslinien löschen mit der lisp md_dellayer:

Bei mir werden zunächst nur die Objekte gelöscht(!?). Der Layer muss bei Bedarf "von Hand" bereinigt werden - und genau so will ichs.
Meldung in Befehlszeile:
17 Objekt(e) auf Layer HILFSLINIEN018 gelöscht.
Layer HILFSLINIEN018 ist getaut, ausgeschaltet und kann bereinigt werden.

Und noch was zu diesem Thema: Bei mir gibt noch einen Button "Kontur abgreifen": dabei wird der Befehl Polylinie aufgerufen und zuvor ein Layer "2D-Konturen" erzeugt. Damit zeichne ich die Kontur nach, die ich mit der Hilfslinienkonstruktion eigentlich erzielen wollte.(Beispiel: In die Ansicht einer Türe einen Glasausschnitt reinsetzen)
Dann gibts noch die Buttons Extrusion und Rotation. Beide erzeugen und setzen den Layer "3D".

Fips

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

---

habe meine Funktionen etwas Fehlerbereinigt.
War wohl doch etwas schnell zusammengelispelt 

------------------

gruß
Stephan

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

---

Na, wo ist sie denn ??????????????????????????? :-)

CAD-Tötti :-)

Zitat:

---

Original erstellt von StephanJP:
habe meine Funktionen etwas Fehlerbereinigt.
War wohl doch etwas schnell zusammengelispelt   

---

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

---

@CAD-Tötti
es macht keinen Sinn, das Ding immer wieder anzuhängen, also habe ich meinen Beitrag oben editiert 

------------------

gruß
Stephan

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

---

Tach Leutz :-),

habe folgendes Problem (s.u.). Das funzt nicht, weil ich mich nicht mit der getpoint-Funktion auskenne.

(defun c:HLA1()  ;erzeugt ein Rechteck DIN A1 auf dem Layer HELP
(setq pt1 (getpoint "0,0"))
(setq pt2 (getpoint "841,594"))
(setq altlay (getvar "CLAYER"))
(command "_layer" "_m" "HELP" "_c" 6 "HELP" "")
(command "_rectang" pt1 pt2 " ")
(setvar "CLAYER" altlay)
(princ)
)

Wie geht das richtig :-) ?

Grüße

CAD-Tötti

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

---

Hallo CAD-Tötti,

wenn du mehr wissen möchtest, zum Zeichnen eines Rechtecks, dann schau mal auf meiner Seite ( http://www.defun.de ) unter Hilfe->Training sind derzeit 3 Teile einer Serie, die die Einführung in die AutoLISP-Programmierung zum Inhalt hat, verfügbar. Es folgen noch 2 weitere (jeweils Ende des Monats). Anhand dieses simplen, immer gleichen Themas (Zeichnen eines Rechtecks) wird die Programmierung mit AutoLISP erklärt. Könnte also für dich interessant sein.
Deinen Code auf die schnelle geändert, sollte dann so funktionieren.

Code:

---

(defun c:HLA1( / altlay)  ;erzeugt ein Rechteck DIN A1 auf dem Layer HELP
(setq altlay (getvar "CLAYER"))
(command "_layer" "_m" "HELP" "_c" 6 "HELP" "")
(command "_rectang" '(0.0 0.0) '(841.0 594.0))
(setvar "CLAYER" altlay)
(princ)
)

---

Du willst ja aber sicher nicht für jeden Rahmen ein eigenes Programm schreiben müssen - oder?
Deshalb so:

Code:

---

(defun c:hla1 ()
(draw_rahmen '(841.0 594.0))
)
(defun c:hla4 ()
(draw_rahmen '(210.0 297.0))
)
(defun draw_rahmen(pt2 / altlay);Zeichenfunktion
(setq altlay (getvar "CLAYER"))
(command "_layer" "_m" "HELP" "_c" 6 "HELP" "")
(command "_rectang" '(0.0 0.0) pt2)
(setvar "CLAYER" altlay)
(princ)
)

---

Man könnte/sollte die Layerfunktion zum Erzeugen noch rausnehmen und als extra Funktion zur Verfügung stellen, weil man das immer wieder gebrauchen kann. Ich möchte dich hier aber nicht zu sehr verwirren.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
NEU: AutoLISP- Projektschulung
NEU: Praxisorientierte Schulungen und Workshops durch die bekannten CAD.de Moderatoren
AutoCAD, AutoCAD LT, AutoCAD Mechanical, Mechanical Desktop, Architectural Desktop

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

---

Hi Holger (Grüße nach Saarbrücken aus FFM),

och, verwirr mich ruhig :-).
Ich überlege sowieso schon seit geraumer Zeit, wie ich die Layer in einer Lisp organisiere. Ich will dann in den Funktionen auf diese Layer-Lisp zugreifen.
Bei den Layerdefinitionen möchte ich zugreifen auf eine "Layer.DEF", in der in Textform die Parameter für die Layereinstellungen (Name, Linientyp, Farbe, ...) definiert sind und in dieser DEF-datei beliebig veränderbar und erweiterbar sind. Das muß irgendwie so mit foreachitem oder so ähnlich funzen, bin mir aber nicht sicher.

Grüße und besten Dank für die Hilfslinien-Aktion

CAD-Tötti

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

---

Hallo CAD-Tötti,

mach lieber einen Schritt nach dem anderen. Die Serie geht ja noch weiter. Es ist bereits eine weitere Serie geplant, die sich dann dem Aufbau der LISP-Prgramme (Nutzung sinnvoller, variabler Programmbausteine) widmet. Ohne ein solches Konzept, würde ja auch mein (defun-Konzept, Programme über Nacht zu schreiben, nicht funktionieren. In dieser geplanten Serie, werde ich dann bestimmt auch einen Teil den Layerfunktionen widmen. Danach wirst du wissen, ob eine DEF-Datei ein für dich sinnvoller Weg ist, oder ob nicht vielleicht andere Möglichkeiten gleichermaßen zum Erfolg führen.

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
NEU: AutoLISP- Projektschulung
NEU: Praxisorientierte Schulungen und Workshops durch die bekannten CAD.de Moderatoren
AutoCAD, AutoCAD LT, AutoCAD Mechanical, Mechanical Desktop, Architectural Desktop

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

---

Hi Leutz,

um das Thema komplett zu machen :-). Es fehlt noch die LISP für "Konstruktionslinie versetzen von Objekt". Objekt sind Linien, Polylinien, ... (auch in Blöcken und xrefs).

Bis denne

CAD-Tötti

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

---

Hallo ist da jemand ???

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

---

Hat denn niemand Erbarmen mit mir jetzt so kurz vor Weihnachten ???

*heul*

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

---

Hallo,
meine gesammelten Werke zum Thema Konstruktionslinien.

Ein Problem ist noch: Beim Abbruch mit ESC-Taste bleibt
der Layer "K-Hilfslinien" aktuell!

(defun c:hih() ;erzeugt eine horizontale Hilfslinie im gewählten Punkt
  (setq altlay (getvar "CLAYER"))
  (setq pt (getpoint))
  (command "_layer" "_m" "K_Hilfslinien" "_p" "k" "K_Hilfslinien"
"_c" "213" "K_Hilfslinien" "_lw" "0" "K_Hilfslinien" "")
  (command "_xline" "_h" pt "")
  (setvar "CLAYER" altlay)
  (princ)
)
(defun c:hiv() ;erzeugt eine vertikale Hilfslinie im gewählten Punkt
  (setq altlay (getvar "CLAYER"))
  (setq pt (getpoint))
  (command "_layer" "_m" "K_Hilfslinien" "_p" "k" "K_Hilfslinien"
"_c" "213" "K_Hilfslinien" "_lw" "0" "K_Hilfslinien" "")
  (command "_xline" "_v" pt "")
  (setvar "CLAYER" altlay)
  (princ)
)
(defun c:hik() ;erzeugt ein Hilfslinienkreuz im gewählten Punkt
  (setq altlay (getvar "CLAYER"))
  (setq pt (getpoint))
  (command "_layer" "_m" "K_Hilfslinien" "_p" "k" "K_Hilfslinien"
"_c" "213" "K_Hilfslinien" "_lw" "0" "K_Hilfslinien" "")
  (command "_xline" "_h" pt "")
  (command "_xline" "_v" pt "")
  (setvar "CLAYER" altlay)
  (princ)
)
(defun c:hie() ;erzeugt eine Hilfslinie am gewählten Element
  (setq altlay (getvar "CLAYER"))
  (command "_layer" "_m" "K_Hilfslinien" "_p" "k" "K_Hilfslinien"
"_c" "213" "K_Hilfslinien" "_lw" "0" "K_Hilfslinien" "")
  (setq en (nentselp))
  (setq p1 (osnap (cadr en) "_mid") p2 (osnap (cadr en) "_end"))
  (command "_xline" p1 p2 "")
  (setvar "CLAYER" altlay)
  (princ)
)
(defun c:him() ;erzeugt eine Hilfslinie zwischen zwei gewählten Elementen
  (setq altlay (getvar "CLAYER"))
  (command "_layer" "_m" "K_Hilfslinien" "_p" "k" "K_Hilfslinien"
"_c" "213" "K_Hilfslinien" "_lw" "0" "K_Hilfslinien" "")
  (setq en (nentselp))
  (setq p1 nil)
  (setq p1 (osnap (cadr en) "_end"))
  (setq en (nentselp))
  (setq p2 nil)
  (setq p2 (osnap (cadr en) "_end"))
  (setq win (angle p1 p2))
  (setq d (distance p1 p2))
  (setq dh (/ d 2))
  (setq mp (polar p1 (+ win (DTR 0)) dh))
  (command "_xline" "_v" mp "")
  (setvar "CLAYER" altlay)
  (princ)
)
(defun c:hiw() ;erzeugt eine Hilfslinie mit Winkel
  (setq altlay (getvar "CLAYER"))
  (command "_layer" "_m" "K_Hilfslinien" "_p" "k" "K_Hilfslinien"
"_c" "213" "K_Hilfslinien" "_lw" "0" "K_Hilfslinien" "")
  (command "_xline" "w" pause pause "")
  (setvar "CLAYER" altlay)
  (princ)
)
  (defun c:hia() ;erzeugt eine Hilfslinie mit Abstand
  (setq altlay (getvar "CLAYER"))
  (command "_layer" "_m" "K_Hilfslinien" "_p" "k" "K_Hilfslinien"
"_c" "213" "K_Hilfslinien" "_lw" "0" "K_Hilfslinien" "")
  (command "_xline" "a" pause pause pause pause "")
  (setvar "CLAYER" altlay)
  (princ)
)
(defun c:hil()  ;löscht alle Hilfslinien auf dem Layer K_Hilfslinien
  (setq as (ssget "X" '((0 . "XLINE")(8 . "K_Hilfslinien"))))
  (command "_erase" as "")
  (princ)
)

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

---

Hallo vision,

tolle Arbeit. (würde ich auch gerne können)

Ansgar

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

---

Ich bins nochmal,

was muß ich umschreiben, damit der Neue Layer -K_Hilfslinien-
als aktueller Layer bleibt.
Bin absoluter Lisp-Anfänger

Ansgar

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

---

so auf die Schnelle geraten:

setze vor diese Zeilen ein ";" - somit werden sie
"überlesen" und du kannst es jederzeit rückgängig machen.

aus:
(setq altlay (getvar "CLAYER"))
(setvar "CLAYER" altlay)

wird:
;(setq altlay (getvar "CLAYER")) // "vorherigen Layer" wieder aktuell setzen //
;(setvar "CLAYER" altlay)          // "vorherigen Layer" wieder aktuell setzen //

------------------
- Sebastian Mattis -

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

---

Hi,

ich finde folgenden Befehl am interessantesten:

(defun c:hia() ;erzeugt eine Hilfslinie mit Abstand
  (setq altlay (getvar "CLAYER"))
  (command "_layer" "_m" "K_Hilfslinien" "_p" "k" "K_Hilfslinien"
"_c" "213" "K_Hilfslinien" "_lw" "0" "K_Hilfslinien" "")
  (command "_xline" "a" pause pause pause pause "")
  (setvar "CLAYER" altlay)
  (princ)
)

Mein Problem ist: es erkennt Linien in Polylinienzügen (ok), aber es fehlt die Erkennung von Linien in Blöcken oder XREFs.

Grüße

CAD-Tötti

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

---

oder anders ausgedrückt: wie filter ich diese linien aus blöcken und xrefs raus ?

habe ich wenigstens die richtige wortwahl getroffen ?

feedback ???

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

---

Hallo Vision,

hier mit Dialog.
Einige Zeilen sind aus Deinem Listing.

Gruß
Theodor Schönwald

;; Die Lisp-Datei:

;; X-Linie zeichnen
;; Mit Dialog Datei K_LINIE.DCL
;; 29.1.2005
;;
(defun C:K_LINIE (/ RICHT PT EN P1 P2 WIN D DH MP AS)

(defun NEUERR (MSG)
  (princ LEER)
  (princ MSG)
  (command "_REGEN")
  (command)
  (command "_LAYER" "_SET" C_L "" "_REGEN")
  (command "_UCS" "_N" W_K)
  (setq *ERROR* ALTERR)
  (setvar "CMDECHO" C_E)
  (exit)
  (princ)
)

(setq ALTERR  *ERROR*
      *ERROR* NEUERR
      DUMMY_1 (entlast)
      C_E    (getvar "CMDECHO")      ; ECHO
      C_L    (getvar "CLAYER")        ; Layer
      W_K    (getvar "UCSORG")        ; BKS
      RICHT  NIL
      LEER    (strcat "\n" (chr 160) "\n" (chr 160) "\n" (chr 160))
)

(setvar "CMDECHO" 0)
(command "_UCS" "_W")
(if (not (tblsearch "LAYER" "K_Linie"))
  (command "_LAYER" "_MAKE" "K_Linie" "_COLOR" "1" "" "")
  (command "_LAYER" "_SET" "K_Linie" "_COLOR" "1" "" "")
)
;;--------------------------- Dialog -----------------------
(defun DIALOG_0 (/ I_1 OK)
  (setq I_1 (load_dialog "K_LINIE.DCL"))
  (if (null (new_dialog "K_LINIE" I_1))
  (alert "\n \nLaden der Dialogbox nicht möglich!")
  )

  (setq RICHT (get_tile "RICHT"))

  (action_tile "RICHT" "(SETQ richt $VALUE)")
  (action_tile "CANCEL" "(DONE_DIALOG 0)")
  (setq OK (start_dialog))
  (unload_dialog I_1)
  (if (= OK 0)                          ; Abbruchfunktion
  (progn (R_VAR) (exit))
  )
)
;;--------------------------------------------------------------------------------
(princ LEER)
(DIALOG_0)
(cond
  ((or (= RICHT "HO") (= RICHT "V"))    ; Horizontale oder vertikale Hilfslinie
  (setq PT (getpoint "\nBitte eine Punkt angeben: "))
  (command "_Xline" RICHT PT "")
  )
  ((= RICHT "W")                        ; Hilfslinie mit einem Winkel
  (prompt "\nBitte den Winkel angeben: ")
  (command "_Xline" RICHT PAUSE PAUSE "")
  )
  ((= RICHT "HA")                      ; Winkelhalbierende Hilfslinie
  (prompt "\nBitte Scheitelpunkte angeben: ")
  (command "_Xline" RICHT PAUSE PAUSE PAUSE)
  )
  ((= RICHT "A")                        ; Hilfslinie mit einem Abstand
  (princ LEER)
  (prompt "\nAbstand eingeben, ein Objekt wählen, Seite anklicken: ")
  (command "_xline" RICHT PAUSE PAUSE PAUSE "")
  )
  ((= RICHT "K")                        ; Hilfslinienkreuz auf einen Punkt
  (setq PT (getpoint "\nBitte eine Punkt angeben: "))
  (command "_Xline" "_H" PT "")
  (command "_Xline" "_V" PT "")
  )
  ((= RICHT "E")                        ; Hilfslinie an ein Element
  (setq EN (nentselp "\nBitte ein Element wählen: "))
  (setq P1 (osnap (cadr EN) "_mid")
        P2 (osnap (cadr EN) "_end")
  )
  (command "_xline" P1 P2 "")
  )
  ((= RICHT "L")                        ; Hilfslinien löschen ...
  (setq AS (ssget "X" '((0 . "XLINE") (8 . "K_Linie"))))
  (command "_erase" AS "")
  (command "_LAYER" "_SET" C_L "" "_REGEN")
  (if (tblsearch "LAYER" "K_Linie")
    (command "_PURGE" "_LA" "K_Linie" "_N") ; ... danach Layer für Hilfslinien löschen.
  )
  (princ LEER)
  (prompt "\nHilfslinien und Layer \"K_LINIE\" gelöscht")
  )
)
;; Rücksetze der Varablen und Layer
(command)
(command "_LAYER" "_SET" C_L "" "_REGEN")
(command "_UCS" "_N" W_K)
(setq *ERROR* ALTERR)
(setvar "CMDECHO" C_E)
(redraw)
(princ)
(princ)
) ;_ End defun
(princ)
(prompt "\nProgramm für K-Linien geladen")
(princ)

;; Die DCL dazu:

K_LINIE  // Fuer die Datei K_LINIE.LSP
: dialog
{
  label = "Konstruktionslinien";
  : radio_column
  {
    key = "RICHT";
    : radio_button
    {
      key = "HO" ;
      label = "Horizontal";
      value = 1;
    }
    : radio_button
    {
      key = "V" ;
      label = "Vertikal" ;
    }
    : radio_button
    {
      key = "A" ;
      label = "Versatz" ;
    }
    : radio_button
    {
      key = "W" ;
      label = "Winkel" ;
    }
    : radio_button
    {
      key = "HA" ;
      label = "Winkelhalbierende" ;
    }
    : radio_button
    {
      key = "K" ;
      label = "Hilfslinienkreuz";
    }
    : radio_button
    {
      key = "E" ;
      label = "An ein Element" ;
    }
    : radio_button
    {
      key = "L" ;
      label = "Hilfslinen löschen" ;
    }
  }
  spacer;
  spacer;
  ok_cancel;
}

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

---

Hallo
Ich habe diese hilfslinientool wie es vision hier gepostet hat getestet Ich kenne mich leider bei lsp nicht so aus und bekomme es nicht so hin (wie ich es will). Und ist warscheindlich nur eine Kleinigkeit ich will das die kline am Fadenkreuz hängt (so wie beim Originalbefehl) und sie mehrmals gesetzt werden kann
Bitte um einen kl.Tipp
gruß coolcad

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

---

vielleicht so ?

(defun c:hik(/ ALTLAY PT L1 L2)
  (setq PT '(0 0 0))
  (setq altlay (getvar "CLAYER"))
  (command "_layer" "_m" "K_Hilfslinien" "_p" "k" "K_Hilfslinien"
  "_c" "213" "K_Hilfslinien" "_lw" "0" "K_Hilfslinien" "") 
  (command "_xline" "_h" pt "")
  (setq L1 (entlast))
  (command "_xline" "_v" pt "")
  (setq L2 (entlast))
  (command "_move" L1 L2 "" PT pause) 
  (command "_copy"  L1 L2 "" "_m" (getvar "LASTPOINT"))
  (while (/=(getvar "CMDACTIVE")0)(command pause))
  (setvar "CLAYER" altlay)
  (princ)
)

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Danke für die Hilfe hab dies mal geladen u. dabei kommt "Befehl: ; Fehler: Fehlerhafter Argumenttyp: numberp: nil"
Bei mir Bahnhof ???
gruß coolcad

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

---

geht einwandfrei

@coolcad

was für ein CAD-System hast du?

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Ich habe Acad 2005 und werde es Abends nochmals testen
gruß josef

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

---

Sodala.... getestet und funkt. (auf meinen priv. Rechner)so wie ich es mir vorstelle
Danke
gruß coolcad

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

---

Nochmals brauch ich hilfe
Beim lisp von newcar funkt.  zurückstellung v. layer auf d. aktuelle (vor d. aufruf d. Befehl) -- bei lisp von CADmium funkt. d. die Klinie am Fadenkreuz hängt jedoch bleib der klinienlayer aktuell.
Nun müßte dies verbunden werden da ich eine klinie am fadenkreuz hängend bräuchte
und nach befehlabbruch der Layer v. klinie nicht aktuell ist
Der Satz ist zwar jetzt nicht ganz Deutsch aber ich hoffe man kennt sich aus
???????
Danke

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