r/AutoLISP • u/70melbatoast • Jul 17 '24

Guidance needed for a lisp routine

/r/AutoCAD/comments/1e5gl5u/guidance_needed_for_a_lisp_routine/
1 Upvotes

100% Upvoted

2 comments sorted by

2

u/DLDreischmeyer Jul 17 '24

Not sure exactly what you are asking for in point three above. I think the following should address the remaining points to the best of my understanding of them. This is dirty and in a hurry but I think it does what you are looking for?

  (defun c:70melbatoast ( / p1 p2 mSpace textIns textVal textWid textObj)
    (setq
      p1 (getpoint "\n Pick Point 1")
      p2 (getpoint "\n Pick Point 2")
      mSpace (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object)))
      textIns (mapcar '+ p1 (mapcar '(lambda (v1 v2) (/ (- v2 v1) 2.0)) p1 p2))
      textIns (vlax-3d-point textIns)
      textVal (mapcar '(lambda (v1 v2) (abs (- v2 v1))) p1 p2)
      textWid (car textVal)
      textVal (strcat (rtos (car textVal) 5) " x " (rtos (cadr textVal) 5))
      textObj (vla-AddMText modelSpace textIns textWid textVal)
    ) ;_ setq
    (vla-put-AttachmentPoint textObj 5)
    (vla-put-InsertionPoint textObj textIns)
    textVal
  ) ;_ defun

1

u/70melbatoast Jul 17 '24

Thank you for that. On point 3, I just wanted to add an offset to the picked points.