Decimal points in compare points lisp

[mhupp]

16 hours ago, russ079 said:

How would I set it to loop after the tag scale is set? Can I add in a while function after the tag scale is set ?

 

Instead of the the if for the two points change that to while. to exit either hit esc or don't pick one of the points.

 

13 hours ago, thecocuk07 said:

Repeated operations to remember the scale factor; i did something like this but i guess it's wrong

 

@thecocuk07 I use ldata to save the variable to the file. this means if you run the command at least once and save the file it will remember the last input even after closing.

 

(or (setq *cmp:scal (vlax-ldata-get "Tag" "Scale")) (setq *cmp:scal 5))
(if (setq cmp:scal (getreal (strcat "\nSpecify tags scale <" (rtos *cmp:scal) ">: ")))
  (vlax-ldata-put "Tag" "Scale"  cmp:scal)
  (vlax-ldata-put "Tag" "Scale" (setq cmp:scal *cmp:scal))
)       

 

 

 

 

 

cmpp 2.0.lsp

Edited March 21, 2023 by mhupp

[thecocuk07]

7 hours ago, mhupp said:

 

Instead of the the if for the two points change that to while. to exit either hit esc or don't pick one of the points.

 

 

@thecocuk07 I use ldata to save the variable to the file. this means if you run the command at least once and save the file it will remember the last input even after closing.

 

(or (setq *cmp:scal (vlax-ldata-get "Tag" "Scale")) (setq *cmp:scal 5))
(if (setq cmp:scal (getreal (strcat "\nSpecify tags scale <" (rtos *cmp:scal) ">: ")))
  (vlax-ldata-put "Tag" "Scale"  cmp:scal)
  (vlax-ldata-put "Tag" "Scale" (setq cmp:scal *cmp:scal))
)       

 

 

 

 

 

cmpp 2.0.lsp 9.31 kB · 1 download

@mhupp  Thank you for the patience you have shown . 

Edited March 22, 2023 by thecocuk07