【转帖】custom properties

yang686526

custom properties
please advise how can one write the x & y cordinates of a sketch point as custom properties.(see code below) i would like custom properties of the x & y cordinates to be shown on the drawing of the part.is it possible to values to be shown as follows:
start point
x - xxxx (x co-ordinate)
y - xxxx ( y co-ordinate)
also, is it possible to write the x & y co-ordinates of more than one point as custom properties/
option explicit
dim swapp as sldworks.sldworks
dim part as modeldoc2
dim measure as measure
dim boolstatus as boolean
sub main()
set swapp = application.sldworks
set part = swapp.activedoc
set measure = part.extension.createmeasure
dim strdisplay as string
boolstatus = measure.calculate(nothing)
if (boolstatus) then
if (not (measure.x = -1)) then
debug.print "x coordinate: " & measure.x
end if
if (not (measure.y = -1)) then
debug.print "y coordinate: " & measure.y
end if
if (not (measure.deltax = -1)) then
debug.print "deltax: " & measure.deltax
end if
if (not (measure.deltay = -1)) then
debug.print "deltay: " & measure.deltay
end if
end sub
feroz mahomed
windows xp professional sp2
sworks 2009 sp2
nvidia quadro fx1500