Can anyone help with this, I always have trouble with syntax!
(setq pt1 '(0.0 0.0 0.0)
pt2 '(-520.0 0.0 0.0)
pt3 '(-520.0 10.0 0.0)
pt4 '(0.0 10.0 0.0)
pt5 '(0.0 480.0 0.0)
)
(setq ss1 (ssget "C" pt1 pt2 '(( 8 . "grid"))))
;this works
; but how to pass variables to a point list
(setq ldist 500)
(setq xfit (cadr (assoc 10 (entget e1))))
(setq yfit (caddr (assoc 10 (entget e1))))
(setq pt6 '((- xfit ldist) (+ yfit 3.0) 0.0))
Solved! Go to Solution.
Solved by trevor.bird.au. Go to Solution.
Yes!!!! I that does work, its all about putting ( ) in the right place, thought there must be a way. I saw this worked
(setq pt6 (list xfit yfit 0.0)) so there was hope. Thanks so much perhaps I can sort out my main program now.
Thank you Trevor, now you see that explains the difference between list and ( ' ) perfectly, never could work out what the difference was. Now the program listed in "Teaser for all Experts" is working perfectly even in auto mode. Amazing!