I want to add more variable values on a handicapped parking area object

soo — Wed, 19 Jun 2024 09:27:21 GMT

Hello, everyone.

I'm making a handicapped parking area object.

I've learned how to grid the parking area from the basic object of Archicad 27 now.

but I wanna put more options into this object.

right now, I just put a thickness of line.

i wanna put two more parameters A, B for thickness of line and empty space for a wide range of applications

if GLOB_SCRIPT_TYPE = 2 then edgeStatus = 1 else edgeStatus = 15 endif goto "master_end" "detailed empty points": _innerA = A - 2 * lineWidth _innerB = B - 2 * lineWidth _widthonLine = sqr(2) * lineWidth _segmentNum = int((_innerA + _innerB) / _widthonLine) + 1 dim rightPoints[][] dim leftPoints[][] for i = 1 to _segmentNum rightPoints[i][1] = 0 rightPoints[i][2] = 0 leftPoints[i][1] = 0 leftPoints[i][2] = 0 next i rightPoints[1][1] = lineWidth + EPS rightPoints[1][2] = lineWidth + EPS leftPoints[1][1] = lineWidth + EPS leftPoints[1][2] = lineWidth + EPS _side = 1 _rightCornerPoint = -1 _leftCornerPoint = -1 for i = 2 to _segmentNum if _side = 1 then if (rightPoints[i-1][1] + _widthonLine) - (_innerA + lineWidth) < 0 | \ abs((rightPoints[i-1][1] + _widthonLine) -_innerA) < EPS then rightPoints[i][1] = rightPoints[i-1][1] + _widthonLine rightPoints[i][2] = lineWidth else _side = 2 _rightCornerPoint = i rightPoints[i][1] = _innerA + lineWidth rightPoints[i][2] = _widthonLine - (_innerA - rightPoints[i-1][1]) endif else rightPoints[i][1] = _innerA + lineWidth rightPoints[i][2] = rightPoints[i-1][2] + _widthonLine endif next i _side = 1 for i = 2 to _segmentNum if _side = 1 then if (leftPoints[i-1][2] + _widthonLine) - (_innerB + lineWidth) < 0 | \ abs((leftPoints[i-1][2] + _widthonLine) - (_innerB + lineWidth)) < EPS then leftPoints[i][2] = leftPoints[i-1][2] + _widthonLine leftPoints[i][1] = lineWidth else _side = 2 _leftCornerPoint = i leftPoints[i][1] = _widthonLine - (_innerB - leftPoints[i-1][2]) leftPoints[i][2] = _innerB + lineWidth endif else leftPoints[i][1] = leftPoints[i-1][1] + _widthonLine leftPoints[i][2] = _innerB + lineWidth endif next i if abs(rightPoints[i-1][1] - leftPoints[i-1][1]) > EPS & \ abs(rightPoints[i-1][2] - leftPoints[i-1][2]) > EPS then rightPoints[i][1] = _innerA + lineWidth rightPoints[i][2] = _innerB + lineWidth - EPS leftPoints[i][1] = _innerA + lineWidth - EPS leftPoints[i][2] = _innerB + lineWidth endif put A ! x size put B ! y size _CornerPointNum = 0 for i = 2 to vardim1(rightPoints) step 2 if i = _rightCornerPoint then _CornerPointNum = _CornerPointNum + 1 if i = _leftCornerPoint then _CornerPointNum = _CornerPointNum + 1 next i put 5*(int(vardim1(rightPoints)/2)+1) + _CornerPointNum ! nFistPolyPoints put 0, 0, edgeStatus, A, 0, edgeStatus, A, B, edgeStatus, 0, B, edgeStatus, 0, 0, -1 for i = 2 to vardim1(rightPoints) step 2 put rightPoints[i-1][1],rightPoints[i-1][2], edgeStatus if i = _rightCornerPoint then put A - lineWidth, lineWidth, edgeStatus endif put rightPoints[i][1],rightPoints[i][2], edgeStatus, leftPoints[i][1],leftPoints[i][2], edgeStatus if i = _leftCornerPoint then put lineWidth, B-lineWidth, edgeStatus endif put leftPoints[i-1][1],leftPoints[i-1][2], edgeStatus, rightPoints[i-1][1],rightPoints[i-1][2], -1 next i return "master_end":

<2D SCRIPT>

gosub "detailed empty points" mul2 A/get(1), B/get(1) pen gs_cont_pen fill gs_fill_type while NSP > 0 do nPolyPoints = get(1) poly2_b nPolyPoints, 1+2+4, gs_fill_pen, gs_back_pen, get (nPolyPoints*3) endwhile

I can't find any tips by myself.

Please answer this. thank you.

