|
AutoLisp : block in Zeichnung beim öffnen autom. einfügen
Brischke am 29.01.2004 um 10:23 Uhr (0)
Hallo Frank, dann nimm doch diese Zeilen (if (tblsearch BLOCK TEST ) (progn (command _.insert test=c:adt_r2 est.dwg (0 0 0) ) (entdel(entlast)) ) ) , dann passiert der Austausch unmerklich, da nur die Blockdefinition aktualisiert wird. Somit brauchst du nicht die Layouts nach diesem Block abgrasen und einfügen. Ist (in meinen Augen) das Einfachste. Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Befehle bei jeder Zeichnung und nur beim Start
mapcar am 29.07.2004 um 16:49 Uhr (0)
Die Anzahl der göffneten Fenster nutzt doch auch nix: Starten, das einzige Schließen, neues aufmachen - schon bist du wieder bei 1. Einziger Weg: Programm bei jedem neuen Document ausführen und beim ersten Mal ein Flag rausschreiben (in die Registry, eine Datei, oder auch eine Umgebungsvariable setzen). Beim Beenden von AutoCAD das Flag über einen Reaktor wieder löschen. Gruß, Axel-Strube-Zettler ------------------ Meine AutoLisp-Seiten Meine private Homepage Mein Angriff auf dein Zwerchfell ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Befehle bei jeder Zeichnung und nur beim Start
autocart am 30.07.2004 um 09:58 Uhr (0)
AHA! Da ist doch glatt eine wichtige Basis-Info bis jetzt an mir vorbeigegangen. Hallo Thomas und Axel! Das mit der acaddoc.lsp ist mir neu. Anscheinend hab ich das entsprechende Kapitel unter F1 immer ausgelassen (unabsichtlich). Hab zwar den Namen acaddoc.lsp im Forum gelesen, dachte aber, das wäre das gleiche wie acad.lsp . Vielleicht wegen anderem Userverhalten, anderen Systemen oder Versionen halt ein bissel anders benamst. Naja, sollte bei den Nächsten Namens-Unterschieden, die mir auffallen, doc ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : block in Zeichnung beim öffnen autom. einfügen
marc.scherer am 29.01.2004 um 08:51 Uhr (0)
Hi, ganz einfach. Du mußt erst einmal diverse Funktionen schreiben. # eine die für jedes Dokument die Layouts ermitteln kann # eine die den entsprechenden Block finden kann # eine die den entsprechenden Block einfügen kann und abschließend: # eine die all diese Funktionen sinnvoll miteinander kombiniert Dann brauchst Du diese Funktion nur nch in die S::STARTUP von AutoCAD einbauen (am besten in die Acaddoc.lsp) und dann sollte das gehen. ------------------ Ciao, Marc
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Anzahl der Attribute einer Zeichnung
Atir am 10.12.2004 um 12:45 Uhr (0)
Hi Geos, ich bin gerade am Anfang von Lsp. Was Du da geschrieben hast würde ich sehr gern verwenden! was muß ich dazu noch editieren. Muß ich den Blocknamen angeben? oder eventuell andere Sachen? Danke im voraus Zitat: Original erstellt von Geos: Hallo Ich hab da auch noch was: ;liefert für den übergebenen Blocknamen eine Liste der Attributsanfragen ;13.Zeile: (cdr (assoc 2 atrdeflist)) würde die Attributsbezeichnung liefern (defun attriblist (#blkname / #elist #ename #atrdeflist #art #atrname #attl ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Zeichnung mit zusatz speichern
joern bosse am 19.04.2012 um 20:55 Uhr (0)
Hallo John,in etwa so:Code:(defun c:FileSave ( / FilePfad) (setq FilePfad (strcat (getvar "DWGPREFIX") (cadr (fnsplitl (getvar "DWGNAME"))) "_einfach" (caddr(fnsplitl (getvar "DWGNAME"))))) (JB_FileSave:Command FilePfad) );;;per Command speichern, Dateiformat entsprechend;;;"DefaultFormatForSave"(defun JB_FileSave:Command (FilePfad / ) (cond((=(getenv "DefaultFormatForSave")"48") (if (findfile FilePfad) (command "_.saveas" "2010" FilePfad"_Y") (co ...
|
| In das Form Lisp wechseln |
|
Lisp : Einen Kreis um jeden Punt in der Zeichnung machen
red-hot-dirk am 06.02.2014 um 19:19 Uhr (1)
@Brischke: Ich werde morgen meinem Chef mal mein Programm zeigen, habe ihm heute schon das Video von Dir gezeigt, das fand er super!!! Ich glaube er hat das Potential entdeckt, das hinte solchen Hilfsprogrammen steckt. Leider habe ich die BricsCAD V14x32 Version. Meinst du du kannst das schnell noch aendern? Dann koennte ich das morgen auch schon vorfuehren. Ich lass dich morgen wissen wie es bei uns im Betrieb weiter geht und dann koennen wir ja mal telefonieren. So ca. Preise wuerden mir fuer den Anfang ...
|
| In das Form Lisp wechseln |
|
Lisp : Einen Kreis um jeden Punt in der Zeichnung machen
red-hot-dirk am 04.02.2014 um 20:50 Uhr (1)
Hi, da ich nicht weiss wie ich ein Bild einfuege, habe ich einfach eine Datei die alles Zeigt angehaeng. Hierbei handelt es sich um eine von mir entworfenen Kontur die das mit dem Maschendrahtzaun und er S-Struktur kombiniert zeigt. Es gibt einen Layer Kundenzeichnung, das waere also das was der Kunde will und einen Layer Ofset, das ist das was ich dann auf der Arbeit mache.Ich habe das mit Bricscad 2014 entworfen und in ACAD 2013 und ACAD 2010 angehaengt. Last mch wissen was Ihr davon haltet.Dirk[Diese N ...
|
| In das Form Lisp wechseln |
|
Lisp : Blöcke in der akuellen Zeichnung neu definieren
woppi am 06.05.2025 um 14:43 Uhr (1)
Hallo,ich habe nochmals in die Hilfe von BLOCKREDEFINEMODE geguckt, und setze die Variabel auf 2, damit kein Dialogfeld angezeigt werden soll.Wenn nur eine "Eingabeaufforderung in der Befehlszeile kommt", kann ich das mit dem "J" in dem Lispcode quittieren.Zur Erklärung, die Blöcke sollen mit meinem kleinen Programm automatisch neu definiert werden. Der Benutzer des Programms soll selbst keine Entscheidung treffen.Mein Problem ist, die "Eingabeaufforderung in der Befehlszeile" kommt nicht jedes Mal, sonder ...
|
| In das Form Lisp wechseln |
|
Lisp : Einen Kreis um jeden Punt in der Zeichnung machen
jupa am 02.02.2014 um 19:04 Uhr (1)
Zitat:Original erstellt von Theodor Schoenwald:Hier ... sind bei Tipp 7 die verschiedenen Symbole gelistet.bequemer zu erreichen mit Befehl: ddptype Ich persönlich halte es übrigens für unzweckmäßig, für den Punktstil solche Werte wie 2, 3, 33, 65 zu verwenden. Das könnte zu leicht für Geometrie wie Linie, Kreis, Rechteck gehalten werden (und dann großes Erstaunen, wenn z.B. Objektfänge nicht funktionieren). Ich bevorzuge z.B. PDMODE 35 (eindeutig als Punkt zu erkennen) mit reativer Punktgröße. Aber jed ...
|
| In das Form Lisp wechseln |
|
Lisp : Einen Kreis um jeden Punt in der Zeichnung machen
Theodor Schoenwald am 03.02.2014 um 10:44 Uhr (1)
Hallo Jürgen,Du kannst dich beruhigen, ich selbst verwende nie 33, sondern 34 oder 35.Aus gutem Grund habe ich vor 33 "z.B:" geschrieben und alle Symbole gelistet.Warum habe ich einen Hinweis auf den Link gelistet?Ich habe die F1-Taste gedrückt und das Wort PDMODE eingegeben,aber ACAD 2012 hat mir keine Symbole gezeigt, dann habe ich nicht lange gesucht und auf das Bild hingewiesen.Wenn Du hier:http://www.lehrer.uni-karlsruhe.de/~za685/neues.htmdas untere Bild anschaust, kannst Du sehen, dass ich etwas Übu ...
|
| In das Form Lisp wechseln |
|
Lisp : Mit ssget alle Linien aus Zeichnung löschen funktioniert nicht
wronzky am 18.07.2012 um 18:39 Uhr (0)
wenns daran liegt, dass "_AstM4CommExplodeToAcis" noch arbeitet, Dein Program aber schon weiterläuft, solltest Du warten, bis der Befehl beendet ist:also:Code:...(command "_AstM4CommExplodeToAcis")(while ( 0 (getvar "cmdactive")) (wait-v2 1))...(defun wait-v2 (secs) (setq endt (+ (getvar "DATE") (/ secs 86400.0))) (while ( (getvar "DATE") endt) T))Vielleicht hilfts.Grüsse, Henning------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form Lisp wechseln |
|
Lisp : Einen Kreis um jeden Punt in der Zeichnung machen
cadffm am 05.02.2014 um 22:50 Uhr (1)
Wenn du ein Lisp für Bricscad schriebst, solltest du das hier angeben.Wenn es später auch auf ACAD laufen soll, sollte man das ebenfalls angeben.Aber das nur so am Rande.Mit dem Zoom, dass wurde dir ja bereits gesagt und es wird auch jetzt das Problem sein,das bekommst du aber je in den Griff (durch richtig Zoomen)Lektüre, 2 von unendlich vielen Diskussionen (welche du dann auch selbst finden kannst)http://ww3.cad.de/foren/ubb/Forum54/HTML/026956.shtml http://ww3.cad.de/foren/ubb/Forum145/HTML/002472.shtml ...
|
| In das Form Lisp wechseln |
