|
Lisp : Skalierung in Filterliste
CADwiesel am 05.05.2008 um 16:42 Uhr (0)
Was willst du denn genau für Werte in deinem Auswahlsatz einfangen?Wenn sie eben genau so sein sollen, wie du schreibst bekommst du sie auch so genau.Wenn du sie ungefähr in dem Bereich haben möchtest, musst du es so machen wie archtools es schreibt.Code:(setq #filterliste ((0 . INSERT) (2 . BLKNAME) (-4 . "")(41 . 0.199999)(-4 . "")(41 . 0.2)))(ssget "_X" #filterliste)ungetestet------------------Gruß CADwieselBesucht uns im CHAT
|
| In das Form Lisp wechseln |
|
AutoLisp : Script läuft nicht unter ACAD 2006!
Big Sven am 21.09.2005 um 16:41 Uhr (0)
Hallo Cadwiesel!Leider ist es die Systemvariable nicht. Sie steuert ja auch nur, wenn ich es denn richtig verstanden habe, ob mehrere DWGs gleichzeitig geöffnet werden dürfen oder nicht. Ich möchte aber eine Datei zur Zeit öffnen, bearbeiten und anschließend wieder speichern bzw. schließen.Das ist immer noch nicht möglich.Gruß Sven
|
| In das Form AutoLisp wechseln |
|
Lisp : Layernamen eines Bildes komplett ändern
CADwiesel am 30.06.2008 um 14:19 Uhr (0)
Hier mal ein Werkzeug, was sowas macht:Code:(defun c:LayerPreName( / vorwahl objLayer LAYERNAM)(if(setq vorwahl(getstring "Vorbezeichnung eingeben: ")) (vlax-for objLayer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)) ) (setq LAYERNAM (strcat vorwahl(strcase (vla-get-name objLayer)))) (if (and (snvalid LAYERNAM) (not (tblsearch "LAYER" LAYERNAM)) (/= (vla-get-name objLayer) "0")(/= (vla-get-name objLayer) LAYERNAM)) (vla-put-name objLayer LAYERNAM) ...
|
| In das Form Lisp wechseln |
|
Lisp : (nicht) schreibgeschützte DWG mit Script öffnen
CADwiesel am 08.05.2008 um 07:54 Uhr (0)
Solange die Zeichnungen nach der Scriptbearbeitung nicht gespeichert werden sollen, oder nicht unter dem gleichen Namen gespeichert werden sollen, ist das ja alles schön und gut. Wenn aber doch, muss dann der save oder qsave Befehl angepasst werden.denn schreibgeschützte Datei kann nur unter anderem Namen gespeichert werden------------------Gruß CADwieselBesucht uns im CHAT
|
| In das Form Lisp wechseln |
|
Lisp : Konvlay bzw. Aufruf von csv Dateien
CADwiesel am 14.08.2013 um 07:24 Uhr (1)
natürlich kannst du an der Stelle Code:(findfile "layerkonvertierungsliste.cnv") auch einen gesamten Pfad angeben. Achte auf die Schreibweise:Code:(findfile "C:Templayerkonvertierungsliste.cnv")oderCode:(findfile "C:/Temp/layerkonvertierungsliste.cnv")wenn allerdings die Datei nicht per findfile gefunden wird, auch bei der bisherigen Art, poppt kein Auswahldialog auf, der dich danach fragt. Stell Sicher das du auch die richtige Lisp Datei in dein Acad geladen hast und nicht die alte.------------------GrußC ...
|
| In das Form Lisp wechseln |
|
Lisp : Zeichnung als Block einfügen
CADwiesel am 06.11.2013 um 07:14 Uhr (1)
Ohne mal weiter auf den Kot einzugehen....ergänze deine Variablen am Anfang mit:Code: ""zaehler 1Blockname"Kanalbogen"Ersetze dann die Zeile am Ende:Code:(COMMAND "_rotate" L-elem "" "_non" l005p00 "")durch die Zeilen:Code:(command "_-block"(progn(while(tblobjname"block" Blockname)(setq blockname(strcat Blockname (itoa zaehler)) zaehler (1+ zaehler)) )Blockname)l005p00 L-elem "")(command "_insert" Blockname l005p00 "1" "1" "0")(COMMAND "_rotate" "_l" "" "_non" l005p00 pause)------------------GrußCADwiese ...
|
| In das Form Lisp wechseln |
|
Lisp : Koordinatenexport
CADwiesel am 12.07.2006 um 08:19 Uhr (0)
Hier das was du brauchst - denke ichCode:(defun C:test (/ clay OSM ASN TG DEZ MD_ERR);;;Errorhandler (defun M:FEHLER (S) (print (strcat "M:fehler " S)) (close DAT_ID) (command) (command "_UNDO" "_BACK") (setq *ERROR* MD_ERR) (command "LAYER" "SE" clay "") (command "osmode" OSM) (command "autosnap" ASN) (princ) ) ;_ end of defun (command "_UNDO" "_MARK") ;Marke für Zurück nach Abbruch setzen (setq MD_ERR *ERROR* *ERROR* M:FEHLER clay (getvar "CLAYER") OSM (getvar "osmode") ASN ...
|
| In das Form Lisp wechseln |
|
Lisp : Attributhöhen in 2008 ändern!?!
CADwiesel am 23.08.2007 um 07:59 Uhr (0)
wie wär n das?Code:(if(and(setq obj (car (entsel "
Bitte wählen Sie ein Teil aus:")))(setq hoehe(getreal "
Bitte geben Sie die neue Höhe für das Teil ein:")))(command "_move" obj "" "0,0,0" (append (0.0 0.0)(list hoehe))))------------------Gruß CADwieselBesucht uns im CHAT
|
| In das Form Lisp wechseln |
|
Lisp : dwg einfügen
CADwiesel am 19.12.2006 um 16:25 Uhr (0)
mach dir eben einen Button, auf den du dann den _insert befehl legst:hier habe ich mal eben die Suche für dich bemüht: ------------------Gruß CADwieselBesucht uns im CHAT
|
| In das Form Lisp wechseln |
|
Lisp : Speichern in Autocad 2000 Format
CADwiesel am 08.08.2008 um 07:49 Uhr (0)
wie wäre der Befehl _saveas denn?den gibts sogar, wenn wmnn filedia auf 0 stellt als Befehlszeilenversion.ok, er kann nicht mehrere Dateien auf einmal speichern, aber wer oder was kann sowas schon?------------------Gruß CADwieselBesucht uns im CHAT
|
| In das Form Lisp wechseln |
|
Lisp : Code für AutoCAD-Gruppen...
CADwiesel am 14.09.2006 um 07:41 Uhr (0)
Ich war mal so frei und habe den Code dahingehend umgestellt, das alle Subfunktionen nun am Anfang stehen. Wenn es bei dir immer noch nicht geht, müssten wir uns mal etwas genauer mit deinem System auseinander setzenschnipp schnapp der code ist ab weil das liebe Sägetierchen unten ein päckchen geschnürt hat
|
| In das Form Lisp wechseln |
|
AutoLisp : Pedit / Verbinden
CADwiesel am 09.12.2003 um 12:52 Uhr (0)
oder bei CADwiesel ------------------ Gruß CADwiesel Besucht uns im CHAT
|
| In das Form AutoLisp wechseln |
|
AutoLisp : benennUBL.lsp liefert Fehlermeldung
CADwiesel am 08.11.2004 um 08:27 Uhr (0)
wie bisdn du drauf? Das hier ist doch nicht das CADwiesel Support - Forum ------------------ Gruß CADwiesel Besucht uns im CHAT
|
| In das Form AutoLisp wechseln |
