skill: shape copy 没有成功, 问题 在哪?

Quantum_

axlCmdRegister("CBcopyShape" 'CBcopyShape)     ; register command name
defun(CBcopyShape ()                                         ; define function
    axlClearSelSet()
    SelectBndShape = axlDBGetShapes("PACKAGE GEOMETRY/PLACE_BOUND_TOP")     ; get the shape on "PACKAGE GEOMETRY/PLACE_BOUND_TOP"
    SetSelectBndShape = axlGetSelSet()                                                                    ; Gets the list of object dbids in the select set
    PolyBndShape = axlPolyFromDB(SetSelectBndShape)                                             ; get the poly of bounding shape)
    ExpAsmShape = axlDBCreateShape(PolyBndShape, t, "PACKAGE GEOMETRY/ASSEMBLY_TOP")    ; Create the shape on Assembly top
); end of function 'CBcopyShape'

以上function 本想实现 shape 的copy,

但是实际结果, 并没有生成新的shape. 问题出在哪?



谢谢先!

nevadaooo

allegro不是可以Z-COPY吗

BKS

我也来学习下、