?? font (1).~bas
字號:
Sub Main
Call ResetParameters
RunApplication "D:\\Program Files\\Altium\\pcbhz\\font.exe"
Begin Dialog DialogName1 120, 60, 150, 70, "Chinese String"
TEXT 48, 10, 128, 12, "宏勢公司提示:"
TEXT 24, 30, 118,22, "在對話框TEXT中輸入漢字,點擊OK"
OKBUTTON 52, 54, 50, 12
End Dialog
Dim Dlg1 As DialogName1
Dialog Dlg1
Dim Angle As Integer
Dim Pstx As Integer
Dim Psty As Integer
Dim Path As String
'Open "c:\temp.lgs\data.lgs" For Input As #1 ' Open file.
Angle = Input(3, #1)' Get ten characters.
'Open "file.lgs" For Input As #2
'Line Input #2, TextLine
'Pstx = Input(5, #1)
'Psty = Input(5, #1)
'Close #1 ' Close file.
' Call ResetParameters ' Run the PCB
' Call AddStringParameter ("Format", "Protel PCB 2.8 ASCII File (*.pcb)") ' Export process
' Call AddStringParameter ("Filename", Doc$) ' using the current
' Call RunProcess ("PCB:Export") ' file
ResetParameters
'Call AddStringParameter ("Format", "All files (*.*)")
Call AddStringParameter ("FileName","c:\temp.lgs\hanzi.lib")
'Call RunProcess ("Client:OpenDocument")
'Client:
'Call RunProcess ("Binder:LinkToObject")
' Close #2
'Call RunProcess ("Pcb:AddRemoveLibraryInPCBEditor")
Call AddIntegerParameter("Rotation", Angle )
Call AddStringParameter ("Footprint", "place-han_zi_z" )
Call AddStringParameter ("Designator.Text", " " )
Call AddStringParameter ("Comment.Text", "hz " )
Call RunProcess ("Pcb:Placecomponent" )
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -