Beiträge: 695
Registriert: 09.11.2000

erstellt am: 14. Nov. 2003 10:07       Unities abgeben: 

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

Beiträge: 1643
Registriert: 07.06.2001

erstellt am: 14. Nov. 2003 10:00       Unities abgeben: 

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. 

Beiträge: 3949
Registriert: 09.11.2001

erstellt am: 14. Nov. 2003 08:55       Unities abgeben: 

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)

Beiträge: 1643
Registriert: 07.06.2001

erstellt am: 14. Nov. 2003 08:51       Unities abgeben: 

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)
)

Beiträge: 255
Registriert: 12.11.2003

Beiträge: 695
Registriert: 09.11.2000

erstellt am: 13. Nov. 2003 21:55       Unities abgeben: 

(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

Beiträge: 255
Registriert: 12.11.2003

erstellt am: 13. Nov. 2003 21:19       Unities abgeben: 

Ansgar

Beiträge: 255
Registriert: 12.11.2003

erstellt am: 13. Nov. 2003 20:46       Unities abgeben: 

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.

Beiträge: 3949
Registriert: 09.11.2001

erstellt am: 13. Nov. 2003 19:08       Unities abgeben: 

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)

Beiträge: 255
Registriert: 12.11.2003