|
AutoLisp : (dxf 5) Handle ändern wg. Attout/Attin
CADwiesel am 05.06.2003 um 13:20 Uhr (0)
Hai Ich denke Dein Vorhaben wird sich so nicht ändern lassen, Da du meines Wissens NICHT den GC 5 ändern kannst. Du bist doch mit sicherheit viel schneller Fertig, wenn du dir ein eigense attout/attin prog schreibst. Das kannst du dann ja genau auf Deine Bedürfnisse zurechtschnitzen. Zu dieser Geschichte gibt s ja auch einiges an Bausteinen im Netz :-) ------------------ Gruß CADwiesel
|
| In das Form AutoLisp wechseln |
|
AutoLisp : (dxf 5) Handle ändern wg. Attout/Attin
CADwiesel am 05.06.2003 um 17:21 Uhr (0)
sach mal - wie oft gibt s denn den zu ändernden Block in der Zeichnung? und soll denn in den Attributen aller gleichnamigen Blöcken das gleiche rein? Wenn es nur um globales Ausfüllen von Att in Blöcken geht, mach das doch mit entmod Such über nen ssget AWS alle betreffenden Blöcke raus, geh mit entnext in die Teile Rein, und ersetze Die Attributwerte durch gen neuen Wert. Du kannst ja vorher ne ascii-datei erstellen, worin die Attributnamen mit den neuen Werten stehen. Die liest du per Read-line ein u ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : klick in A-Fenst./code starten
CADwiesel am 03.07.2003 um 15:35 Uhr (0)
Grundsätslich ist das über einen Reaktor möglich, ich würde aber trotzdem eine andere Programmierung vorziehen(Button, oder Funktionstaste, o.ä.) ------------------ Gruß CADwiesel
|
| In das Form AutoLisp wechseln |
|
AutoLisp : klick in A-Fenst./code starten
pan am 03.07.2003 um 18:20 Uhr (0)
Vielen Dank Cadwiesel, ja mit dem nächsten Button wird die Zeile sowieso aktualisiert. Aber ich hätt gerne vorher schon. Kannst Du vielleicht noch sagen welche Reaktoren das wären. Gruß Pan und einen schönen Urlaub
|
| In das Form AutoLisp wechseln |
|
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 |
