Цитата(loveman @ Apr 8 2011, 09:30)

Непонятно откуда взять файл с расширением CAE. Как его добавить в Expedition ?.
Никакого файла с раширением CAE не нужно.
Нужно просто сделать файл в который разместить функцию
' Get the application object
Dim pcbApp
Set pcbApp = Application
'Set pcbApp = CreateObject("MGCPCB.ExpeditionPCBApplication")
' Get the active document
Dim pcbDoc
Set pcbDoc = pcbApp.ActiveDocument
pcbDoc.TransactionStart(epcbDRCModeNone)
Dim tr
For Each tr in pcbDoc.Traces
if tr.Anchor = epcbAnchorFixed Then
tr.Anchor = epcbAnchorNone
tr.Anchor = epcbAnchorFixed
elseif tr.Anchor = epcbAnchorLocked Then
tr.Anchor = epcbAnchorNone
tr.Anchor = epcbAnchorLocked
End If
Next
pcbDoc.TransactionEnd
Также в него надо добавить строчки с лицензированием. Иначе при выполнениив Exp возникнет ошибка.
Примеры таких файлов-функций есть в C:\MentorGraphics\7.9EE\SDD_HOME\standard\examples\pcb\Automation\Scripts\
Или попытайтесь сделать это все по аналогии с указанными файлами или читайте книжки по Automation.
Или откройте проект в последнем релизе - там такие проблемы (расфиксации) решены.