|
AutoLisp : Variable in Datei schreiben
CADwiesel am 08.07.2003 um 12:33 Uhr (0)
;;schreiben (setq a (getvar insbase )) (setq dat(open c:sysvar.txt w )) (princ a dat) (close dat) ;;lesen (setq dat(open c:sysvar.txt r )) (setq tt(read-line dat)) (close dat) (setvar insbase (read tt)) ------------------ Gruß CADwiesel bin auch im Urlaub: 29.07 - 27.08
|
| In das Form AutoLisp wechseln |
|
AutoLisp : GC10 mit nentsel in
CADwiesel am 10.07.2003 um 13:12 Uhr (0)
Was kommt denn raus, wenn du den Einfügepunkt des Blockes dazuaddierst? ------------------ Gruß CADwiesel bin auch im Urlaub: 29.07 - 27.08
|
| In das Form AutoLisp wechseln |
|
AutoLisp : GC10 mit nentsel in
T. Bürger am 10.07.2003 um 14:08 Uhr (0)
Hallo Cadwiesel, geht es nicht anders? Der bzw. die Blöcke sind mal gedreht und mal nicht. Das wird dann mit dem dazurechnen nicht ganz so einfach. ------------------ Grüße T. Bürger
|
| In das Form AutoLisp wechseln |
|
AutoLisp : winkel von linien
CADwiesel am 17.07.2003 um 13:50 Uhr (0)
GC 50 findest du bei Blöcken aber meines bescheidenen Wissens nicht in einfachen geometrischen Elementen ------------------ Gruß CADwiesel bin auch im Urlaub: 29.07 - 27.08
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Layerschlüssel in ACAD-Mechanical
CADwiesel am 16.07.2003 um 08:38 Uhr (0)
Ich habe zwar keine Ahnung von Mecanicel, aner ich tippe mal darauf, das das genauso gemacht wird wie das anlegen von Layerständen mit dem Lman in acad (express)oder den Filtern Was sagt denn der GC -3 eines Layers? ------------------ Gruß CADwiesel bin auch im Urlaub: 29.07 - 27.08
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Layerschlüssel in ACAD-Mechanical
CADwiesel am 16.07.2003 um 09:50 Uhr (0)
Es ist nur verständlich, dass alle Informationen in der Zeichnung in irgendeiner Form gespeichert werden - wo auch sonnst? Nur bringt dir das betrachten einer dwg - mit ne Hex-editor überhaupt nix. Du musst schließlich an die Infos per (v)lisp ran. Ich vermute immernoch sehr stark, dass die Informationen im GC -3 enthalten sind. Nimm mal einige Lisp s, die den auslesen, oder sich mit Layern beschäftigen und lass sie mal im debuggmodus laufen. ------------------ Gruß CADwiesel bin auch im Urlaub: 29 ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Layerschlüssel in ACAD-Mechanical
CADwiesel am 16.07.2003 um 12:55 Uhr (0)
Sieh dir das mal an: (defun C:RemLayerFilters (/ eprLayFilt lstTemp lstFilters enaFilter) (setq eprLayFilt (entget (cdr (assoc 360 (entget (cdr (assoc 360 (entget (cdr (assoc 330 (entget (tblobjname LAYER 0 )))))))))))) (foreach lstTemp eprLayFilt (if (= (car lstTemp) 360) (progn (princ lstTemp) (setq lstFilters (append lstFilters (list (cdr lstTemp)))) ) ) ) (if lstFilters (foreach enaFilter lstFilters (entdel enaFilter)) ) (princ) ) (defun C ELFIL ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Layerschlüssel in ACAD-Mechanical
CADwiesel am 18.07.2003 um 08:58 Uhr (0)
Proxys? Schonmal die Suche bemüht? oder bei mir geckuckt? killproxy! ------------------ Gruß CADwiesel bin auch im Urlaub: 29.07 - 27.08
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Layerschlüssel in ACAD-Mechanical
TK_KE am 18.07.2003 um 13:37 Uhr (0)
Zitat: Original erstellt von CADwiesel: Proxys? Schonmal die Suche bemüht? oder bei mir geckuckt? killproxy! ...... aber sicher doch!!!! Ich habe mich wohl auch ein bißchen unglücklich ausgedrückt! Also : Die ganzen Layerschlüssel werden won der Anwendung amglay.arx erstellt ( Bestandteil von Mechanical )und auch in der Zeichnung mit abgespeichert. Mechanical liefert ja auch eine im Dialog integrierte Funktion zum Importieren dieser Einstellungen aus einer anderen Zeichnung..... ... Mit AMl ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : farbe ändern die soundsovielte
CADwiesel am 21.07.2003 um 12:59 Uhr (0)
Du musst glaube ich den gc 62 erst nach dem Layer GC 8 einfügen musst also eine Neue Liste bilden. Teil1 bis einschließlich GC8 dann den GC 62 dann den Rest (reverse bis GC 8 ) und dann entmoden Sieh dir mal mein Einefarb an. ------------------ Gruß CADwiesel bin auch im Urlaub: 29.07 - 27.08
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Zeichenkette entfernen
CADwiesel am 28.07.2003 um 14:35 Uhr (0)
(substr trallala.gtr 1 (- (strlen trallala.gtr ) 4)) ------------------ Gruß CADwiesel bin auch im Urlaub: 29.07 - 27.08
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp Problem...
CADwiesel am 01.09.2003 um 08:21 Uhr (0)
@sonnen4tel Willkommen im Forum. Du solltest dein Lisp Prog mal im Vlide-Editor Debuggen und mal die Variablen und Rückgaben überwachen. dan hast du den Fehler sicherlich schnell entdeckt. Da du ja auch schon lange im Geschäft bist, dürfte das eigentlich schnell erledigt sein. @Safa In der Autocadversion 2000 (R15) hat sich schon einiges gegenüber der R14 geändert. Ich wage mal einen Schuss ins Blaue dein Lisp arbeitet mit command Befehlen, die nicht an die 2000 angepasst wurden. bei einigen Befehlen mus ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Block modifizieren
CADwiesel am 02.09.2003 um 07:46 Uhr (0)
hier mal was von RoteSauce in Vlisp (defun ax eleteObjectFromBlock (ent / doc blk) (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)) ent (vlax-ename- vla-object ent) blk (vla-ObjectIdToObject doc (vla-get-OwnerID ent)) ) (vla-Delete ent) (vla-get-Count blk) ) (defun ax:AddObjectsToBlock (blk ss / doc blkref blkdef inspt refpt) (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)) blkref (vlax-ename- vla-object blk) blkdef (vla-Item (vla-get-Blocks doc) (vla-get-Name blkref)) in ...
|
| In das Form AutoLisp wechseln |
