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 |