|
Rund um Autocad : Konfigurationsdatei in AutoCAD 2000 erstellen?
marc.scherer am 27.01.2005 um 15:59 Uhr (0)
Hi, also wenn ICH so etwas anfangen wollte, würde ich gleich den maximalen Nutzen ziehen wollen und meine TXT Datei in etwa so aufbauen: Code: ;;; Layer.txt - Parameterdatei für ZVO-NIS ;;; Aufbau der Parameter in Liste: ;;; ( LayerName FarbNr. Linientyp Druckbar? Linienstärke? Beschreibung ) ;;; nth 0 = Layername als String ;;; nth 1 = Farbnummer als String ;;; nth 2 = Linientyp der Acad.lin oder Acadneu.lin als String ;;; nth 3 = Integer: 1=druckbar 0=nicht druckbar ;;; nth 4 = Integer: -3=Vorg ...
|
| In das Form Rund um Autocad wechseln |
|
Lisp : ErrorHandler
marc.scherer am 13.05.2009 um 08:03 Uhr (0)
Zitat:Original erstellt von rkauskh:...daß bei Mapcar ja noch ein zweiter Handler beschrieben ist, der mehr kann. Der überfordert aber mein aktuelles LISP-Wissen und ich verstehe gern was ich da mache.Nun ja, bei komplexen Funktionen vom seligen Axel geht das nicht nur Dir so. Ich hab so das ein oder andere Schätzchen in meiner Bibliothek das von Axel kommt. Immer irgendwelche komplexen, rekursiv arbeitenden Dreizeiler die ich einfach als BlackBox ansehe...Eingabe durchjagen und sicher sein das der Outpu ...
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Textfilter nach Höhe in Skript
marc.scherer am 10.11.2006 um 15:26 Uhr (0)
Hi ChrisSin,hier mal ne Anregung wie son Code aussehen könnte:Code:;|Funktion sucht Texte einer bestimmten Höhe in einer Zeichnungund ordnet sie dann bestimmten Layern zu.Die Texthöhe wird im DXF-Code 40 bestimmt.Argumente:LIST-OF-PAIRS = Liste von Texthöhen - Layerzuweisungen als "dotted pair" Listen z.B. ((2.5 . "Text25") (3.5 . "Text35") (5.0 . "Text50") (7.0 . "Text70") )Beispielaufruf:(TXTHEIGHT2LAYER ((2.5 . "Text25")(3.5 . "Text35")))Im Skript zu verwenden wenn Lisp-Programm alsz.B. T ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Registry Keys verschiedenster Acad-Releases
marc.scherer am 19.02.2004 um 15:32 Uhr (0)
Hi Leute, ich baue gerade ein ActiveX Lisp, welches es ermöglicht das DesignCenter dazu zu überreden nicht nur DWG s anzuzeigen, sondern auch Acad-Dateien mit anderen Erweiterungen (dwt, dws, bak?, ac$?). Das könnte ich natürlich nur für mich machen, da ich das aber hier ins Forum stellen möchte, wäre es doch nicht schlecht wenn die App die entsprechenden Windows-Registry-DesignCenter-Einträge aller Acad Versionen seit Einführung vom DC (R2000) verarbeiten könnte. Da ich aber nur R2004 hier habe und genau ...
|
| In das Form Rund um Autocad wechseln |
|
Lisp : Lisp command _explode ergänzen
marc.scherer am 13.09.2006 um 14:29 Uhr (0)
Hi,kurz und schmerzlos:Code:(if (setq AUSWAHL (ssget "X" (list (cons 0 "INSERT") (cons 2 "tuer")))) (progn (setq ALT-QAFLAGS (getvar "qaflags")) (setvar "qaflags" 1) (command "_explode" AUSWAHL "") (setvar "qaflags" ALT-QAFLAGS) ))Oder schick und sicher mit Rückmeldung und variabel:Aufruf in Deinem Fall dann mit:Code:(INSERTSEXPLODE "tuer")Variabel, weil man die Funktion auch mit allem füttern könnte was wcmatch so verarbeiten kann:Code:(INSERTSEXPLODE "tuer,fenster,schriftfeld")(INSERTSEXPLODE "*")Und ...
|
| In das Form Lisp wechseln |
|
Lisp : Block und text einfügen
marc.scherer am 22.11.2006 um 09:46 Uhr (0)
Zitat:Original erstellt von Garry:Also wenn ich dich richtig verstanden habe könnte ich es so machen...Jau, das könntest Du.Du könntest es aber auch so machen:Code:(defun C:MYINSERT () (command "._insert" "E:ProgrammeBricscad est.dwg" 0 0 0 0 ) (command "_text" "3010.4473,15.3124" 48 0 "Vorname") (command "_text" "3010.4473,113.1005" 48 0 "Nachnahme") (princ "
Fertig!") (princ));; oder(defun MYINSERT2 (FULLPATHBLOCKNAME TEXTWERTVORNAME TEXTWERTNACHNAME) (command "._insert" FULLPATHBLOCKNAME ...
|
| In das Form Lisp wechseln |
|
AutoLisp : DATUM AUTOMATISCH USW.
marc.scherer am 11.05.2004 um 09:21 Uhr (0)
Wie wäre es mit ner Lisp-Funktion die Dir den String als Attributwert auf Knopfdruck einträgt? Nachfolgenden Code als z.B. Att.lsp im Acad Suchpfad speichern. Folgendes Makro auf Button legen: ^c^c(if (null GET-SFELD)(load att.lsp ))(GET-SFELD (( ATTRIBUTNAME . ATTRIBUTWERT )) BLOCKNAME ); Code: ;; Argumente: ;; Attributliste = Liste aus cons-Paaren wobei der 1. Wert den Attributnamen, der 2. Wert den Attributwert enthält ;; Beispiel: (( ID . 1284 )( DATUM . 12.01.04 )( NAME . Wer bin ich? ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : LSP Datei laden
marc.scherer am 04.03.2003 um 10:26 Uhr (0)
Hi, nimm doch lieber setvar, anstatt command zum Variablen setzen: (setvar "textfill" 1) Hast Du in der Acad.lsp oder aber acaddoc.lsp die Funktion "s::startup" definiert? Also z.B.: Code: (defun S::STARTUP (/) (setvar "PLINETYPE" 0) ;_ ALte Polylinien verwenden (setvar "ISAVEPERCENT" 0) ;_ inkrementelle Speicherung aus (setvar "textfill" 1) ) Sonst geht s nicht. Ansonsten könnte auch Dein command das Problem sein, vgl. Acad-Hilfe: "Die Start-LISP-Dateien (acad.lsp, acaddoc.lsp und .mnl) wer ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : text ausrichten lisp funkt nicht
marc.scherer am 11.05.2004 um 12:07 Uhr (0)
So? Code: ; Kopiert Text an eine bestimmte Stelle und richtet ihn in einem bestimmten Winkel aus (defun C:R_TEXT (/ C_E EN ENT EXITFLAG O_AB O_S P1 P2 TEXT_ELEM WINKEL ) (defun *NEUERR* (MSG) (R_VAR) (princ MSG) (princ)) (setq ALTERR *ERROR* *ERROR* *NEUERR* C_E (getvar "CMDECHO") ; ECHO O_S (getvar "OSMODE") ; FANG O_AB (getvar "angbase") EXITFLAG ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Suche nach: Funktionen zur Listenbearbeitung...
marc.scherer am 15.08.2005 um 14:06 Uhr (0)
So...hier erstmal ein Lisp-File mit den Listen der Methods und Properties von R2000i bis R2006 inklusive der hier angefragten Listenfunktionen... Weil das so lang ist, packe ich das mal als Anhang dran und poste nur den erklärenden Text:Code:;|Listen der ActiveX Properties und Methodsin AutoCAD 2000i bis AutoCAD 2006 als globaleVariablen:2000IPROPS, 2000IMETH2002PROPS, 2002METH2004PROPS, 2004METH2005PROPS, 2005METH2006PROPS, 2006METHDie Listen sind der Online Hilfe entnommen.Bis 2005 war dort vor allem ein ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : DesignCenter
marc.scherer am 12.12.2001 um 13:56 Uhr (0)
Hi, Du könntest ein Programm schreiben, welches das ADC anschmeißt, und dann zu den gewünschten Layouts springt. Dieses Pgm könnte im Vorfeld ja schon mal die DWT in eine DWG umbenennen (zu unsicher) oder aber ins Temp-Verzeichnis als DWG kopieren und hier raus die Layouts zeigen... Ich hab meinen Usern n Werkzeugkasten gebaut, mit dessen Hilfe sie über 4 Knöpfe an die (bei uns) wichtigsten Ressourcen kommen. Das ist bedeutend einfacher, als im ADC rumzunavigieren. Hier n Auszug aus dem Pgm fürs ADC... ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Was bedeutet dieser Befehl
marc.scherer am 09.05.2004 um 22:37 Uhr (0)
Hi CeZet, diese Befehle sind Ausdrücke aus der Programmiersprache AutoLisp (eine Autodesk-Abwandlung einer ziemliche alten Programmiersprache... vgl. Google :-)). In Lisp findest Du alles mögliche in Listenform, eine Liste ist immer durch runde Klammern definiert. (setq ro__dn 40 ro__dnLayerld DN =50 ) heißt übersetzt: ( - Achtung hier kommt ne Liste setq - Set Quote {eine Anweisung die Nachfolgende Zeichenkette als Symbolnamen / Variablennamen zu verwenden, wobei das quote nur dafür sorgt, das der ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : AutoCAD/Genius 14 - namenloser Block
marc.scherer am 04.02.2002 um 10:20 Uhr (0)
Hallo Cadwiesel, grundsätzlich bin ich voll Deiner Meinung. Jedoch kannst Du ECHTE Probleme kriegen, wenn Du kommerzielle Tools oder Auszüge daraus zum Download anbietest. Ich helfe auch gerne und wo ich kann und kann Deine Beweggründe sehr gut verstehen, aber wenn Dir ne Klage angehängt wird bist DU dran, da hilft Dir dann auch keiner von den vielen glücklichen denen Du geholfen hast. Du mußt da zum eigenen Schutz ein wenig mehr Unrechtsbewußtsein entwickeln. D.h. bei "kritischen" Hilfen würde ich nicht ...
|
| In das Form Rund um Autocad wechseln |
