请版主帮我下问题,出哪?现在创建不了shape
while(notdone
lpins = axlGetSelSet(axlSelect(?prompt "Select Pins to convert to a golden shape."))
if(lpins then
foreach(pindbid lpins
pindbid = car(lpins)
layer = "ETCH/L7"
polydbid = axlPolyFromDB(pindbid ?endCapType "ROUND")
if(polydbid then
axlDeleteObject(pindbid)
if(! axlDBCreateShape(car(polydbid) t layer) then
axlUIWPrint(nil "** Error. Failed to create Shape from Pin. **")
); endif
if(cadr(polydbid) then
axlDBCreateShape(cadr(polydbid) t layer) )
else
axlUIWPrint(nil "** Error. Failed to create Polydbid from Pin. **")
); endif
); end foreach pin
); endif
); end while作者: deargds 时间: 2013-5-28 13:07