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 = 1There 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