We value your input! Please participate in Archicad 28 Home Screen and Tooltips/Quick Tutorials survey
2019-11-12 06:00 AM
for _iComp = 1 to _nComponentsT if _bShowPart[_iComp] then dim _currSurfaces[] n = REQUEST{3} ("Profile_component_info", myProfileIdxT, _iComp, "gs_profile_comp_surfaces", _currSurfaces) _bmat = 1 _surface = 1 _pen = 1 n = REQUEST{3} ("Profile_component_info", myProfileIdxT, _iComp, "gs_profile_bmat", _bmat) n = REQUEST{3} ("Profile_component_info", myProfileIdxT, _iComp, "gs_profile_surface", _surface) n = REQUEST{3} ("Profile_component_info", myProfileIdxT, _iComp, "gs_profile_outlinepen", _pen) building_material _bmat pen _pen _surfIdx = 1 for _i = _contStartPointsT[_iComp] to _contEndPointsT[_iComp] step 5 put _profileGeometryRawDataT[_i], _profileGeometryRawDataT[_i + 1], !0, ! angle of sides from the perpendicular plane _profileGeometryRawDataT[_i + 2] * 15 + not(_profileGeometryRawDataT[_i + 3]) * 64 + _profileGeometryRawDataT[_i + 4], !_currSurfaces[_surfIdx] _surfIdx = _surfIdx + 1 next _i Poly2_b NSP/3, 15, gs_fill_pen2, gs_back_pen2, get(NSP) endif next _iComp
x1, y1, alpha1, s1, mat1, ... xn, yn, alphan, sn, matn
AC22-23 AUS 7000 | Help Those Help You - Add a Signature |
Self-taught, bend it till it breaks | Creating a Thread |
Win11 | i9 10850K | 64GB | RX6600 | Win10 | R5 2600 | 16GB | GTX1660 |