Seite 1 von 1
fläche extrudieren
Verfasst: Fr 10. Feb 2006, 00:10
von reskq
hi bin student und versuche mich gearde an auto lisp steh gerade vor einem problem
habe eine 2 dimensionale fläche und will daraus nun eine 3 d objekt machen sprich die fläche um eine z koordinate erweitern
die ich dann halt selber eingeben kann
wie geh ich das problem am besten an würde mich freuen eine schnelle anwort zu erhalten
Verfasst: Fr 10. Feb 2006, 07:49
von CADwiesel
Ich will mal nicht so genau auf deine zusammengewürfelten Anforderungen eingehen.
um einer Fläche (ich mutmaße mal: das es sich um eine geschlossene Polylinie handelt) eine Objekthöhe zu geben, musst du den dxf code 39 der Polylinie verändern. Bspl (39 . 10.0) wäre eine Objekthöhe von 10 einheiten.
Verfasst: Fr 10. Feb 2006, 18:48
von reskq
gut da ich wie du bestimmt schon gemerkt hast absoluter anfänger bin würde mich interessieren wie das genau geht quelltxt oder sowas thx
Verfasst: Sa 11. Feb 2006, 13:48
von CADwiesel
Hier mal was zum üben
Code: Alles auswählen
(defun c:objhoch ( / elem elems objekthoehe)
(if (setq elems (ssget))
(progn
(setq objekthoehe(getint "\nNeue Objekthöhe: "))
(repeat (sslength elems)
(if(assoc 39(setq elem(entget(ssname elems 0))))
(entmod(subst (cons 39 objekthoehe)(assoc 39 elem)elem))
(entmod(append(reverse(cdr(member (assoc 10 elem)(reverse elem))))(list(cons 39 objekthoehe))(member (assoc 10 elem)elem)))
)
(setq elems (ssdel(ssname elems 0)elems))
)
)
)
)