Wir schätzen Ihren Input! Bitte nehmen Sie an der Umfrage zu Archicad 28 Startbildschirm und Lerninhalte/Schnell-Tutorials teil
am 2013-01-21 09:09 PM
gosub 1 ! Einstellungen usw.
gosub 100 ! Hotspots
gosub "Cylinder"
end ! ------------------------------------------------------
1:
uid = 1
return
100 : !!! ========== Hotspots ein Segment ==========
!!! ----- x -----
hotspot 0 , y, z, uid, x, 1+128 : uid = uid+1 ! base
hotspot -1 , y, z, uid, x, 3 : uid = uid+1 ! ref
hotspot x , y, z, uid, x, 2 : uid = uid+1 ! move
!!! ----- y -----
hotspot x , 0, z, uid, y, 1+128 : uid = uid+1
hotspot x , -1, z, uid, y, 3 : uid = uid+1
hotspot x , y, z, uid, y, 2 : uid = uid+1
!!! ----- z -----
hotspot x , y, 0, uid, z, 1+128 : uid = uid+1
hotspot x , y, -1, uid, z, 3 : uid = uid+1
hotspot x , y, z, uid, z, 2 : uid = uid+1
return
"Cylinder":
h = SQR(x^2+y^2+z^2)
roty 90
rotx -atn(y/x)
roty -atn(z/SQR(x^2+y^2))
material Mat
Cylind h, QRadius
del 3
if Endkugeln = 1 then
sphere QRadius
addx x
addy y
addz z
sphere QRadius
del 3
else
endif
return
am 2013-01-22 11:33 AM
am 2013-01-22 02:58 PM
am 2013-01-25 10:59 AM
am 2013-01-26 07:40 PM
am 2013-01-28 09:41 AM
y2 = (y[k1+1] - y[k1])
if y2 = 0 then y2=EPS