axlCompDeletePin axlCompAddPin在allegro16.x版本中能执行吗

wang66jin

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)               
)