Topic: Dimension Inside Rectangle

[REGHUYES]

How to change the below code to draw dimension inside rectangle. Sample image attached .Please help

Code: [Select]

(defun c:test(/ p1 p2 p3) 
    (if
(and
    (setq p1 (getpoint "\n1st point: "))
    (setq p2 (getpoint "\n2nd point: " p1))
    (setq p3 (getpoint "\n3rd point: " p1))
)
   (progn
       (setq nv (trans (mapcar '- p2 p1) 1 0 t)
     oc (trans '(0.0 0.0 1.0) 1 0 t)
     p4 (trans p1 1 nv)
     p5 (trans p2 1 nv)
     p6 (trans p3 1 nv)
       )
       (entmake
   (list
       '(000 . "LWPOLYLINE")
       '(100 . "AcDbEntity")
       '(100 . "AcDbPolyline")
       '(090 . 4)
       '(070 . 1)
       (cons 010 (trans p1 1 oc))
       (cons 010 (trans p2 1 oc))
       (cons
   010
   (trans
       (list (car p6) (cadr p6) (caddr p5))
       nv
       oc
   )
       )
       (cons
   010
   (trans
       (list (car p6) (cadr p6) (caddr p4))
       nv
       oc
   )
       )
       (cons 210 oc)
   )
       )
   )
    )
    (setq off 0)
    (setq ang1(angle p1 p3))
    (setq ang2( angle p1 p2))
   
(command "_.dimaligned" P1 P2 (polar P2 (/ pi 2) off ))
(command "_.dimaligned" P1 P3 (polar P3  (/ pi 2) off)) 
)

[ribarm]

I have this with (grread) - it's called quickmeasure.lsp

https://www.theswamp.org/index.php?topic=57162.msg607039#msg607039

HTH., M.R.

[REGHUYES]

Thanks ribarm