I want to take out the starting point and ending point of the length dimension in the VBA of IJCAD

Unfortunately, IJCAD's VBA cannot get the start and end points of GcadDimRotate.I can't get it with AutoCAD's AcadDimRotate, so I can only say the specification.

The workaround might be to proceed with development on VB.Net or GRX instead of VBA, create modules with .Net API or GRX and call them from VBA, or to find the starting point from the line obtained by temporarily breaking down the length dimensions (Explode).

I think it is strange that the rotational dimension object does not have the ExtLine1Point and ExtLine2Point properties.

Coordinate values for starting and ending rotational dimensions can be obtained from 13 and 14 of the graphic list.

 (setqel(entget(car(entsel)))))

Prepare a function to string coordinate values

 (defunptos(p) 
  (strcat(rtos(carp))", "(rtos(cadrp))", "(rtos(caddrp)))))))

Save the stringed coordinate values in the system variable USERS1

 (setvar "USERS1" (ptos(cdr(assoc13el)))))

You can also retrieve it from the VBA.

Dim text As String
text=ThisDrawing.GetVariable("USERS1")

You can also pass coordinate values between LISP and VBA by providing extended data or XRECORD in the drawing.