Re: I want to add more variable values on a handicapped parking area object

Pertti Paasky — Wed, 19 Jun 2024 09:28:48 GMT

I commented one line in the masterscript. and

Looks reasonable now.

Something wrong with put and get statements.

! <MASTER SCRIPT>

EPS=.001 if GLOB_SCRIPT_TYPE = 2 then edgeStatus = 1 else edgeStatus = 15 endif goto "master_end" "detailed empty points": _innerA = A - 2 * lineWidth _innerB = B - 2 * lineWidth _widthonLine = sqr(2) * lineWidth _segmentNum = int((_innerA + _innerB) / _widthonLine) + 1 dim rightPoints[][] dim leftPoints[][] for i = 1 to _segmentNum rightPoints[i][1] = 0 rightPoints[i][2] = 0 leftPoints[i][1] = 0 leftPoints[i][2] = 0 next i rightPoints[1][1] = lineWidth + EPS rightPoints[1][2] = lineWidth + EPS leftPoints[1][1] = lineWidth + EPS leftPoints[1][2] = lineWidth + EPS _side = 1 _rightCornerPoint = -1 _leftCornerPoint = -1 for i = 2 to _segmentNum if _side = 1 then if (rightPoints[i-1][1] + _widthonLine) - (_innerA + lineWidth) < 0 | \ abs((rightPoints[i-1][1] + _widthonLine) -_innerA) < EPS then rightPoints[i][1] = rightPoints[i-1][1] + _widthonLine rightPoints[i][2] = lineWidth else _side = 2 _rightCornerPoint = i rightPoints[i][1] = _innerA + lineWidth rightPoints[i][2] = _widthonLine - (_innerA - rightPoints[i-1][1]) endif else rightPoints[i][1] = _innerA + lineWidth rightPoints[i][2] = rightPoints[i-1][2] + _widthonLine endif next i _side = 1 for i = 2 to _segmentNum if _side = 1 then if (leftPoints[i-1][2] + _widthonLine) - (_innerB + lineWidth) < 0 | \ abs((leftPoints[i-1][2] + _widthonLine) - (_innerB + lineWidth)) < EPS then leftPoints[i][2] = leftPoints[i-1][2] + _widthonLine leftPoints[i][1] = lineWidth else _side = 2 _leftCornerPoint = i leftPoints[i][1] = _widthonLine - (_innerB - leftPoints[i-1][2]) leftPoints[i][2] = _innerB + lineWidth endif else leftPoints[i][1] = leftPoints[i-1][1] + _widthonLine leftPoints[i][2] = _innerB + lineWidth endif next i if abs(rightPoints[i-1][1] - leftPoints[i-1][1]) > EPS & \ abs(rightPoints[i-1][2] - leftPoints[i-1][2]) > EPS then rightPoints[i][1] = _innerA + lineWidth rightPoints[i][2] = _innerB + lineWidth - EPS leftPoints[i][1] = _innerA + lineWidth - EPS leftPoints[i][2] = _innerB + lineWidth endif put A ! x size put B ! y size _CornerPointNum = 0 for i = 2 to vardim1(rightPoints) step 2 if i = _rightCornerPoint then _CornerPointNum = _CornerPointNum + 1 if i = _leftCornerPoint then _CornerPointNum = _CornerPointNum + 1 next i ! put 5*(int(vardim1(rightPoints)/2)+1) + _CornerPointNum ! nFistPolyPoints put 0, 0, edgeStatus, A, 0, edgeStatus, A, B, edgeStatus, 0, B, edgeStatus, 0, 0, -1 for i = 2 to vardim1(rightPoints) step 2 put rightPoints[i-1][1],rightPoints[i-1][2], edgeStatus if i = _rightCornerPoint then put A - lineWidth, lineWidth, edgeStatus endif put rightPoints[i][1],rightPoints[i][2], edgeStatus, leftPoints[i][1],leftPoints[i][2], edgeStatus if i = _leftCornerPoint then put lineWidth, B-lineWidth, edgeStatus endif put leftPoints[i-1][1],leftPoints[i-1][2], edgeStatus, rightPoints[i-1][1],rightPoints[i-1][2], -1 next i return "master_end":

! <2D SCRIPT>

gosub "detailed empty points" mul2 A/get(1), B/get(1) pen gs_cont_pen fill gs_fill_type while NSP > 0 do nPolyPoints = nsp/3 !get(1) poly2_b nPolyPoints, 1+2+4, gs_fill_pen, gs_back_pen, get (nPolyPoints*3) endwhile

topic I want to add more variable values on a handicapped parking area object in GDL

I want to add more variable values on a handicapped parking area object

Re: I want to add more variable values on a handicapped parking area object