License delivery maintenance is planned for Saturday, July 26, between 12:00 and 20:00 CEST. During this time, you may experience outages or limited availability across our services, including BIMcloud SaaS, License Delivery, Graphisoft ID (for customer and company management), Graphisoft Store, and BIMx Web Viewer. More details…
2020-11-24
08:20 PM
- last edited on
2021-09-15
09:29 AM
by
Noemi Balogh
Solved! Go to Solution.
2020-11-25 02:30 AM
If GLOB_SCRIPT_TYPE = 2 or GLOB_SCRIPT_TYPE = 3 or GLOB_SCRIPT_TYPE = 4 or GLOB_SCRIPT_TYPE = 5 then _nComponents = 0 dim _componentTypes[] n = REQUEST{2} ("Profile_components", myProfileIdx, _nComponents, _componentTypes) n2 = REQUEST ("Profile_default_boundingbox", myProfileIdx, _xMin, _yMin, _xMax, _yMax) n3 = REQUEST{4} ("Profile_component_info", myProfileIdx, _nComponents, "gs_profile_surface", bMat_profile) If GLOB_SCRIPT_TYPE <> 5 then If rafPro = "Complex" then ProWidth = abs(_xMax - _xMin) ProHeight = abs(_yMax - _yMin) SquareV2 = ProHeight / ( cos(phi) ) endIf endIf if n then dim _bShowPart[] _needRequestDetails = 0 for _i = 1 to _nComponents _bShowPart[_i] = 1 if GLOB_STRUCTURE_DISPLAY = 1 AND _componentTypes[_i] <> COMPTYPE_CORE then _bShowPart[_i] = 0 ! GLOB_STRUCTURE_DISPLAY: 0 – entire structure, 1 – core only, 2 – without finishes if GLOB_STRUCTURE_DISPLAY = 2 AND _componentTypes[_i] = COMPTYPE_FINISH then _bShowPart[_i] = 0 if _bShowPart[_i] then _needRequestDetails = 1 next _i if _needRequestDetails then dim _profileGeometryRawData[] n = REQUEST ("Profile_default_geometry", myProfileIdx, _profileGeometryRawData) ! n1, n2, ..., nn, x11, y11,s11 dim _contStartPoints[] dim _contEndPoints[] _contStartPoints[1] = _nComponents + 1 for _i = 2 to _nComponents _contStartPoints[_i] = _contStartPoints[_i - 1] + _profileGeometryRawData[_i - 1] * 5 _contEndPoints[_i-1] = _contStartPoints[_i] - 1 next _i _contEndPoints[_nComponents] = vardim1(_profileGeometryRawData) endif endif endif
AC22-28 AUS 3110 | Help Those Help You - Add a Signature |
Self-taught, bend it till it breaks | Creating a Thread |
Win11 | i9 10850K | 64GB | RX6600 | Win11 | R5 2600 | 16GB | GTX1660 |
2020-11-25 02:30 AM
If GLOB_SCRIPT_TYPE = 2 or GLOB_SCRIPT_TYPE = 3 or GLOB_SCRIPT_TYPE = 4 or GLOB_SCRIPT_TYPE = 5 then _nComponents = 0 dim _componentTypes[] n = REQUEST{2} ("Profile_components", myProfileIdx, _nComponents, _componentTypes) n2 = REQUEST ("Profile_default_boundingbox", myProfileIdx, _xMin, _yMin, _xMax, _yMax) n3 = REQUEST{4} ("Profile_component_info", myProfileIdx, _nComponents, "gs_profile_surface", bMat_profile) If GLOB_SCRIPT_TYPE <> 5 then If rafPro = "Complex" then ProWidth = abs(_xMax - _xMin) ProHeight = abs(_yMax - _yMin) SquareV2 = ProHeight / ( cos(phi) ) endIf endIf if n then dim _bShowPart[] _needRequestDetails = 0 for _i = 1 to _nComponents _bShowPart[_i] = 1 if GLOB_STRUCTURE_DISPLAY = 1 AND _componentTypes[_i] <> COMPTYPE_CORE then _bShowPart[_i] = 0 ! GLOB_STRUCTURE_DISPLAY: 0 – entire structure, 1 – core only, 2 – without finishes if GLOB_STRUCTURE_DISPLAY = 2 AND _componentTypes[_i] = COMPTYPE_FINISH then _bShowPart[_i] = 0 if _bShowPart[_i] then _needRequestDetails = 1 next _i if _needRequestDetails then dim _profileGeometryRawData[] n = REQUEST ("Profile_default_geometry", myProfileIdx, _profileGeometryRawData) ! n1, n2, ..., nn, x11, y11,s11 dim _contStartPoints[] dim _contEndPoints[] _contStartPoints[1] = _nComponents + 1 for _i = 2 to _nComponents _contStartPoints[_i] = _contStartPoints[_i - 1] + _profileGeometryRawData[_i - 1] * 5 _contEndPoints[_i-1] = _contStartPoints[_i] - 1 next _i _contEndPoints[_nComponents] = vardim1(_profileGeometryRawData) endif endif endif
AC22-28 AUS 3110 | Help Those Help You - Add a Signature |
Self-taught, bend it till it breaks | Creating a Thread |
Win11 | i9 10850K | 64GB | RX6600 | Win11 | R5 2600 | 16GB | GTX1660 |
2020-11-25 04:07 PM
Lingwisyer wrote:Check out this thread: Profiles in GDL.
There is a sample object somewhere by Graphisoft, but it appears to be alluding me...
2020-12-03 08:32 PM
Lingwisyer wrote:
There is also an object shared in this thread which is in regards to having multipleComplex Profilesin a single object.
2020-12-04 02:24 AM
If GLOB_SCRIPT_TYPE <> 5 then If rafPro = "Complex" then ProWidth = abs(_xMax - _xMin) ProHeight = abs(_yMax - _yMin) SquareV2 = ProHeight / ( cos(phi) ) endIf endIf
AC22-28 AUS 3110 | Help Those Help You - Add a Signature |
Self-taught, bend it till it breaks | Creating a Thread |
Win11 | i9 10850K | 64GB | RX6600 | Win11 | R5 2600 | 16GB | GTX1660 |