|
Rund um AutoCAD : Automatische Ausfertigungsnummern
alfred neswadba am 07.07.2010 um 01:29 Uhr (0)
Hi,nix fertiges, aber die Lösung per LISP wurde doch auch in dem Link, auf den Du verweist, mitgegeben. - alfred -------------------www.hollaus.at
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Lisp Abfrage nach schreibgeschützter Zeichnung
Harry Plotter am 07.07.2010 um 08:57 Uhr (0)
Hallo!Mit eurer Hilfe habe ich mir in letzter Zeit folgende kleine, aber feine Lisp-Routine gebastelt:Aktive Xrefs bindenInaktive Xrefs lösenZeichnung bereinigenZeichnung speichern unter ACAD 2004Nun hätte ich noch gerne zuerst eine Abfrage, ob die Zeichnung schreibgeschützt geöffnet ist oder nicht.Wenn schreibgeschützt, dann soll die Routine ausgeführt werdenWenn NICHT schreibgeschützt, dann soll die Routine mit einem Hinweis abgebrochen werden.Kann mir dabei bitte jemand helfen - Danke!Hier mein bisherig ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Lisp Abfrage nach schreibgeschützter Zeichnung
CADmium am 07.07.2010 um 09:07 Uhr (0)
ok .. kleine Übung:(vl-load-com)(if(=(vla-get-readonly(vla-get-activedocument(vlax-get-acad-object))):vlax-true)(c:A2A)(alert "Zeichnung nicht schreibgeschützt.Abbruch"))------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Blöcke um Einfügepunkt spiegeln (Lisp oder Makro)
3jalex am 07.07.2010 um 09:13 Uhr (0)
HalloVielen, vielen Dank für das Lisp.Mit der Anpassung von Alfred geht CACmiums Lisp für die Y-Achse.Der aktuelle Stand ist weiter unten.Nun suche ich noch die Anpassung für die X-Achse.Da ich weder ein X noch ein Y oder 0,0;1,0 gefunden habe, weiss ich nicht wie ich das Lisp anpassen kann:(defun c:blkmirror ( / ALISTE tfac) (defun bau_elemli (asatz / n elemli) (if(=(type ASATZ)PICKSET) (progn (setq n -1) (repeat (sslength asatz) (setq elemli(cons (ssname asatz (setq N(1+ N ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Blöcke um Einfügepunkt spiegeln (Lisp oder Makro)
CADmium am 05.07.2010 um 08:59 Uhr (0)
... da hast du sicher den Objektfang aktiv ... den mal abschalten ...Z.B.(if ALISTE (progn (setvar "OSMODE" (+ (getvar "OSMODE")16384)) (mapcar...... ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Lisp Abfrage nach schreibgeschützter Zeichnung
cadffm am 07.07.2010 um 10:04 Uhr (0)
überdenke nochmal was was gemacht wird.. dann sollte es wohl klar sein warum das nicht funktioniert !(an der Stelle an der die Entscheidung getroffen wird läuft das Programm doch längst ?!)Lösung: Du treibst Acad in einen Fehler (=Abbruch) oder du fragst vorher ab:Code:(defun *error*(msg) (setvar "modemacro" ".") (setvar "bindtype" oldBnType) (setvar "cmdecho" 1) (princ "Xrefs Loesen/Pruefen/Binden/Bereinigen abgebrochen ")(princ)); end of *error*(defun c:A2A ()(vl-load-com) (if(=(vla-get-readonly(vla-get ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Blöcke um Einfügepunkt spiegeln (Lisp oder Makro)
CADmium am 07.07.2010 um 10:18 Uhr (0)
zu 1.)(entmod(subst (cons 42(*(cdr gc42)-1))gc42 DATA)) das sind einfach die Sklalierfaktoren der Blockreferenz ... die mal -1 multipliziert ist eine Spiegelung.... ein bißchen Beschäftigung mit der Materie würde nicht schaden!zu.2 ) das ist aufwendiger ..Ermittlung aller Blocknamen in der Auswahl und dann übergabe an Attsync...könnte dann so aussehen:(defun c:blkmirror ( / ALISTE tfac N BLKLIST) (defun bau_elemli (asatz / n elemli) (if(=(type ASATZ)PICKSET) (progn (setq n -1) (repea ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Lisp Abfrage nach schreibgeschützter Zeichnung
CADmium am 07.07.2010 um 10:27 Uhr (0)
OT: (bezieht sich nicht nur auf diesen Beitrag)------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Lisp Abfrage nach schreibgeschützter Zeichnung
Harry Plotter am 07.07.2010 um 10:45 Uhr (0)
Vielen Dank an euch, jetzt funktioniert die Anweisung.
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : CAD2011: Start-Dialog Maßstabsliste rücksetzen deaktiviert
Matthias_H am 06.07.2010 um 17:48 Uhr (0)
Vielen Dank für Eure Antworten! :-)@ charlieBVDie Vorgabe-Maßstabsliste habe ich so eingestellt (5-10 Maßstäbe), wie ich sie brauche. Sehr hilfreich beim händischen Rücksätzen.@ Entsorger01Ich versuche noch das AutoCAD eigene Fenster / bzw. den Befehl „Beschriftungsmaßstab - große Anzahl von Maßstäben“ zum Laufen zu bekommen (wäre mir am liebsten). Ansonsten probier ichs mit dem von dir genannten LISP.@ susi79Ich habe das deaktivierte Fenster wieder aktiviert und nun sicher auf „Ja“ geklickt.Theoretisch mü ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Linientyp-Skalierung bei xref
romi1 am 08.07.2010 um 13:36 Uhr (0)
Hallo!@Andreas: Entschuldige, ich hatte erst jetzt Zeit, dein Programm zu testen - und tatsächlich - funktioniert super! Danke!!Eine Frage noch zum besseren Verständnis: Was ich so aus deinem Lisp gesehen habe, wird die Liniendefinitionsdatei temporär umdefiniert (wobei der neue ltfakor einfließt); werden diese neuen Definitionen dann in der dwg gespeichert? Ich glaube nämlich, das ich da bis dato der falschen Meinung war, das diese Definitionen nicht in der dwg gespeichert werden, sondern bei jeder Sitzun ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Flächenermittlung
charlieBV am 07.07.2010 um 09:56 Uhr (0)
Hallo Siko,erst einmal, Anhänge bitte ohne Umlaute (steht im Anhangeinfügenfenster auch drin!), dann wäre es hilfreich, wenn du genau schreiben würdest, wie du das Lisp lädst, und vor allem, welche Fehlermeldung kommt.... Hellsehen können wir nicht, auch wenn es manchmal so wirken mag------------------Gruß YvonneInoffizielle ADT-Help-Site"Gehe nicht, wohin der Weg führen mag, sondern dorthin, wo kein Weg ist, und hinterlasse eine Spur."Jean Paul
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Externe Referenz beim Verschieben einbetten
Musicus am 09.07.2010 um 16:04 Uhr (0)
So, fertig damit.Das Ganze noch auf nen Button legen und die Lisp in die Startgruppe packen.Starten mit Planausgabe
|
| In das Form Rund um AutoCAD wechseln |
