|
Rund um Autocad : layout batch rename
CADmium am 27.05.2004 um 11:53 Uhr (0)
Und falls du doch die Layouts umbenennen möchtest... ein Beitrag der Lisp-Fraktion : (defun c:LAYOUT-RENAME ( / ITEM INDEX) (setq INDEX 0) (vlax-for ITEM (vla-get-layouts (vla-get-ActiveDocument (vlax-get-acad-object) ) ) (setq NAME(vlax-get-property ITEM NAME)) (if (= (itoa(atoi NAME)) NAME) (progn (while ( (strlen NAME) 10) (setq NAME (strcat 0 NAME)) ) ...
|
| In das Form Rund um Autocad wechseln |
|
Lisp : Mittels Lisp auf ISO oder DIN umstellen
CADmium am 14.05.2012 um 10:21 Uhr (0)
der Befehl läßt sich auch automatisieren .. hatte ich auch mal ne Tool für jemanden geproggt ... Verzeichnis wählen und alle Dateien in dem Verzeichnis werden auf die zu wählende Vorlage getrimmt..Durch den Befehl amsetupdwg werden Dictionaries ..u.a. für die Standards angelegt ... so dass das dann eine Mechanical Zeichnung ist ( Acad pur stört sich aber nicht an den zusätzen ) , deshalb der Hinweis nach dem nicht mehr Rückgängig machen ...------------------ - Thomas - "Bei 99% aller Probleme ist die ...
|
| In das Form Lisp wechseln |
|
Lisp : Dyn. Blöcke - welches Dictionary ist zuständig?
CADmium am 05.09.2008 um 13:46 Uhr (0)
na ok .. wenn du normales Lisp einfacher findest .. die Parameter usw. stehen in Extensiondictionary der jeweiligen Referenz .. an den Effektivnamen kommst du z.B. so:(and(setq A(Car(Entsel "
Referenz eines dyn. Blockes wählen:"))) (setq A(entget A)) (setq A(cdr(assoc 360 A))) (setq A(entget A)) (setq A(cdr(assoc 360 A))) (setq A(entget A)) (setq A(member(3 . "ACDBREPDATA") (mapcar (lambda(X) (if(and(=(car X)3) ...
|
| In das Form Lisp wechseln |
|
AutoCAD Mechanical : Registry über LISP löschen
CADmium am 29.03.2012 um 11:14 Uhr (0)
lädst du eine LSP-Datei mit dem Code oder läßt du nur die Code-Zeile in der Befehlszeile ausführen ?Wenn, wie hast du die lsp-Datei erstellt ? Gibst d evtl. in deinem Editor nicht angezeigte steuerzeichen, worüber der Interpreter meckert ? die Verwendung der Funktion (acet-reg-del ... erfordert(e) IMHO installierte Expresstools .. zumindest in älteren ACAD-Versionen(vl-registry-delete "HKEY_CURRENT_USERSoftwareAutodeskTEST") sollte immer gehenP.S. Für solche Fragen gibt es explizit das Lispbrett ... für ...
|
| In das Form AutoCAD Mechanical wechseln |
|
Rund um AutoCAD : Lisp-Datei kann nicht ausgeführt werden
CADmium am 14.11.2012 um 08:00 Uhr (0)
Zitat:Original erstellt von whf_muc:Hallo- habe leider auch feststellen müssen, dass bei 2013 ein paar Lisps nicht mehr funktionieren.Gruß Torsten.. ziemlich pauschal ... und glaub ich auch nur in so weit, das evtl ein paar command-Aufrufe angepasst werden müssen .... am Sprachumfang des Lispinterpreters hat sich sicher nichts reduziert ..------------------Also ich finde Unities gut ... und andere sicher auch--------------------------------------- - Thomas - "Bei 99% aller Probleme ist die umfassende B ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Block- und Attributslayer automatisieren
CADmium am 17.10.2012 um 11:04 Uhr (0)
Zitat:Original erstellt von fs1603:Ich hoffe das Beispiel verdeutlicht mein Problem. Ja ... da würd ich die Datenstruktur ändern ... aber ok , wenn das nicht geht, hilft ne Programmierung .. als Bsp und Machbarkeitsstudie kann man das von mir verlinkte Tool nehmen, für deine Sachen müßte das aber noch hinsichtlich möglicher Eventualitäten aufgebohrt werden ....Wenn du in Lisp einsteigen willst, sind Mapcars Seiten der erste Einstieg ... Kannst du C# und .Net ist das aber auch nicht verkehrt.--------------- ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Schnellauswahl mit einem Klick
CADmium am 11.08.2009 um 11:11 Uhr (0)
Attribute sind an die Blockreferenz gebunden und nur mit dieser auswählbar .. zum löschen muß die Blockreferenz gewählt werden ( geht auch nicht mit _erase ) und sich dann zum Att durchgehangelt werden. Allerdings korrepondieren dann die Referenzen nicht mehr mit den Blockdefinitionen ... somit wäre ein Löschen der Attributsdefinition im Block mit anschließendem Attsync sinnvoller... es geht zwar auch anders, aber ich denke, soweit bist du in Lisp noch nicht.------------------ - Thomas -"Bei 99% aller ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Schnittpunkt ermitteln
CADmium am 04.05.2012 um 08:42 Uhr (0)
Zitat:Original erstellt von cadplayer:vlax-vla-object-ename erstellt doch ein vla-objekt nicht ein Lisp-objekt Bemühe bei sowas doch einfach mal die HILFE im VLIDE !---------Zu deinem Code (davon abgesehen, dass ich ihn gruselig finde .... )nimm doch einfach ne neue Variable .. also stattVLobj (vlax-ename-vla-object en)pt vlax-curve-getClosestPointTo VLobj pt)seg (fix (vlax-curve-getParamAtPoint VLobj pt)) ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des P ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : LISP Hilfslinien erstellen (K_Linien) funzt nicht richtig
CADmium am 11.12.2008 um 12:27 Uhr (0)
(defun c:ha() ;erzeugt eine Hilfslinie mit Abstand (command "_undo" "_e") (command "_undo" "_m") (setq altlay (getvar "CLAYER")) (command "_layer" "_m" "hilfslin_018" "_p" "_n" "hilfslin_018" "_c" "Magenta" "hilfslin_018" "_lw" "0" "hilfslin_018" "") (command "_xline" "a" pause pause pause pause "") (setvar "CLAYER" altlay) (princ) (command "_undo" "_e"))HA läuft so ....HM fehlt die abschließende Klammer und die Funktion DTR .. aber die Routine ist so IMHO sowieso Quatsch.------------------ - Thomas -"B ...
|
| In das Form Rund um AutoCAD wechseln |
|
Autocad VBA : Zeichnungsrahmen einfügen
CADmium am 18.04.2006 um 11:35 Uhr (0)
..über den ACAD-Mechanical-Befehl AMTITLE wird das so, wie du es dir vorstellst, nichts werden. Rahmen und Schriftfeld sind beides Blöcke, welche über entsprechende XDATAS aufeinander verweisen und für den Befehl POWEREDIT gekennzeichnet sind .. du müßtest dir also in VBA eine Routine schreiben, das vom Rahmen und Schriftfeldblock entsprechende Referenzen erzeugt, die Xdatas generiert, und die Attribute des Schriftfeldes ausfüllt. Machbar ist das ( habs in Lisp auch schon mal realisiert), aber ne ganze Men ...
|
| In das Form Autocad VBA wechseln |
|
Rund um AutoCAD : Anfängerfrage: Filtern nach Eigenschaften des markierten Objekts
CADmium am 17.02.2009 um 09:18 Uhr (0)
"ähnliche wählen" ist IMHO schon ok ... denn genau, wären 100% die gleichen Eigenschaften .. nicht nur Farbe und Layer sonder auch Lage im Raum usw. Ansonsten, wenn dir alles angebotene nicht reicht: lern Lisp oder .NET oder beides , dann kannst du dir dein Acad nach deinen Wünschen anpassen und erweitern.Oder du formulierst deine Anforderungen genau, erstellst ein Pflichtenheft und läßt dir das proggen.------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bere ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Lisp-Dateien extern bearbeiten
CADmium am 28.06.2008 um 19:19 Uhr (0)
Zitat:Original erstellt von archtools: und dann auch gleich die Weiterentwicklung komplett eingestellt - bis heute hat sich da nix mehr getan... nicht ganz ... bin heut zufällig (im 2008) über die Funktionen (layerstate-xxx) gestolpert. War echt überrascht die in der VLIDE-Hilfe dokumentiert zufinden... kannte bisher bloß die ActiveX-Möglichkeit dazu ..auch sind wohl die acet-xx Funktionen ( in der Hilfe)hinzugekommen(okok .. alle nichts weltbewegendes, aber immerhin) ------------------ - Thomas -"Bei 9 ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Zeichnungseinheiten in einen Lisp -Befehl
CADmium am 06.05.2004 um 10:50 Uhr (0)
Ansonsten : Folgende Funktion rundet die übergebene ZAHL aud die angegebenen STELLEN (defun ROUND (ZAHL STELLEN / TEMP ) (if (and(numberp ZAHL) (=(type STELLEN) INT)) (progn (setq TEMP (abs ZAHL)) (repeat STELLEN (setq TEMP (* TEMP 10.0))) (cond ( ( (mod TEMP) 0.5) (setq TEMP (+ (fix TEMP) 1))) ( ( (mod TEMP) 0.5) (setq TEMP (fix TEMP) )) ( (= (mod TEMP) 0.5) (if (equal (/ (fix TEMP) 2.0) (fix(/ (fix TEMP) 2.0)) 0.001) ...
|
| In das Form AutoLisp wechseln |
