|
Rund um Autocad : Erweiterung für Eigenschaftenpinsel
Grebe am 10.11.2006 um 11:34 Uhr (0)
Bin schon mächtig stolz auf mich !!Habe mir aus diversen Code-Schnipseln dies hier zusammen gebastelt:(defun c:layp (/ sa_var1 sa_var2) (if (not (setq sa_var1 (entsel "
Objekt wählen, dessen Layer-Eigenschaften übertragen werden soll:"))) (progn (alert "NIX SELEKTIERT !") (c:layp) ) ) (setq sa_var2 (entget (car sa_var1))) (setq layer (cdr (assoc 8 sa_var2))) (princ "
Ändere Layer auf: ") (princ layer) (princ "
") (princ "
Objekt wählen, dessen Layer gesetzt werden soll:") (while and (setq OBJ(car(nentsel ...
| | In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Schnittgerade zweier Ebenen
Grebe am 13.08.2003 um 16:54 Uhr (0)
Ja ja, die Informationen waren in der Tat etwas dürftig (aber mir war s klar ;-) ) Also ich habe jetzt im Beispiel zwei Ebenen, die durch Höhenlinien repräsentiert werden. Die (auf dem Bildschirm) obere mit Neigung 1:2, die untere mit 1:5. Ich nehme da immer zwei Hilfslinen (hellblau), die dieselbe Neigung wie die Ebenen haben und schiebe dann die dicke hellblaue Hilfslinie solange mittels Objektfang (nächster) entlang diesen beiden Linien, bis sie etwa gleich Z-Koordinaten an Anfang und Ende hat (Differen ...
| | In das Form Rund um Autocad wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
