ā2011-11-30 02:46 PM
ii=REQUEST ("HomeDB_info", "", mi_ID, mi_LayoutNumber, mi_LayoutName, mi_context)
...
mi_SheetStyleStr = ''
PARAMETERS mi_SheetStyleStr = STRSUB(mi_LayoutNumber, 1, 4)
PARAMETERS mi_DwgNumLen = STRLEN(mi_DwgNum)
! mi_SheetStyle Values
! 1 = Documentation
! 2 = DA
! 3 = Sketch
! 4 = Feasibility
IF STRLEN(mi_DwgNum) = 9 THEN PARAMETERS mi_SheetStyle = 1
IF STRLEN(mi_DwgNum) = 12 THEN
IF STRSTR (mi_LayoutNumber, "DA") > 0 THEN PARAMETERS mi_SheetStyle = 2
IF STRSTR (mi_LayoutNumber, "SK") > 0 THEN PARAMETERS mi_SheetStyle = 3
IF STRSTR (mi_LayoutNumber, "FE") > 0 THEN PARAMETERS mi_SheetStyle = 4
ENDIF
IF STRLEN(mi_DwgNum) <> 9 AND STRLEN(mi_DwgNum) <> 12 THEN PARAMETERS mi_SheetStyle = 1
There is probably a more elegant way of doing the last bit but it works for the moment.ā2011-11-30 10:43 PM
IF STRLEN(mi_DwgNum) = 9 THEN mi_SheetStyle = 1 PARAMETERS mi_SheetStyle = mi_SheetStyle ENDIFI think, you do not need to set parameters to pass them to a macro; in my opinion you can pass variables to the macro as well.
ā2011-12-01 12:36 AM
ā2011-12-01 06:33 PM