|
Lisp : Speichern über LISP
CADmium am 26.02.2007 um 09:28 Uhr (0)
Darf ich raten? Du nutzt Mechanical?!Dann speicher für 2000 Bsp-weise mit(command "amsaveasacadm6" "c:/temp/als-Mech6.dwg") und für die 2004er Version(command "amsaveasacadm2004" "c:/temp/als-Mech2004.dwg") ------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Layer ausschalten mit objektwahl
CADmium am 27.12.2006 um 09:19 Uhr (0)
Das ist kein Lisp-Thema und außerdem offtopic - d.h. beim nächsten Mal: neue Frage = neuer Thread und in solchen Fall besser im "Rund um Autocad" Forum!Trotzdem: ... schon mal den Befehl _align probiert?------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : reskalieren mit lisp (amrescale)
CADmium am 17.10.2006 um 16:37 Uhr (0)
Hallo Jan, wie weiter oben schon erwähnt, stammt der Befehl aus dem ACAD-Mechanical-Produkt. Aber auch fürs reine ACAD sollte sich ein ähnlicher Befehl programieren lassen..------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Einzeiliger Text (Zentrum)
CADmium am 15.01.2007 um 21:11 Uhr (0)
über ActivX kannst du die Methode GETBOUNDINGBOX aufrufen und aus den daraus erhaltenen Koordinaten die Mitte berechnen (Beispiel), in Normalo-Lisp über die Gruppencodes sollte der Beispielcode weiterhelfen.ach ja, und dann gibts noch die Funktion Textbox------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
AutoCAD Mechanical : AM_HID / AM_VIS in Mechanical-Zeichnung löschen
CADmium am 19.03.2007 um 20:44 Uhr (0)
Zitat:Original erstellt von luziano:Hat jemand eine Idee, wie ich alle (auch in Blöcken definierte) Objekte auf diesen Layerm verschieben kann?in einem Rutsch (also nicht mit _refedit) geht das mit einem (Lisp)Programm oder du nutzt den Befehl _laytrans ------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form AutoCAD Mechanical wechseln |
|
Rund um Autocad : Menüdateien, (Kontext-)menüeintrag, wo ist er ?
CADmium am 18.08.2006 um 11:25 Uhr (0)
Die Kontextmenüeinstellungen können auch direkt im Befehl verankert sein. Bsp in Lisp(defun c:Kontexttest( / KW) (initget "Erster Zweiter Dritter") (or(setq KW (getkword " Eingabe oder Rechtsklick fürs Kontextmenu [Erster / Zeiter / Dritter] Erster :")) (setq KW "Erster") ) KW)------------------ - 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 : Ich suche Profile für AutoCAD
CADmium am 09.12.2007 um 13:17 Uhr (0)
naja... das Lisp zeichnet dir doch die meisten Profile Für Nicht-DWG/DXF-Daten sondern für Infornationen über Stahlbauprofile gibts folgendes:Quelle 1 Quelle 2 Quelle 3 Quelle 4Quelle 5und ansonsten für dxf/dwg mal etwas Eigeninitiative mit Google und Suchbegriffen wie "Stahlprofil DXF" usw.Was kostenpflichtiges findest du hier------------------ - 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 : cad.de-Suche fernsteuern
CADmium am 05.03.2009 um 13:33 Uhr (1)
Zitat:Original erstellt von bbernd:Ich würde mir gerne das Lisp so abändern (lassen??),das ich die Sartseite Rund um AutoCAD auch direckt anwählen kann,wie geht das?Gruß BBso:(defun C:Rua (/ str) (startapp (substr (setq str (vl-registry-read "HKEY_CLASSES_ROOThtmlfileshellopencommand" ) ) 2 (1- (vl-string-search "" " str)) ) "http://ww3.cad.de/cgi-bin/ubb/forumdisplay.cgi?action=topics&number=54" ) )aber wofür? --- ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Datei von 2000 auf 12 herunterkonvertieren
CADmium am 22.06.2008 um 09:35 Uhr (0)
Du willst also nur immer einen bestimmten Layer mit entsprechenden Eigenschaften in jeder geöffneten ACAD-Zeichnung haben, oder? Das geht einfacher mit ein paar Zeilen Lisp, in der acaddoc.lsp, die in jeder Zeichnung beim Öffnen ausgeführt wird.z.B:(command "_.-layer" "_m" "14_Nummer" "_c" 7 "14_Nummer" "_lt" "Continuous" "14_Nummer" "")------------------ - 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 |
|
Lisp : Lisp-Programm automatisch starten
CADmium am 18.03.2007 um 10:14 Uhr (0)
Zitat:Original erstellt von Geistl:Da wir bei uns in der Firma teilweise auch noch Kunden bedienen die mit Genius14 arbeiten stellt sich die Frage ob es da auch eine Acad.lsp gibt bzw. wenn es sie nicht gibt ob man diese erstekllen kann und wo diese plaziert werden muß?WernerZu diesem Thema lies bitte den FAQ-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 Lisp wechseln |
|
Rund um Autocad : Layer nach Präfix AN/AUS schalten
CADmium am 07.12.2006 um 11:26 Uhr (0)
Erstmal schließe ich mich dem Kommentar von Tunnelbauer an und dann ist hier noch ein Switcher in Lisp:(defun C:SWITCH-LA_BIT(/ LAYER L) (while (setq LAYER(tblnext "LAYER" (null LAYER))) (if (wcmatch (cdr(assoc 2 LAYER)) "LA_BIT_*") (and (setq L (tblobjname "LAYER" (cdr(assoc 2 LAYER)))) (setq L (entget L)) (entmod(subst (cons 62(* -1(cdr(assoc 62 L))))(assoc 62 L)L)) ) ) ))------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschrei ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Blöcke eauflösen
CADmium am 18.10.2006 um 15:59 Uhr (0)
Schnellauswahl .. Blockreferenzen ... alle wählen und dann _explode eingebenoder (sssetfirst (setq a(ssget "_X" ((0 . "INSERT"))))a) und dann _explodeoder gleich ein Lisp das das macht ( sollte hier im Forum zu finden sein) .. das kann dann auch so gestalltet werden, das auch verschachtelte Blöcke bis zum letzten aufgelöst werden.z.B.hier..was waren eigentlich deine Suchbegriffe? ------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälft ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Lisp für Textstilfont wechsel und Bereinigung
CADmium am 25.07.2008 um 10:13 Uhr (0)
probier damit und versuch es zu verstehen :(defun c:Xrein (/ TX_ST) (vl-load-com) (setq TX_ST (vla-get-Textstyles (vla-get-ActiveDocument (vlax-get-acad-object)) ) ) (vlax-for i TX_ST (if (or(=(strcase(vla-get-fontFile i)) "TXT.SHX") (=(strcase(vla-get-fontFile i)) "TXT") ) (vla-put-fontFile i "simplex.shx") ) ) (command "_audit" "_y") (command "_purge" "a" "*" "n") (princ "...ausgeführt!")(princ))(princ "Programm geladen - mit XREIN starten")------------------ ...
|
| In das Form Rund um AutoCAD wechseln |
