orcad中调整value和partreference位置的宏教学提纲.pdfVIP

精品文档 Sub AdjustPartsPropsLocation() MACROMENU AdLoc MACROKEY CTRL+P MACRODESCRIPTION Auto adjust Location of Parts display properties SelectObject -52.32, -20.83, FALSE SelectObject -14.22, -1.02, FALSE Const MB_OKCANCEL = 1 Define buttons. Const vbOKOnly = 0 Const IDCANCEL = 2 Const MaxNumOfParts = 500 Dim DgDef, Msg, Response, Title Declare variables. Title = 注意 :kurbylee@21 Msg = 1. 该宏将自动调整原理图页面中元件的 Part Refrence 和 Value 的位置； (Chr(13)) _ 2. 该宏将自动创建 C:\test.txt 文件 , 如果该文件存在 , 其内容将被覆盖； (Chr(13)) _