Orcad中调整Value及partreference位置的宏.docVIP

Sub AdjustPartsPropsLocation()? MACROMENU AdLoc? MACROKEY CTRL+P? MACRODESCRIPTION Auto adjust Location of Parts display propertiesSelectObject -52.32, -20.83, FALSESelectObject -14.22, -1.02, FALSEConst MB_OKCANCEL = 1?? Define buttons.Const vbOKOnly = 0Const IDCANCEL = 2Const MaxNumOfParts = 500 Dim DgDef, Msg, Response, Title Declare variables.Title = 注意:kurbylee@21Msg = 1. 该宏将自动调整原理图页面中元件的Part Refrence和Value的位置； (Chr(13)) _2. 该宏将自动创建C:\test.txt文件,如果该文件存在,其内容将被覆盖； (Chr(13)) _3. 该程序正常情况下首先弹出一个对话框 begin,如果在该begin出现之前orcad弹出 (Chr(13)) _?? Select filter 请手动选择：parts（只选择par