|
AutoLisp : ACAD2004 mag meine DCLs nicht.
fuchsi am 20.10.2003 um 08:37 Uhr (0)
also bei mir funktionierts soweit, die dialogbox erscheint, ich drücke ok, unmd muss dann ein objekt wählen, wies weiter geht hab ich dann nicht untersucht wo hast du denn die dcl datei abgespeichert, das einzige, da sie ohne pfad geladen wird, muss sie in einem suchpfad von autocad liegen was bekommst du für eine fehlermeldung ?? vielleicht eine dialogbox mit Laden der Dialogbox nicht moeglich! dann kopier die dcl-datei mal ins support-verzeichnis von autocad dann sollte es eigentlich gehen
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Getfiled: welches Flag
fuchsi am 20.10.2003 um 12:00 Uhr (0)
1 und 32 1..neue datei 32.. nicht fragen wegen überschreiben
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Getfiled: welches Flag
fuchsi am 20.10.2003 um 12:03 Uhr (0)
autodesk könnte die hilfe auch mal überarbeiten zitat: To set more than one condition at a time, add the values together to create a flags value between 0 and 15. und was ist mit den flags 16 32 64 128 also das 0 bis 15 galt nur bis autocad14 original aus der hilfe: flags An integer value (a bit-coded field) that controls the behavior of the dialog box. To set more than one condition at a time, add the values together to create a flags value between 0 and 15. The following flags arguments are recognized by ...
|
| In das Form AutoLisp wechseln |
|
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 ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Ein Scriptgenerator
fuchsi am 31.10.2003 um 09:09 Uhr (0)
probier mal meinen scriptgenerator ist eine exe-datei die ausserhalb von acad läuft. im linken teil wählst du ein verzeichnis und dwg-dateien (kann auch gesamtest verzeichnis mit unterverzeichnissen) ich rechten fenster schreibst du deinen script pro zeichnung hier hast du die platzhalter %PFAD% und %DWG% für zeichnungspafd und name zur verfügung z.b: folgendes beispiel würde die gewählten zeichnungsn aufmachen , zoom grenzen und dann abspeichern _OPEN %PFAD%%DWG% ZOOM G _SAVE dens script brauchst du dann ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : div. fenster mit OK oder Abbruch ???
fuchsi am 31.10.2003 um 09:14 Uhr (0)
kann ich irgendwie abprüfen, ob diverse dialoge mit OK oder ABBRuCH beednet wurden. in meinem fall benötige ich folgendes. möchte mit (command ._PAGESETUP ) den dialog für das seite-einrichten starten. wenn der benutzer OK gedrückt hat, möchte ich die eingestellten werte (pc3-datei, format, zoom grenzen usw.) auslesen und abspeichern. damit kann ich in zukunft, wenn er den gleichen zeichnungsrahmen einfügt (programm gesteuert) diese werte voreinstellen lernbarer plot-dialog leider weiss ich nicht ob er ok ...
|
| In das Form AutoLisp wechseln |
|
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
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Teilstring ausfiltern
fuchsi am 10.11.2003 um 08:26 Uhr (0)
muss helmut recht geben (print (vl-filename-base D:userdwg_sTEST.TXT )) ; ergibt TEST (print (vl-filename-directory D:userdwg_sTEST.TXT )) ; ergibt D:userdwg_s (print (vl-filename-extension D:userdwg_sTEST.TXT )) ; ergibt .EXE ------------------ *********************************************** AutoCad 2000i, 2002, 2004 deutsch und englisch Windows 2000, NT, XP
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Schnittpunkt Gerade Kreis
fuchsi am 11.11.2003 um 11:54 Uhr (0)
sind die beiden objekte bereits gezeichnet ?? dann geht es so (setq a1 (vlax-ename- vla-object (car (entsel)))) ; 1. wählen (setq a2 (vlax-ename- vla-object (car (entsel)))) ; 2.wählen (setq ret (vlax-invoke a1 IntersectWith a2 acExtendBoth)) ; schnittpunkt(e) ergibt z.B.: bei angehängtem JPG (4.79101 7.81705 0.0 7.89297 3.85528 0.0) ------------------ *********************************************** AutoCad 2000i, 2002, 2004 deutsch und englisch Windows 2000, NT, XP
|
| In das Form AutoLisp wechseln |
|
AutoLisp : AddRegion
fuchsi am 11.11.2003 um 12:09 Uhr (0)
VLA-ADDREGION möchte keinen auswahlsatz, sondern ein savearray gefüllt mit acad-objekten kurzes beispiel, ich gehe davon aus, dass der auswahlsatz nur ein element enthält (setq ss (ssget)) :: auswahlsatz erstellen (setq pl (vlax-ename- vla-object (ssname ss 0))) ; das erste element umwadndeln in ein VLA-Object (setq va (vlax-make-safearray vlax-vbObject (0 . 0))) ; savearray erstellen (vlax-safearray-put-element va 0 pl) ; saearray füllen mit VLA-Object (vla-addregion (vla-get-modelspace (vla-get-a ...
|
| In das Form AutoLisp wechseln |
|
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 ...
|
| In das Form AutoLisp wechseln |
|
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
|
| In das Form AutoLisp wechseln |
|
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
|
| In das Form AutoLisp wechseln |
