LISP modification request - inverse

I have a LSP file that's been in my library for a while that allows you to pick any two points then list the bearing/horizontal/slope distance in the command line. Don't remember where I got it - but it is currently set to report the final distances to two (2) decimal places. Hoping there is an easy way to modify to have it read distance to four (4) decimal places?

This is probably super simple to anyone comfortable writing LSP...I'm just not there....

Alternatively - if this pulls from a variable or setting that would control that rather than the LSP code itself, what would I use to do that?

Code:

---

(defun C:INV ( / 2DIST fact str1 tw CNTR PT1 PT2 ang DST PDST Pang)

  (defun 2DIST (PT)
        (list (car pt)(cadr pt))
  ) ;defun
 
  (setq fact nil)
  (if(and(= 1 (getvar "cvport"))(trans '(1 0 0) 2 3 0))
        (progn
          (setq fact (car (trans '(1 0 0) 2 3 0)))
          (princ "\nPS:MS == 1:")
          (princ(/ 1 fact))
          (command "mspace")
          (setq tw (- (* 2 pi)(cdr(assoc 51(entget(acet-currentviewport-ename))))))
          (command "pspace")
        )
  )
  (setq CNTR 0 ;INITIALIZE COUNTER
                PT1 (getpoint "\nPick First Point") ;PROMPT FOR FIRST POINT
                PT2 PT1
  )
  (while PT2 ;IF YES OR ENTER
        (setq PT2 (getpoint "\nPick Next Point" PT1)) ;PROMPT FOR NEXT POINT
        (if PT2
          (progn
                (if fact
                  (progn
                        (setq DST (/ (distance (2DIST PT1)(2DIST PT2))fact) ;CONVERT TO STRING
                                  PDST (distance (2DIST PT1)(2DIST PT2)) ;CONVERT TO STRING
                                  CNTR (1+ CNTR) ;ADD TO COUNTER FOR COLOR CHANGE
                                  Pang (angtos (angle pt1 pt2)4 4)
                                  ang (angtos (+(angle pt1 pt2)tw)4 4)
                                  deltaz  (/ (- (car(cddr pt2)) (car(cddr pt1)))fact)
                                  slope  (/ deltaz DST)
                        )
                        (if(eq Pang ang)
                          (setq DST(strcat "MS Bearing= "ang ", Dist= " (rtos DST 2 2) "', PS Dist= " (rtos PDST 2 2) "\""))
                          (setq DST(strcat "MS Bearing= "ang ", Dist= " (rtos DST 2 2) "', PS Bearing= "Pang ", Dist= " (rtos PDST 2 2) "\""))
                        );if
                  );progn
                  (setq DST (distance (2DIST PT1)(2DIST PT2))
                                CNTR (1+ CNTR)
                                ang (angtos (angle pt1 pt2)4 4)
                                deltaz  (- (car(cddr pt2)) (car(cddr pt1)))
                                slope  (/ deltaz DST)
                                DST        (strcat "Bearing= "ang ", Dist= " (rtos DST 2 2) "'")
                  )
                );if fact
                (prompt (strcat "\n" DST)) ;Print the distance to command line
                (if (/= 0 deltaz)(prompt (strcat "\nDelta elev= "(rtos deltaz) "  Slope= "(rtos slope 2 6))))
                (grtext -1 DST) ;Print distance in status line
                (grdraw PT1 PT2 CNTR 2) ;Draw a colored line between points
                (setq PT1 PT2) ;Change start point
          ) ;end progn
        ) ;end if PT2
  ) ;end while PT2
  (grtext -1 "") ;Clear status line
  (princ)
) ;end fun

---

Look through your code and change something like this:

Code:

---

(rtos <SomeVariableName> 2 2)

---

... to this:

Code:

---

(rtos <SomeVariableName> 2 4)

---

Thanks @BlackBox -- just curious, what does the first number in each of those variable sets control?

Quote:

---

Originally Posted by SWarnock84

Thanks @BlackBox -- just curious, what does the first number in each of those variable sets control?

---

Most welcome; this may help:

http://docs.autodesk.com/ACD/2013/EN...ber=d30e627140

That is helpful, thanks again.

However, even after changing all of those variables to a 4, nothing happens. I still get a readout to 2 decimal places. :( Any other ideas?

Attachment 109666

What precision are the drawing's UNITS, specifically LUPREC sysvar?

That was my first thought - but it doesn't seem to have any effect. LUPREC is set to 4, and UNITS are set to four decimal points as well. Since I'm working in C3D I also checked the Global Drawing Settings, and those units are also set to 4.

Has me stumped...

Have you stepped through your code to find where this is reporting incorrectly?

It's not that it's reporting "incorrectly". It works, but only reports distances to 2 decimal places no matter what variables are changed. We were hoping to alter the code to report to 4 decimal places for when we do precision work.

I didn't write the original code, and my knowledge is fairly limited - so I'm hoping someone more experienced can pick out why that may be happening.

Thus far we have changed the precision values to 4, checked UNITS, LUPREC, and other drawing settings to no effect.

Think it has to do with one of the point/angle calculations - just don't recall which.

As example, if you obtain a point, then subtract the integer from the X value of same point, you get more digits than is displayed when obtaining the point:

Code:

---

Command: (setq pt (getpoint))
(485129.0 1.02485e+06 0.0)

Command: (- (car pt) 485129)
0.126708

---