TheSwamp
Code Red => AutoLISP (Vanilla / Visual) => Topic started by: d2010 on April 23, 2021, 04:06:24 PM
-
a)The problem is; how to hide the result inside body of Defun?
E.g If I call this function
(set ax (mid_pnt (list 2.0 2.0 0.0) (list 4.0 4.0 0.0)))
then I call (Inject-insideDefun ax "mid_pnt")
:glarestraight:
(defun mid_pnt (p1 p2 / A B $rr)
(setq $rr nil)
(setq A P2)
(setq B P1)
(setq % (mapcar '(lambda (I J) (/ (+ I J) 2))
A B)
)
The instr. (Inject-insideDefun replace nil with (list 3.0 3.0 0.0)
Do you understand what is static=function, from linkedin.com?=clickhere with mouse.com (https://www.linkedin.com/pulse/static-variables-methods-java-where-jvm-stores-them-kotlin-malisciuc)
:gum:
b)Secondary problem, How to read (list 3.0 3.0 0.0) from body-defun
(defun extractor_last (defunname As String / $rr)
???
$rr)
;; You call (extractor_last "mid_pnt"), Must return (list 3.0 3.0 0.0)