|
Lisp : Blockade nach fertig durlaufenem Lisp
wronzky am 05.03.2008 um 09:51 Uhr (0)
Hi Roman,soviel vorab: in der Vollversion (2007) gibt es die gleich Gedächtnisminute, liegt also nicht an LT mit Extender.Ansonsten schau ich mir nachher auch noch mal den Code genauer an.Eine Idee mit (entupd ename) hab ich schon getestet, bringt so erst mal nichts, wäre auch in etwa das gleiche wie ein (redraw).Grüsse, Henning------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de[Diese Nachricht wurde von wronzky am 05. Mrz. 2008 ed ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Runden von Zahlenwerten
wronzky am 03.09.2008 um 10:34 Uhr (0)
Hi,mal abgesehen davon, dass es auch ein LISP-FORUM gibt:rtos wandelt Zahlen in Strings um. Der Attributwert ist aber schon ein String, daher erst den Attributswert in eine Zahl umwandeln(rtos (atof (cdr (assoc 1 (entget (entnext (entnext ename)))))) 2 2)Grüsse, Henning[EDIT] Und schon wieder [/EDIT]------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de[Diese Nachricht wurde von wronzky am 03. Sep. 2008 editiert.]
|
| In das Form Rund um AutoCAD wechseln |
|
AutoCAD VBA : Über das Schriftfeld eines Attributwertes die damit verknüpfte Polylinie ermitteln
wronzky am 20.03.2009 um 08:18 Uhr (0)
Hallo Volker, Zitat:Original erstellt von steinemann09:...ich werde es versuchen Von VBa eine Lisp-Routine einzubinden. Einfach wird es bestimmt nichtvor einiger Zeit tauchte die Frage auch bei mir in einem Kurs auf. Ich hatte damals dieses kleine Skript verfasst, vielleicht hilft es Dir.Grüsse, Henning------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de[Diese Nachricht wurde von wronzky am 20. Mrz. 2009 editiert.]
|
| In das Form AutoCAD VBA wechseln |
|
Lisp : kleines Lisp Programm
wronzky am 07.01.2009 um 22:18 Uhr (0)
Hallo Christian,wenn Du die Änderung des linearen Bem-Faktors meinst (Sysvar "DIMLFAC"), dann kannst Du folgenden Code verwenden, um die geänderten Bemassungen herauszufiltern:Code:(setq ss-dimlfac-mod (ssget "x" ((0 . "DIMENSION") (-3 ("ACAD" (1070 . 144))))))Dabei gehe ich davon aus, dass die Skalierung NICHT im Stil, sondern mittels Stilüberschreibung erzeugt wurde. Den Rest kriegst Du ja dann selber hin...Grüsse, Henning------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Archite ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Konvertierungsproblem
wronzky am 14.04.2008 um 10:41 Uhr (0)
Hi Sina,ich hab erst mal eine Wiederherstellung mit 2008 gemacht. Dann eine Korrekturroutine (Lisp) durchlaufen lassen, die "sich selbst überschneidende" Elemente, Versteckte Elemente, Proxys, Xdata, Ldata, 0-Längen etc. korrigiert / löscht. Dann Modellbereich mit copy-paste in eine frische Zeichnung, dann Papierbereich über DC in die frische Zeichnung, dann als 2000-er abgespeichert.Grüsse, Henning------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : 2 Plotfiles mit einem Lisp erstellen
wronzky am 05.09.2008 um 16:18 Uhr (0)
Wenn Du weisst, WO die Plotstiltabellen liegen (Optionen - Dateien ...), und der Benutzer nicht trotzdem irgendeine andere zufällig auswählt, dann hast Du recht. Dann gehts natürlich mit (vl-filename-directory (getfiled "CTB auswählen" (getvar "acadprefix") "ctb" 0))Ich denke halt immer zu kompliziert, damit das Prog auch auf anderen Rechnern läuft, war ich in Gedanken bei:1) Voreinstellungen auslesen - Pfad zu ctb ermitteln2) Namen der ctb auslesen3) Dialogfeld zur Auswahl programieren Grüsse, Henning---- ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : zuletzt gespeicherter Pfad+Dateiname als Attribut oder Diesel
wronzky am 07.07.2008 um 14:06 Uhr (0)
Zitat:Original erstellt von CAD-Huebner:...Je nach Aufgabe ist ein statischer Text im Attribut ggf. vorteilhafter.Das meinte ich eigentlich auch mit "weiterverwenden". Also ein weiteres kleines Lisp, das nam in ein Attribut schreibt.Grüsse, Henning(btw. solange das Schriftfeld nicht aktualisiert wird, steht ja noch der "alte" Text drin, auch nach neuem Öffnen, und kann auch ausgelesen werden (cdr (assoc 1 (entget (car (nentsel))))) )------------------Henning JesseVoxelManufakturComputer-Dienstleistungen f ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : trans - was ist falsch
wronzky am 04.03.2008 um 10:28 Uhr (0)
Tja, also wenn Du es nicht mit Deiner bisherigen Methode machen willst, (was spricht eigentlich dagegen?) dann musst Du dich mal mit der Transformation von Punkten befassen.Dazu gibts in der Hilfe zu Lisp/VBA schon einiges (z.B. die Funktion vlax-tmatrix), aber auch zum Grundverständniss alles Notwendige im Netz...Dann schreibst Du dir deinen transx-Befehl und stellst ihn hier wieder zur Diskussion... Vielleicht ist _UCS _Object aber doch nicht so schlimm?Grüsse, Henning------------------Henning JesseVo ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Layerbeschreibung übertragen
wronzky am 08.06.2009 um 13:42 Uhr (0)
Hallo,Du kannst das folgende Lisp verwenden, um die Layerbeschreibungen einzustellen:Code:(defun c:set-layer-description ( / ll) (setq ll (list ("layer1" "Beschreibung1") ("layer2" "Beschreibung2") ;und so weiter ) ) (mapcar put-layer-description ll))(defun put-layer-description (layerls / l) (if (setq l (tblobjname "layer" (car layerls))) (vla-put-description (vlax-ename-vla-object l) (cadr layerls)) ))Einfach bei ("layer1" "Beschreibung1") Deine Layer und Beschreibungen reinschrei ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Polylinien namen zuweisen und diese abfragen
wronzky am 19.07.2005 um 12:23 Uhr (0)
Hallo Thomas! Jedes Element besitzt in AutoCAD bereits einen eindeutigen Namen: den Handle. Anzeigen kannst Du den mit Code: (cdr (assoc 5 (entget (car (entsel "
Objekt wählen: "))))) Kennst Du den Handle des Objekts, und willst es auswählen, kannst Du das immer wenn Autocad fragt: "Objekte wählen:" mit Code: (handent "Handle des Objektes") Das ganze lässt sich dann natürlich noch in Lisp-Programme einbauen... Grüsse, Henning ------------------ VoxelManufaktur Computer-Dienstleistungen für Arch ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Tiefenschloss oder Z-Sperren
wronzky am 07.06.2005 um 10:26 Uhr (0)
Hi! das könnte helfen: Code: (defun c:h-move () (command _move (ssget) (setq p (getpoint)) (if (setq q (getpoint)) (list (car q) (cadr q) (caddr p)) )) ) (defun c:h-copy ();keine Mehrfachauswahl möglich! (command _copy (ssget) (setq p (getpoint)) (if (setq q (getpoint)) (list (car q) (cadr q) (caddr p)) )) ) Lisp laden und die neuen Befehle h-move und h-copy verwenden. Grüsse, Henning Jesse ------------------ VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieur ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Mehrere Objekte in Einzelblöcke
wronzky am 10.04.2008 um 10:21 Uhr (0)
Hallo Oerter,hab mal mein Lisp zum Skalieren von Achsbezeichnungen etwas modifiziert. Sollte in etwa machen, was Du brauchst...Code:(defun c:pos-varia ( / z f ss p1 p2 p) (vl-load-com) (setq z -1) (setq f (getreal "Faktor")) (setq ss (ssget ((0 . "CIRCLE")))) (while (setq e (ssname ss (setq z (1+ z)))) (vla-getboundingbox (vlax-ename-vla-object e) p1 p2) (setq p (mapcar vlax-safearray-list (list p1 p2))) (command "_scale" e (ssget "_W" (car p) (cadr p)) "" (cdr (assoc 10 (entget e))) f) ))Gr ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : 2 Plotfiles mit einem Lisp erstellen
wronzky am 07.05.2008 um 19:52 Uhr (0)
Hi Andreas,hier fehlen die schliessenden Klammern: Code:(setq lot (getvar "ctab")) (setq ncan (strcat lot "_for_CW8400PG")) ;----- (setq hfmt (strcat "Übergröße ISO: " fmt)) ;----- (setq nhp (strcat lot "_for_HP1050C")) ;-----Ob der Plot-Befehl die richtigen Parameter hat, hab ich aber nicht getestet.Grüsse, Henning------------------Henning Jesse[EDIT] Warum bekommt man beim Schreiben eigentlich keine Nachricht, dass das Thema schon erledigt ist [/EDIT]VoxelManufakturComputer-Dienstleistungen für Architek ...
|
| In das Form Lisp wechseln |
