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（只选择parts,其他一概不要选）; (Chr(13)) _4. 如果在begin对话框之后还出现select filter,请手动选择display properties; (Chr(13)) _5. 该宏在orcad capture 10.3及winxp下测试通过,其他情况未测试 (Chr(13)) _6. 请确保您使用的电阻电容形状和大小类似Capture库中的相应元件,并注意它们在库中的 (Chr(13)) _?? 原始图形是垂直放置的,即印脚在上下位置,而不是左右位置 (Chr(13)) _7. 本程序假设R*,r*,L*,l*,C*,c*与Caputre的Discrete.olb中的R,C外形大致相似; (Chr(13)) _?? 其他字母开头的统一当作矩形行状的元件处理,其Part Refrence和Value置上。 (Chr(13)) _8. 为防止出错死循环,本宏中设置了页面最大元件数为500; (Chr(13)) _9. 请在Option-preference-select下设置选择方式为interselect,并确定； (Chr(13)) _10.请在Option-schematic Page Properties-page size下选择inch， (Chr(13)) _?? 并确保您的原理图尺寸小于43X33 (Chr(13)) _11.程序运行期间，请不要动键盘和鼠标，以免程序出错产生数据破坏； (Chr(13)) _12.请确保您在运行该程序之前做好了备份,如有数据丢失或损坏,概不负责 (Chr(13))Msg = Msg (Chr(13)) ?? 您确认要继续吗?DgDef = MB_OKCANCEL???? Describe dialog.Response = MsgBox(Msg, DgDef, Title)??? Get user response. If Response = IDCANCEL Then??????? MsgBox 退出程序！??????? Exit SubElse??? action.End If Dim ExitLoop As Integer??? ExitLoop = 0Dim partName As StringDim TxtFileName As String??????? TxtFileName = c:\test.txtDim PartLocX As StringDim PartLocY As String Dim ReturnValue As Integersometimes the following is ok,sometimes is unvalid :(SendKeys %vfa{TAB 2} {enter}, True??? popup a select filter dialo and set parts filter Msg = 如果您刚才看到了select filter对话框,而您没有只选择Parts, (Chr(13)) _建议您立刻退出,否则可以继续！Response = MsgBox(Msg, DgDef, 您要继续吗？)?? Get user