EDA365电子工程师网

标题: axlCompDeletePin axlCompAddPin在allegro16.x版本中能执行吗 [打印本页]

作者: wang66jin 时间: 2016-6-23 17:56
标题: axlCompDeletePin axlCompAddPin在allegro16.x版本中能执行吗
axlCompDeletePin  axlCompAddPin在allegro16.x版本中能执行吗？试了一下，没啥反映啊。

axlCmdRegister( "changepinnumber" `changepinnumber )
defun( changepinnumber ()

axlSetFindFilter( ?enabled (list "pins" ) ?onButtons (list "pins"))
axlClearSelSet()
axlMsgPut( " %L " "#####  Please select one Pin  #####")
pin1_dbid_list = nil
while( pin1_dbid_list == nil
pin1_dbid_list = axlGetSelSet(axlSingleSelectPoint())
)
pin1_dbid = car(pin1_dbid_list)
pin1_xy = pin1_dbid->xy
axlMsgPut( "DBID %L " pin1_dbid)
axlMsgPut( "XY %L " pin1_xy)
axlHighlightObject(pin1_dbid)
   DELE = axlCompDeletePin(pin1_dbid)
   axlMsgPut( "PIN %L " DELE)

axlMsgPut( " %L " "#####  Please select one symbol  #####")
axlClearSelSet()
axlSetFindFilter( ?enabled (list "symbols" ) ?onButtons (list "symbols"))
axlClearSelSet()
sym_dbid_list = nil
while( sym_dbid_list == nil
sym_dbid_list = axlGetSelSet(axlSingleSelectPoint())
)
sym_dbid = car(sym_dbid_list)
list1 = list("UNSPEC" 0 pin1_xy 0)
list2 = list(25 "25" "GND" "SMD_S787P0S40")
list3 = list("GND" "SMD_S787P0S40")
list4 = list(list1 list2 list3)
      axlCompAddPin(sym_dbid t list4)
)

欢迎光临 EDA365电子工程师网 (http://bbs.elecnest.cn/)