This helped me a great deal. Thanks. In case some others came across this, I wanted to share a change that I made. I was not happy with the busing being drawn as the pipe OD. It simply is incorrect. In the spec there is a property called FLATS. This is the dimension across the flats. I wanted to draw the cylinder that diameter rather than just the pipe OD. Add this code under Dim engageLength As Double: Dim flatDia As Double '// Get Flat dim from spec Add this code under status = at_Component_getVector (port2Dir, compID, "Port2.Dir"): Status = AT_Component_getReal (flatDia, compID, "FLATS") Comment out: '//CADObj = at_CADCylinder_create(pipeOD/2, portPos(0), portPos(1), flag) Add this code: CADObj = at_CADCylinder_create(flatDia/2, portPos(0), portPos(1), flag) '// Read Flat dia for drawing cylinder
↧