|
AutoLisp : Plotdialog in Lisp nutzen
fuchsi am 15.10.2003 um 16:41 Uhr (0)
ich mach sowas mit den COMMAND Reaktoren vor dem plotten werden bei mir systemvariablen verändert, layer auf nicht plottbar geändert. nach dem plotten werden die systemvariablen zurückgesetzt vt. KEIN eigener plot-befehl, es bleibt der standard plot-aufruf per befehl, werkzeugkasten menü weiters hab ich das so ausgebaut, dass z.B.: vor den bemassungsbefehlen ein eigener layer gesetzt wird, nach der bemassung der alte zurückgesetzt das schau in etwa so aus : ; reaktor definieren (vlr-remove-all :vlr-editor- ...
|
|
AutoLisp : Plotdialog in Lisp nutzen
fuchsi am 17.10.2003 um 08:45 Uhr (0)
ja ich arbeite sehr gerne mit reaktoren hab z.B.: einen, der nach dem befehl copy,reihe,pasteclicp usw. die neu erstellten teile in der zeichnung analysiert, und automatisch neue positionsnummern vergibt. das hat den vorteil, dass ich rund um den autocadbefehl keine eigene routine schreiben muss, und die originalen autocadbefehle nicht sperren muss. so kann der anwender wie gewohnt mit den bekannten autocad-befehlen arbeiten, und hinterher läuft mein lisp an
|
|
AutoLisp : Konstruktionslinien versetzen von einer Linie in einem Block
fuchsi am 21.10.2003 um 08:25 Uhr (0)
habe das ganze so ergänzt , dass die layer automatisch erstellt werden, falls sie nicht vorhanden sind mit dieser zeile kannst du nun für alle möglichen autocad-befehle layer festlegen z.B.: beim start vom befehl circle (kreis) sold der layer KREISLAYER mit der farbe 7 als aktuell eingestellt werden ((= value CIRCLE ) (setlayer KREISLAYER 7)) nuin das vollständige neue lisp (vlr-remove-all :vlr-editor-reactor) (vlr-editor-reactor nil ((:vlr-commandWillStart . MyCommandWillStart) (:vlr-commandE ...
|
|
AutoLisp : Verwendete CTB über Lisp auslesen
fuchsi am 31.10.2003 um 09:00 Uhr (0)
tipp zum raussuchen dieser undokumentieretn vla befehle verwende ich folgendes kleines lisp (foreach n1 (atoms-family 1) (if (wcmatch n1 VLA-GET* ) (print n1)) ) listet alle befehle auf die mit VLA-GET beginnen dann die gefundenen befehle in google eingeben, da findet man dann haufenweise beispiele dazu, ist zwar eine mühsame sucherei lohnt sich aber
|
|
AutoLisp : kleines aber feines LISP
fuchsi am 31.10.2003 um 11:13 Uhr (0)
will ich euch nicht vorenthalten oft hat man lisp-ausdrücke, die auf einen fehler auflaufen können gerade wenn man z.B: mit activex arbeitet ich habe mir da eine TRY funktion gescrieben z.B.: (if (not (setq daoobj (vlax-get-or-create-object DAO.DBENGINE.35 ))) (setq daoobj (vlax-get-or-create-object DAO.DBENGINE.36 )) ) (try vlax-invoke (list daoobj OPENDATABASE D: est.mdb )) ergibt t fallse die methode OPENDATABASE erfolgreich ist sonst NIL ; ; Testroutine ergibt nil im Fehlerfall ansonst den ...
|
|
AutoLisp : Anzahl der Attribute einer Zeichnung
fuchsi am 03.11.2003 um 13:57 Uhr (0)
hier 2 kleine lisp programme mit dem einen kannst du attribute per lisp setzten (WriteAttribute (entlast) Myattribut MyNewValue ) das 2. liest dir alle attributte eines eingefügten blockes als assoc-liste aus (GetAllAttributes (entlast)) ergibt (( Attname1 . AttValue1 )( AttName2 . AttValue2 ) ...) also ATTREQ auf 0 setzen, den block per lisp eingügen, und mit (sslenght (GetAllAttributes (entlast))) kriegst du rasu wieviele attribute der block hat ; ; schreibt in einen Block ein Attribut ; (defun ...
|
|
AutoLisp : linientyp erstellen
fuchsi am 03.11.2003 um 15:45 Uhr (0)
ist zwar kein linie sondwern ein textstil habe dein lisp nur um die 100er zeilen ergänzt dann funzt es (entmake (list (0 . STYLE ) (100 . AcDbSymbolTableRecord ) (100 . AcDbTextStyleTableRecord ) (cons 2 test ) (70 . 0) (cons 40 1) (cons 41 1) (50 . 0.0) (71 . 0) (cons 3 arial ) (4 . ) )) ------------------ *********************************************** AutoCad 2000i, 2002, 2004 deutsch und englisch Windows 2000, NT, XP
|
|
AutoLisp : Textdatei importieren
fuchsi am 17.11.2003 um 12:40 Uhr (0)
das könnte mit folgendem kleinem lisp passieren allerdings musst du die zeile (command TEXT ep 2.5 0 text ) anpassen , der wert 2.5 ist die texthöhe des zu erstellenden textes sollte dein aktuelelr textstil bereits fix eine höhe zugeweisen haben, muss die zeile so ausschauen (command TEXT ep 0 text ), damit das fehlerlos funktioniert !! (defun c:txtimp (/) (cond ((setq file (getfiled Textfile einlesen Textfile txt 0)) (setq x (open file r )) (while (setq dat (read-line x)) (setq a1 ...
|
|
AutoLisp : Syntax-Error
fuchsi am 17.11.2003 um 14:04 Uhr (0)
das ist so nicht so leicht zu lösen, stell mal das lisp hier rein dann kann ich die sagen , was du ändern musst ------------------ *********************************************** AutoCad 2000i, 2002, 2004 deutsch und englisch Windows 2000, NT, XP
|
|
AutoLisp : activeX und "altes" lisp
fuchsi am 17.11.2003 um 14:10 Uhr (0)
habt ihr auch schon mal bemerkt, wenn man activex-befehle (z.B.: vla-SETXDATA) mit standard lisp (entmake, entget ,..) kombiniert, dass autocad öfters mal mit einem systemfehler crashed (eLockViolation - error) Abhilfe filft hier ein sinmples (Command ._READRAW ) zwischen den einzelnen technologien ------------------ *********************************************** AutoCad 2000i, 2002, 2004 deutsch und englisch Windows 2000, NT, XP
|
|
AutoLisp : INI-Datei schreiben / lesen
fuchsi am 19.11.2003 um 09:35 Uhr (0)
ich hab mir da eine activeX Dll geschrieben, die ich dir zur verfügung stellen kann die dll einfach ins winntsystem32 kopieren und registrieren dann hast du folgende neuen befehle (setq actools (vlax-get-or-create-object acadtools.tools )) (vlax-invoke actools StartApplication notepad ) (vlax-invoke actools ReadIni Section Entry Default IniFile) (vlax-invoke actools WriteIni Section Entry Value IniFile) (vlax-release-object actools) mit vlax-get-or-create-object wird das objekt instanziert (vlax ...
|
|
Lisp : VRML export
fuchsi am 26.11.2003 um 08:16 Uhr (0)
danke mapcarsource ist nicht mehr nötig, habs in lisp realisiert, zuerst 3dsout, 3dsin damit hab ich die 3ecks-flächen und dann per lisp sortieren und gemeinsam benutzte kanten elimienieren. ist trotz meiner befürchtung doch nur ein lisp mit nur 120 zeilen geworden.alllerdings hab ich jetzt das problem , dass die meisten vrml-viewer erst recht wieder dreiecke reinlegen. und zwar vom ersten punkt zu jedem der folgenden des poligonzuges, sodass bei Tischplatten mit Einbuchtungen, oder Tischplatten ums Eck, u ...
|
|
Lisp : BUCH TIP !!!
fuchsi am 28.11.2003 um 18:08 Uhr (1)
tschuldige, ´hab mir das buch auch gekauft (besser gesagt meine firma) und war schwer enttäuscht darüber.eigentlich wirklich nichts neues, ausser allgemeines bla blaok. vielleicht liegt es daran, dass ich seit 1992 autocad per lisp programmiere (und das ohne bücher, sondern im eigenstudium) und den internen datenbank-aufbau ziehmlich genau kenne------------------***********************************************AutoCad 2000i, 2002, 2004 deutsch und englischWindows 2000, NT, XPProgrammiere in Lisp, VB6, VBA un ...
|
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
