|
Lisp : Dateiversion bei -wblock bestimmen
wronzky am 06.07.2007 um 09:58 Uhr (0)
Zitat: (setq ioptacadformat (vla-get-saveastype (vla-get-opensave (vla-get-preferences (vlax-get-acad-object))))) ; in den Optionen eingestelltes AutoCAD-FormatNa, da hat Bernd ja schon einen gehörigen Beitrag gemacht. Fehlt bloß noch, dass man jetzt noch mit (vla-put-saveastype (vla-get-opensave (vla-get-preferences (vlax-get-acad-object))) 8) das W-Blockausgabeformat auf R14 setzten könnte Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http ...
|
| In das Form Lisp wechseln |
|
AutoLisp : bemaßungsstil
wronzky am 02.05.2005 um 14:15 Uhr (0)
Hallo Frank! Zitat: Original erstellt von fca_mi2: eine frage habe ich noch: wie kriegt man denn diese schicke architekturvermaßung hin ? mit textüberschreibung ? wir haben auch mal an so einer architekturgerechten Bemassung rumprogrammiert. Das (mittlerweile 4.) Ergebniss kannst Du unter http://www.arcibem.de runterladen. Und wenn Du keine grossen Ansprüche hast ... die Freeware (Version 3, für AutoCAD 14) läuft immer noch ganz gut. ------------------ http://www.voxelman.de Computer-Dienstl ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Bemassung
wronzky am 11.05.2005 um 12:08 Uhr (0)
Welche AutoCAD Version verwendest Du? Ab 2006 kann man die Länge der Hilfslinien regulär einstellen. Ansonsten musst Du wie bereits beschrieben vorgehen, die Punkte der Bemassung errechnen und dann modifizieren... (s. Jörn Bosse) oder Du verwendest Arcibem oder Archtools oder Fibem oder.... Kosten alle was, können aber auch noch mehr. Henning ------------------ VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form AutoLisp wechseln |
|
AutoLisp : echo von vla-SendCommand ausschalten
wronzky am 20.05.2005 um 20:47 Uhr (0)
OK, Danke Thomas für das nette Gespräch Ich lass es einfach so wie es ist. Schreibgeschützte Zeichnungen kann man ja trotzdem bearbeiten... Ich will Autocad sozusagen nur als Viewer verwenden... also bis zum nächsten Mal. Henning ------------------ VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form AutoLisp wechseln |
|
AutoLisp : LSP als Funktion mit Eingangswerten?
wronzky am 12.07.2005 um 19:59 Uhr (0)
Zitat: Original erstellt von tunnelbauer: @wronzky schon mal Leerzeichen in der Befehlszeile in AutoCAD eingegeben ? Mache ich dauernd! ------------------ VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form AutoLisp wechseln |
|
AutoLisp : LSP als Funktion mit Eingangswerten?
wronzky am 14.07.2005 um 11:53 Uhr (0)
@mapcar das mit dem errorhandler geht doch meines erachtens nicht, da ja kein Lisp-Fehler auftaucht, wenn Autocad meldet Unbekannter Befehl . Daher denke ich der variabelste Weg ist über den Reactor vlr-command-reactor:vlr-unknownCommand. etwa so: Code: (defun c:init-build-command () (vl-load-com) (if (not (reactor-is-active ((:vlr-unknownCommand . build-command)) :vlr-command-reactor)) (setq build-command-reactor (vlr-command-reactor my-new-command ((:vlr-unknownCommand . build-command))) ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : lisp und das internet
wronzky am 21.07.2005 um 14:31 Uhr (0)
Hallo Frank! Wie bist Du denn mit deinem Kolegen verbunden? Internet? VPN, DFÜ-Netzwerk? Auf Externe Dateien kannst Du von Lisp aus so zugreifen: Code: (defun get-remote-file (url / util local fehler) (setq util (vla-get-utility (vla-get-activedocument (vlax-get-acad-object)))) (setq local ) (setq fehler (vl-catch-all-apply vla-getremotefile (list util url local t))) (if (vl-catch-all-error-p fehler) (progn;fehler: Datei nicht da, kein Internet oder so... (prompt Ein Fehler ist aufg ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : lisp und das internet
wronzky am 21.07.2005 um 15:05 Uhr (0)
Hallo Frank! für s hochladen kannst Du Code: (defun put-remote-file (url local / util fehler) (setq util (vla-get-utility (vla-get-activedocument (vlax-get-acad-object)))) (setq fehler (vl-catch-all-apply vla-putremotefile (list util url local))) (if (vl-catch-all-error-p fehler) (progn;fehler: Datei nicht da, kein Internet oder so... (prompt Ein Fehler ist aufgetreten!
Stellen Sie eine Internetverbindung her und versuchen Sie es erneut. ) (setq local nil) ) (setq local t) ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : bflösch mtext -> .mtext funzt nicht
wronzky am 16.09.2005 um 11:22 Uhr (0)
Hallo Martin,manchmal hilft auch die AutoCAD Hilfe (Auszug aus der Hilfe zu BFLÖSCH):ObjektARX-Anwendungsbefehle, die mittels acedRegCmd registriert wurden, können Sie aufrufen, indem Sie dem Befehlsnamen eine Punkt (.) voranstellen, gefolgt von dem Gruppennamen des Befehls und einem weiteren Punkt (.). Der Befehl MTEXT kann beispielsweise durch .acad_mtext.mtext aufgerufen werden.]Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelma ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : xref
wronzky am 07.03.2006 um 14:15 Uhr (0)
Hallo Frank,habs jetzt auch mal probiert:Code:(defun c:clip-info ( / bl pt) (setq bl (car (entsel))) (setq pt (get-clips bl)) (mapcar (lambda (x) (trans x bl 0)) pt))Du hast tatsächlich recht, aber wie jetzt weiter weiss ich auch nicht spontan. (Das Problem tritt aber nur bei kopierten xrefs auf.) In der AutoCAD-Hilfe steht halt nur:Definitionspunkt für Zuschneide-Umgrenzung (im OKS; stets größer oder gleich 2), basierend auf einem XRef-Skalierfaktor von 1.Darauf hab ich mich verlassen... Wenn Du eine Lösu ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : xref
wronzky am 07.03.2006 um 22:15 Uhr (0)
Hi Frank,Habe mir Deine Funktion mal angesehen. Wesentlich ist da ja, dass Du zu den einzelnen Koordinaten noch die entsprechenden Koordinaten den jeweiligen Basispunkt des Blockes hinzuzählst. Guter Ansatz, entspricht ja der Basispunkt dem null-Punkt des OKS des Blockes, und wenn schon das (trans x bl 0) nicht geht , muss mans halt von Hand machen... (Ich glaube das mit dem nth 3 und nth 7 kannst Du Dir sparen, weil da - bei mir zumindest - immer 0 steht). Daher könnte man die Funktion noch etwas eindampf ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Abfangen fehlerhafter Benutzereingaben
wronzky am 27.04.2006 um 16:06 Uhr (0)
Zitat:Soll ich darin zum Test versuchen, die eingegebene Datei zu laden oder wie?Hi Kathrin,z. B. mit findfile testen, ob die Datei gefunden wird. es müsste also einCode:(if (findfile (get_tile "inpfile"))...reichen.Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Platzbedarf von Attributen
wronzky am 05.05.2006 um 10:17 Uhr (0)
Hallo Andreas,Tja, dann muss man warscheinlich alles von Hand machen: Blockgeometrie auslesen Layer testen auf gefroren / ausgeschaltet, Elemente filtern Attribute des Blocks auslesen Attribute des Blocks testen auf Sichtbarkeit unter Beachtung der Sysvar attmode Blockclippings auslesen Blockelemente testen auf Innerhalb/ Ausserhalb / Schnitt des Clippings und entsprechend bearbeiten Blockskalierung auslesen Alle Elemente des Blocks entsprechend der Skalierung umrechnenHab ich noch was vergessen? Das wird ...
|
| In das Form AutoLisp wechseln |
