|
Rund um Autocad : Gewinde zeichnen
marc.scherer am 12.08.2005 um 08:50 Uhr (0)
Hi Tine,Du mußt Deine Maus wie ein Telefon in die Hand nehmen und laut und deutlich hineinsprechen:"Computer! Bitte ein Gewinde zeichen!"Nee, ernsthaft AutoCAD ist nur n Malkasten, ein virtuelles Zeichenbrett. Das kann von Haus aus in der Standardversion etwas "fachspezifisches" wie ein Gewinde gar nicht zeichen.Man muß dann mit diversen von AutoCAD unterstützten Geometrien (Linie, Bogen, Kreis usw.) etwas malen, das wie ein Gewinde aussieht.Wenn Du komplexe Strukturen einfach eingebunden haben willst, ben ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Position des Maßtexts ändern
marc.scherer am 10.11.2004 um 14:14 Uhr (0)
Hi, wie lange arbeitest Du schon mit Acad? Guckst Du in der Acad-Hilfe (F1, sehr nützlich) unter "Bemaßungsstile", Bemstil, -Bemstil Option "Anwenden"). Je nach Acad-Version auch erst in Bemassungsmodus wechseln (BEM -Enter-, dann UPDATE -Enter- und dann Bemaßungsobjekte auswählen, denen der aktuelle Bemaßungsstil zugewiesen werden soll.) Ach so, VORHER mußt Du natürlich Deine(n) Bemaßungsstil(e) so wie von Dir gewünscht einstellen... Überprüfe mal die Bemaßungsvariablen: (DIMTVP) DIMTVP 0.000 1.000 Bem-Li ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Textfilter nach Höhe in Skript
marc.scherer am 13.11.2006 um 09:29 Uhr (0)
Hi ChrisIn,Du solltest UNBEDINGT die VLIDE benutzen (Befehl: VLIDE)!Insbesondere die Debugging-Funktionen (Hilfe: Introducing Visual LISP Debugging Features).Zum Textstil hab ich Dir hier noch mal ne Beispiel-Anwendung zusammengeschraubt. Hier auch wieder die Technik mit Subroutinen-Aufruf. In diesem Fall eine Subroutine zum erzeugen von Objektlisten gemäß ssget-Filterbedingungen...Code:;|Textstyle-ChangerÄndert den Stil von Textobjekten.Beim MText nicht den eventuell manuell veränderten Font,das ist ne an ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : ctb-Dateien-Zuweisung in der Seiteneinrichtung
marc.scherer am 10.10.2006 um 19:03 Uhr (0)
Hi,Du könntest im nachhinein so eine kleine Lisp-Funktion verwenden um die gewünschte Plotstiltabelle auf alle Layouts und Benannte Seiteneinrichtungen anzuwenden:Code:(defun C:SETSTYLETABLE (/ ACTIVEDOCUMENT APPLICATION ITEM STYLESHEETTARGETS STYLETABLE) (vl-load-com) (setq APPLICATION (vlax-get-acad-object) ACTIVEDOCUMENT (vla-get-activedocument APPLICATION) ) (if (not (setq STYLETABLE (getfiled "Plotstiltabelle wählen" (strcat (vla-get-printerstylesheetpath ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Button für Ungroup Erstellen
marc.scherer am 09.05.2006 um 18:53 Uhr (0)
Guckst Du hier für ein Gruppen-Tool von mir und die Meinungen dazu bzw. die Einschränkungen: http://ww3.cad.de/foren/ubb/Forum145/HTML/000019.shtml#000005 Den Code plus Menü findest Du auch hier (das spart das manuelle rauslösen): http://ww3.cad.de/foren/ubb/uploads/marc.scherer/Gruppen.zip Wie man ein Lisp in Acad einbindet findest Du hier: http://ww3.cad.de/foren/ubb/Forum54/HTML/007058.shtml Und wie man ein Teilmenü einbindet weißt Du hoffentlich selbst ;-)BTW.: Wenn bei Dir soviel Bedarf an Gruppen bes ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : ai_draworder vs. _draworder
marc.scherer am 12.11.2004 um 09:37 Uhr (0)
@cadffm Sollst Du falsche Aussagen treffen? @rakana Bei solchen Fragen ist es manchmal das einfachste den Installationsordner nach *.* Dateien mit dem fraglichen Text suchen zu lassen. Bei mir wurde daraufhin u.a. die acad.mnl gefunden. Hier wird die Funktion ai_draworder als Lisp definiert: Code: ;;; ;;; Enable Draworder to be called from a menu ;;; Checks for Pickfirst selected objects ;;; (defun ai_draworder (option / ss ) (setq m:err *error* *error* *merr*) (ai_sysvar ( cmdecho . 0)) (if ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Dateigröße bestimmen
marc.scherer am 03.01.2005 um 09:47 Uhr (0)
Hi, ja das Problem mit dem Fensterwechsel und modemakro mußte ich auch lösen. Ich verwende dazu eine Lisp-Datei reactors.lsp die über die Funktion S::STARTUP in der acaddoc.lsp automatisch bei jedem Dokumentstart ausgeführt wird. Der Inhalt der reactors.lsp müßte für Deine Zwecke so aussehen: Code: (vl-load-com) ;_ Lade die ActiveX Extension ;;; Hinzufügen eines Docmanager reactors ;;; Fensterwechsel in AutoCAD (vlr-docmanager-reactor NIL ((:vlr-documenttobeactivated . MS:NEWNOTICE) ;_ (Bei dem ...
|
| In das Form AutoLisp wechseln |
|
Lisp : schriftfelder via lisp (ac2005)
marc.scherer am 26.08.2009 um 11:17 Uhr (0)
Zitat:Original erstellt von Dorfy:;liefert dir den winkel einer linie (Bögen PL sind komplizierter)Da spielt aber die Laufrichtung der Linie eine erheblich Rolle ob der Text "auf dem Kopf steht".Zu dem Zweck jage ich Winkelwerte immer durch folgende Sub-Routine:Code:;;; *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm ***;;; Unterprogramm zur Winkelkorrektur.;;; "Normalisiert" einen Winkel so, dass er nicht "auf dem Kopf" steht!(defun winkel-korrektur (Eingangswinkel /) (if (and (= ...
|
| In das Form Lisp wechseln |
|
AutoLisp : _text mit zeilenumbruch
marc.scherer am 15.02.2006 um 12:59 Uhr (0)
Hi,ja, ja der Text Befehl ist in Lisp etwas störrisch.Ich hab mir mal so geholfen:Code:(defun DT:COMMAND-MLINE-TEXT (LST-STRINGS LST-COORDINATE REAL-HEIGHT REAL-ANGLE / FIRST REST) (setq FIRST (car LST-STRINGS) REST (cdr LST-STRINGS) ) (if FIRST (progn (command "_.text" LST-COORDINATE REAL-HEIGHT REAL-ANGLE FIRST) (foreach STR REST (command "_.text" "" STR) ) ) ))Aufruf z.B. so:(DT:CREATE-MLINE-TEXT ("Firstline") (getpoint "
Startpunkt für Text: ") (getdist "
Texthöhe: ") "100g")oder so(DT ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Einladung Produktvorstellung nächstes Release von AutoCAD
marc.scherer am 15.09.2004 um 08:28 Uhr (0)
Hi mapcar, Holger, Wiesel, ist ja OK das Ihr den Dialog fördern wollt... Aber wieso interpretiert Ihr die bisher geposteten Beiträge so negativ. Sie sind kritisch und eventuell ein wenig sarkastisch, aber SO abweisend empfinde ich Sie nicht. Also liebe Autodesk, vertreten durch Herrn Michael Nachtsheim, bitte nicht vergraulen lassen. WIR ALLE, da bin ich sicher, auch die vermeintlich nörgeligen Anwender FREUEN uns über das Engagement hier in den Foren. @mapcar Haben wir den Dietmar vergrault? Oh, ist mir g ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Exploden, aber nicht nur die zeichnung im vordergrund
marc.scherer am 21.06.2005 um 10:06 Uhr (0)
Hi, pack Deinen Code in eine extra Lisp-Datei: z.B. caddeexplode.lsp . Inhalt: Code: (while (setq ELEMLI (ssget _X ((0 . INSERT )))) (repeat (sslength ELEMLI) (command _.explode (ssname ELEMLI 0)) (setq ELEMLI (ssdel (ssname ELEMLI 0) ELEMLI)) ) ) Diese Datei legst Du in den AutoCAD Suchpfad. Dann erstellst Du eine Scriptdatei, z.B. caddeexplode.scr Inhalt: Code: (load caddeexplode.lsp ) _.qsave Jetzt brauchst Du nur noch das kostenlose AutodeskTool ScriptPro Ist Best ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Dwgprops schreiben
marc.scherer am 20.01.2004 um 18:17 Uhr (0)
CADmium schrieb (im Original): mit den expresstools : Express-- Tools-- DWG-Datenbankviewer Knopf Databse -- Current -- Named Objects Dictionary -- DWGPROPS und dann im Fenster rechts ändern. Wenns dir um die Bearbeitungszeiten geht : Wert 041 - erstellt am Wert 042 - geändert am Wert 040 - Bearbeitungszeit diese Werte liegen im Julianischem Datumsformat vor. Rudimentär mit Lisp : Siehe Anhang! Gruß Thomas (Frage : mit VBA aufgegeben ? ) (Nur damit der ursrüngliche Bezug bestehen bleibt...) Meine A ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Befehlszeilenoption für _.save ??
marc.scherer am 26.09.2005 um 13:07 Uhr (0)
Hi Jörn,keine Chance mit Sysvar.Ich habe so etwas ähnliches bei meinem Block-Out Programm.Da frage ich einfach vorher ab, ob ich s mit Map zu tun habe und verzweige dann auf eine extra command-Zeile:Code:(if (findfile "acadmap.arx");_ Acad-Map aktiv! ;; Kommandozeile bei Autodesk Map 5 (command "_.-wblock" (strcat PATH "" ELEM ".dwg") ELEM "_n" ) ;_ end of command ;; Komandozeile ohne Map (command "_.-wblock" (strcat PATH "" ELEM ".dwg") ELEM) ) ;_ end of if...Edit:Wenn Dir das prüfen mi ...
|
| In das Form Lisp wechseln |
