OrCAD capture TCL script to find pin names of a component

Assuming, that the lInst in your example holds a pointer acquired from calling the NextPartInst method
and lStatus holds a pointer acquired from calling the DboState method
and, if the pin names or pin numbers are all you are after, then for example:

set result [list]
set count [$lInst GetPinCount $lStatus]
for {set index 0} {$index < $count} {incr index} {
    set portInst [$lInst GetPin $index $lStatus]
    set pName [DboTclHelper_sMakeCString]; 
    set pNumber [DboTclHelper_sMakeCString];
    $portInst GetPinName $pName; 
    $portInst GetPinNumber $pNumber; 
    lappend result [list [DboTclHelper_sGetConstCharPtr $pNumber] [DboTclHelper_sGetConstCharPtr $pName] ]
}

puts $result

How to get pin position and pin type?
There is function "GetPinType"and "GetPinPosition"
But how to use it to get position and type?

# relating to the variables from the previous example:

set pinTypeText {}

switch [$portInst GetPinType $lStatus] $::DBO_IN {
    set pinTypeText IN
} $::IO {
    set pinTypeText IO
} $::DBO_OUT {
    set pinTypeText OUT
} $::OC {
    set pinTypeText OC
} $::PAS {
    set pinTypeText PAS
} $::HIZ {
    set pinTypeText HIZ
} $::OE {
    set pinTypeText OE
} $::POWER {
    set pinTypeText POWER
}

puts $pinTypeText

set ordinalPositionOfThePin [$portInst GetPinPosition $lStatus]; # it's just an integer

Thanks for the quick reply.. How to get x and y location of the pins?

# you'll need both starting point and the hotspot

set lStartPoint [$portInst GetStartPoint $lStatus]
set lStartPointX [DboTclHelper_sGetCPointX $lStartPoint]
set lStartPointY [DboTclHelper_sGetCPointY $lStartPoint]


set lHotSpot [$portInst GetHotSpot $lStatus]
set lHotSpotX [DboTclHelper_sGetCPointX $lHotSpot]
set lHotSpotY [DboTclHelper_sGetCPointY $lHotSpot]

puts "The pin starts at ( $lStartPointX, $lStartPointY ) and connects at ( $lHotSpotX, $lHotSpotY )"

Thanks

Thanks