|
Lisp : weiterführende Bemaßung
MARTINLE am 11.12.2013 um 08:47 Uhr (1)
Hallo Thomas.Es ist bei mir schon immer eine Bemaßung vorhanden wenn ich dieses Lisp aufrufen will.Wenn ich die Zeile auf -- (vl-cmdf "_.-layer" "_T" lay "_S" lay "" "bemweiter" "_s" ent ) ändere kommt folgende Fehlermeldung:Befehl: bemweiterAnfangspunkt der zweiten Hilfslinie angeben oder [Zurück/Wählen] Wählen: _sWeiterzuführende Bemaßung wählen: Unzulässig Objektname: FFB62270Dann wird auf die Angabe einer Bemaßung gewartet. Wie könnte man das wohl lösen?lg. Martin
|
| In das Form Lisp wechseln |
|
Lisp : Layer ändern mit oder ohne Auswahlsatz
MARTINLE am 10.09.2013 um 15:56 Uhr (1)
Hallo Thomas!Wenn ich das Lisp in die Zeichnung Lade und den Befehl Abdeckplatte in die Befehlszeile eingebe funktioniert alles wunderbar. Nur wenn ich über den Button starte mit ^C^C(if(null c:Abdeckplatte)(load"Abdeckplatte"));Abdeckplattedann wird immer "Objekte wählen" ausgegeben. Dies passiert nur wenn kein Objekt ausgewählt ist!Woran kann das liegen?lg. Martin[Diese Nachricht wurde von MARTINLE am 10. Sep. 2013 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Abfrage als Text in Zeichnung einfügen
MARTINLE am 18.03.2010 um 08:40 Uhr (0)
Hallo Cadmium!Danke für deine Hilfe!Schönes Beispiel.Wie findet Ihr solche Sachen so schnell? Ich suche seit Tagen und finde solche Sachen nicht. Ich stelle mir vor, daß man solch ein Lisp gut dafür verwenden könnte um bei einem Rechteck nach der Eingabe "Abmessungen" diese Distanz als Breite einsetzen könnte. Somit bräuchte man nicht immer mit der Hand die Breite eingeben, nur noch die Länge, oder auch umgekehrt. Ist so etwas machbar?
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Gruppen und Blöcke isolieren
MARTINLE am 28.01.2008 um 06:05 Uhr (0)
Guten Morgen alle miteinander!Hab nach obigen Betreff im Forum gesucht aber nichts passendes gefunden. Und zwar so was wie "Layer isolieren" aber halt mit Blöcken und Gruppen. Nach Auswahl soll der Block oder die Gruppe sichtbar bleiben und alles ander unsichtbar.Gibt es vieleicht irgendwo ein Lisp das diese Aufgabe ausführen könnte?? Oder hat jemand eine andere Idee diese Aufgabe zu lösen?Danke im Voraus für eure Hilfe!LG Martin
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Lisp in Acad 2015
MARTINLE am 17.06.2014 um 15:32 Uhr (1)
@ HolgerHallo Holger,du hast den Fehler erkannt.So gut möchte ich auch mal werden, trotz falscher Fragestellung den Fehler erkennen.Ich hab meine Frage falsch gestellt. Den zweiten Punkt mußte ich schon selber setzten aber der Winkel war schon voreingestellt.(command-s .. --dies hab ich überhaupt noch nie gesehen. Kannst du mir "command-s" noch mal kurz erklären?Danke Holger!Lg. Martin @ ThomasDanke für deine Hilfe.Hab meine Frage falsch gestellt-- siehe Holger1Sorry!lg. Martin
|
| In das Form Lisp wechseln |
|
Lisp : Lastpoint
MARTINLE am 02.03.2011 um 10:37 Uhr (0)
Hallo!Dieses Lisp hab ich selbst geschrieben.Nur ich krieg einfach nicht hin dass nach dem Befehl versetzten der Punkt verwendet wird der schon bei der Umgrenzung angegeben wurde. Damit würde ich mir einen "Klick" sparen. mit "lastpoint" will es einfach nicht laufen!Bitte euch um Hilfe!lgMartin (Defun c:vers ( / ab )(command "-umgrenzung" "o" "i" "n" "" "" (getpoint "
Internen Punkt wählen: ")"")(setq ab (entlast))(command "versetz" 3 (entlast) (getpoint "
Internen Punkt wählen: ") "")(command "löschen" ab ...
|
| In das Form Lisp wechseln |
|
Lisp : Transparente Punkte in while Schleife
MARTINLE am 19.11.2013 um 05:54 Uhr (1)
(defun c:2PC (/ p1 p2 p3 wp1 wp2 wp3) (while (setq p1 (getpoint "Punkt1")) (setq p2 (getpoint "Punkt2")) (setq wp1 (trans p1 1 0)) (setq wp2 (trans p2 1 0)) (command "_ucs" "3p" p1 p2 "") (command "bemlinear" (trans wp1 0 1) (trans wp2 0 1) pause) (command "Bemweiter" Pause) (while (/= (getvar "CMDACTIVE") 0) (command pause)) (command "._ucs" "vo") ))Hallo,Obiges Lisp funktioniert soweit.Nur wenn ich bei p2 einen transparenten Objektfang (lotrecht) oder einen Punkt mit der Objektfangspur g ...
|
| In das Form Lisp wechseln |
|
Lisp : Bemaßung in Richtung x
MARTINLE am 07.09.2011 um 10:49 Uhr (0)
Hallo!Hab das Lisp bei mir wieder gefunden: Es ist von Thomas aus dem Jahr 2007.Habe mir auch einen Button mit ^C^Cdimx;;@800;belegt.Funktioniert soweit gut.Nur wenn ich das gleich Maß erneut anklicke sollte es wiederum um 80 Einheiten verschoben werden. Dies tut es leider nicht.Kann mir da vieleicht jemand helfen?Danke!lg. Martin(defun c IMX( / AWS) (if(and(Setq AWS(ssget ((0 . "DIMENSION")))) (setq P(getpoint "
X-Koordinate: ")) ) (progn (setq INDEX -1) (repeat(sslength AWS) (setq OBJ ...
|
| In das Form Lisp wechseln |
|
Lisp : Transparente Punkte in while Schleife
MARTINLE am 19.11.2013 um 08:35 Uhr (1)
Hallo Cadffm,Entschuldige bitte wenn ich erst jetz antworte.Bin nicht immer am Schreibtisch.Es funktionieren diverse Bemaßungsbefehle in Kombi mit Transparenten Befehlen und Objektfangspur einwandfrei. Das Problem ist nur in dieser while Schleife. Wenn das Lisp den zweiten Punkt abfragt möchte ich wahlweise einen Punkt picken, einen Punkt mit Objektfangspur picken oder eben mit dem Objektfang Lot angeben.Wenn ich den zweiten Punkt "normal" picke funktioniert alles wunderbar.Mit den anderen Optionen aber le ...
|
| In das Form Lisp wechseln |
|
Lisp : Gruppen-Fadenkreuzfarbe
MARTINLE am 26.05.2014 um 05:52 Uhr (1)
Zitat:Original erstellt von CADmium:ich würds über einen sysvarreaktor machen, der auf PICKSTYLE anspricht und dann die Farbe ändert ...letzteres geht z.B. über(vla-put-ModelCrosshaircolor(vla-get-display(vla-get-preferences(vlax-get-acad-object))) (cdr(assoc 420(acad_truecolordlg (cons 420 16777215)))))ist aber, wenn mans ordentlich macht mehr als n 10Zeiler.Hallo Thomas,Hab deine Zeilen getestet.Es öffnet sich das Dialogfeld der Farbauswahl. Wenn ich dann eine Farbe wähle und auf ok klicke passiert aber ...
|
| In das Form Lisp wechseln |
|
Lisp : Drehen und kopieren mit Fehler
MARTINLE am 16.03.2012 um 09:09 Uhr (0)
Hallo!Bei nachfolgenden Lisp hab ich folgendes Problem:Wenn ich vor aufrufen von "coro" einen Block mit einem Attribut eingefügt habe, diesen aber bei der Auswahlabfrage bei Coro nicht auswähle wird er ab "(setq p2..........." trotzdem ausgewählt und dann mitgedreht!Wenn ich vor dem Befehl einen Block ohne Attribut eingefügt habe wird diese nicht ausgewählt. Warum ist das so? Kann mir da jemand weiterhelfen?Liebe Grüße Martin;drehen und kopieren;(Autor: ?????)(defun c:CORO (/ e ss p1 p2 ss2)(setq e nil)( ...
|
| In das Form Lisp wechseln |
Beispiel.dwg.txt |
Lisp : Transparente Punkte in while Schleife
MARTINLE am 19.11.2013 um 12:57 Uhr (1)
Hallo Theodor.Danke für deine Hilfe. Das sichern der Einstellungen ist sehr gut.Habe eine Beispielzeichnung angehängt. Mein Ziel wäre mit diesem Lisp so zu bemaßen wie in der Zeichnung gezeigt.1 Punkt normal mit Endpunkt etc. wählen. Bei der Abfrage von Punkt 2 möchte ich Strg+RM Kontextmenü Lot auswählen und dann die Polylinie wie im Beispiel gezeigt wählen. Dann wäre schön wenn mir der Punkt P2 gefangen würde. Und zwar genau auf der senkrechten Linie die ich gerade bemaßen will. Danach möchte ich mit der ...
|
| In das Form Lisp wechseln |
|
Lisp : Mit Isolieren Gruppen nach der Reihe anzeigen
MARTINLE am 25.05.2016 um 06:10 Uhr (1)
Guten Morgen!Ich hab wieder mal ein Problem.Ich versuche mit Objekte isolieren und Objekte isolieren beenden sechs Gruppen die in der Zeichnung vorhanden sind nach der Reihe anzuzeigen.Wenn aber eine oder mehrere vorhandene Gruppen keine Objekte enthalten wird nach (command "unisolateobjects") die Meldung "Keine Objekte zum Aufheben der Isolierung verfügbar."angezeigt und ab dann funktioniert das isolieren nicht mehr. Kann mir da jemand weiterhelfen?Ideal wäre auch, wenn es wie bei alert eine Meldung ausge ...
|
| In das Form Lisp wechseln |
