From: P.C.
Subject: Matrix calculations
Date: Thu, 05 Sep 2002 19:29:31 +0000
Message-ID: <3d77b0a8$0$27688$edfadb0f@dspool01.news.tele.dk>

Hi .
I just wrote this code , that offset 3D points in virtual 3D.
very different than other directions in Lisp ;

(Defun lenghten-n (x)
(setq a(cdr (assoc 10  (setq w(entget(entnext (cdr(car(entget (car
(entsel)))))))))))
(setq b(cdr (assoc 10 (entget(entnext(cdr(car  w)))))))
(mapcar 'x (mapcar '- a b) a)
)

P.C.

• Re: Matrix calculations Joe Marshall
• Re: Matrix calculations Reini Urban

From: Joe Marshall
Subject: Re: Matrix calculations
Date: Thu, 05 Sep 2002 19:49:10 +0000
Message-ID: <65xkqksp.fsf@ccs.neu.edu>

"P.C." <··········@privat.dk> writes:

> Hi .
> I just wrote this code ....
[code elided]

Don't worry, I won't tell anybody.

From: Reini Urban
Subject: Re: Matrix calculations
Date: Sun, 08 Sep 2002 22:36:11 +0000
Message-ID: <3D7BD0DB.3060102@x-ray.at>

P.C. schrieb:
> Hi .
> I just wrote this code , that offset 3D points in virtual 3D.
> very different than other directions in Lisp ;
> 
> (Defun lenghten-n (x)
> (setq a(cdr (assoc 10  (setq w(entget(entnext (cdr(car(entget (car
> (entsel)))))))))))
> (setq b(cdr (assoc 10 (entget(entnext(cdr(car  w)))))))
> (mapcar 'x (mapcar '- a b) a)
> )

sorry. wrong newsgroup.
try news:comp.cad.autocad instead.
-- 
Reini Urban
http://xarch.tu-graz.ac.at/autocad/news/faq/autolisp.html