topic Get difference between a chosen measurement and an inputed measurement in Visual LISP, AutoLISP and General Customization Forum

Get difference between a chosen measurement and an inputed measurement

paul9ZMBV — Thu, 06 Jul 2023 08:08:23 GMT

I have this lisp

(defun c:getdiffrence ()
(setq olddist (getpropertyvalue (ssname (ssget "_:S+.") 0) "Measurement"))
(setq diffrence (* -1 (- olddist (getdist "\nnew distance: "))))
(command "_mtext" pause pause diffrence "")
)

Could someone kindly adapt it to do the following:

Selected measurement is highlighted blue to donate it has been chosen
The position of the text is chosen on screen but the default font and size is as per the original measurement
The value (difference) is limited to 4 decimal places

This would be much appreciated.

Re: Get difference between a chosen measurement and an inputed measurement

EnM4st3r — Thu, 06 Jul 2023 08:46:30 GMT

added the highlighting as well as 4 places for the decimal, but i dont know how to do the text thing.

(defun c:getdiffrence () (setq olddist (getpropertyvalue (setq ss(ssname (ssget "_:S+." '((0 . "DIMENSION"))) 0)) "Measurement")) (redraw ss 3) (setq diffrence (rtos (* -1 (- olddist (getdist "\nnew distance: "))) 2 4)) (command "_mtext" pause pause diffrence "") (redraw ss 4) )

Re: Get difference between a chosen measurement and an inputed measurement

paul9ZMBV — Thu, 06 Jul 2023 09:19:52 GMT

Thanks works well, perhaps someone will jump in to add the matching formatting

Re: Get difference between a chosen measurement and an inputed measurement

komondormrex — Thu, 06 Jul 2023 11:01:45 GMT

(defun c:getdiffrence (/ dim difference mtext_object) (sssetfirst) (while (and (setq dim (car (entsel "\nPick dimension: "))) (null (= "DIMENSION" (cdr (assoc 0 (entget dim))))) ) ) (if dim (progn (sssetfirst nil (ssadd dim)) (setq difference (abs (- (getpropertyvalue dim "Measurement") (getdist (cdr (assoc 13 (entget dim))) "\nnew distance: "))) mtext_object (vla-addmtext (vla-get-block (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object)))) (vlax-3d-point (trans (getpoint (strcat "\nPick point for placing mtext difference <" (rtos difference 2 4) ">: ")) 1 0)) (vla-get-textheight (vlax-ename->vla-object dim)) (rtos difference 2 4) ) ) (vla-put-stylename mtext_object (vla-get-textstyle (vlax-ename->vla-object dim))) (vla-put-height mtext_object (vla-get-textheight (vlax-ename->vla-object dim))) ) ) (sssetfirst) (princ) )

Re: Get difference between a chosen measurement and an inputed measurement

EnM4st3r — Thu, 06 Jul 2023 11:28:45 GMT

hi @komondormrex im trying to understand your code, while i do get most parts of it, i dont understand what the purpose of the "sssetfirst" functions is. Why do we need them?

Re: Get difference between a chosen measurement and an inputed measurement

paul9ZMBV — Thu, 06 Jul 2023 11:35:21 GMT

Thank you that's brilliant

Re: Get difference between a chosen measurement and an inputed measurement

komondormrex — Thu, 06 Jul 2023 13:44:05 GMT

that is why. highlight with handles.