Rounding up selected values to user input standard values (Please see attachment
Excellent Sir,
Is there any other option to get the list from user selection from AutoCAD instead of mentioning in lisp code like below
(6 10 16 32 64 100 125 160 200 250 300 415 600 800 1000 1200)
because some times the values may change as per AutoCAD text values.
Selection like below.
Dear Sir,
Instead of feeding standard values in lisp code, Can we feed the standard values by selection method from AutoCAD like shown in below snapshot.
@Anonymous wrote:
Instead of feeding standard values in lisp code, Can we feed the standard values by selection method from AutoCAD like shown in below snapshot.
You mean NOT hard-codfing the values on a lisp routine, as those values are not always the same? and show those as allowable values on a list box?
@Anonymous wrote:
The standard values are not fixed values, those are some times variable values. That's why I asked selection input instead of mentioning in lisp code.
First of all, don't call me sir 🙂
Secondly, are the "Standard Values" column always available for selection? I dont see the relation between "User Selection Values" and the "Output Values" or should i jsut say UPDATED SV at all. Do you already have a lisp code that shows a list box for SV and USV? what are you going to use the output values for anyway? Were the suggestions of @ВeekeeCZ helped you in any way? Why did the chicken cross the road?
EDIT: Apprarently it did help, I did not even get to finish my post 😄
Accepted solution
@Anonymous wrote:
Excellent Sir,
Is there any other option to get the list from user selection from AutoCAD instead of mentioning in lisp code ..
...
One quick way is to have an external file as the source for the range of numbers, either on the same folder as the drawing, or if you have a standard folder structure and place the source file there.
Had time to burn.
(defun c:RoundUpFromRange ( / _L2S range rangeSource opf a i s ent v)
;; pBe May 2020 ;;
(defun _L2S (s a)
((lambda (v)
(setq s (vl-string-right-trim v s)
s (vl-string-Left-trim v s)))
(strcat "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" a))
)
(if (and
(setq range nil
rangeSource
(findfile (strcat (getvar 'dwgprefix)
"Range for this project.txt")))
(setq range
(progn
(setq opf (open rangeSource "r"))
(while (setq a (read-line opf))
(setq range (cons (atoi a) range))
)
(close opf)
(reverse range))
)
(princ "\nActual values, ")
(setq s (ssget "_:L" '((0 . "TEXT"))))
)
(repeat (setq i (sslength s))
(if
(setq e (ssname s (setq i (1- i)))
v (atof (_L2S (getpropertyvalue e "TextString") ""))
v (Vl-some '(lambda (n m)
(cond
((<= v n) n)
((<= n v m) m)
)
) range (Cdr range)
)
)
(setpropertyvalue e "TextString" (rtos v 2 0)))
)
)
(princ)
)HTH
@john.uhden wrote:
To which the mechanic replies "
"There will be", Hey I have to look that up, that was a long time ago John 😄
@Anonymous wrote:
Thanks a lot for extra feature, by keeping the text file inside the same drawing path.
Instead of keeping in same drawing path, can we make an option to select file path from user end?
Refer to updated attached file [ RoundUpFromRange.LSP ]
Snippet:
..
(setq range nil
rs (getfiled "Select Source file"
(if rs (vl-filename-directory rs)
(getvar 'dwgprefix)) "txt" 16)
)
(setq range
(progn
(setq opf (open rs "r"))
(while (setq a (read-line opf))
(if (numberp (setq a (Read a)))
(setq range (cons a range)))
)
(close opf)
(reverse range))
)
..HTH
@Anonymous wrote:
Thanks a lot,
working nice, except one thing
If input values having digits like 6.5, 10.25, 16.5, 32.5, Then output is coming like only 6, 10, 16, 32.
The lisp command not taking any digits.
Really @Anonymous ? What did we say about being clear on what you are requesting. Reminder
Add the sub and edit the line that matches the line shown below [ between ... ]
(setq RealorInt (lambda (n)
(if (zerop (rem n 1)) 0 2)
)
)
....
(setpropertyvalue e "TextString" (rtos v 2 (RealorInt v)))
....HTH