---

Hi
Jeg har netop sendt en lille applikation på en af de internasionale lister, men
måske er der også nogle her på listen der har været i den situation, at det
ville være rigtigt smart, at kende det punkt, hvor en linie skærer en flade
, -------- når man tegner i "ren AutoCAD" især frihånd 3D, er det den slags små
applikationer der kan gøre en mening med galskaben , og selvom der er flere
standard AutoCAD funktioner , som mere eller mindre kan dele af det man kan i
Lisp , -------- så er der somregel alt for meget 2D i rutinerne ; for at finde
samme punkt, kan man f.eks. dreje sit UCS ned på fladen og med Break finde samme
punkt tror man , men for det første arbejder man så 2D og skal man finde
skæringspunkter for mange linier og mange flader, er 3D og Lisp nok mere smart.
He er applikationen, som benytter en af de sjældent brugte funktioner der ligger
i Calculatoren i AutoCAD;

(defun face-pt nil
(setq p1 (getpoint "\nPoint out one endpoint of Line ; "))
(setq p2 (getpoint "\nPoint out second endpoint of Line ; "))
(setq p3 (getpoint "\nPoint out one corner of Face ; "))
(setq p4 (getpoint "\nPoint out Second corner of Face ; "))
(setq p5 (getpoint "\nPoint out Third corner of Face ; "))
(cal "ilp (p1,p2,p3,p4,p5)")
)

Det kan næppe gøres mere overskueligt i Lisp, men funktionen kan faktisk
komprimeres og omskrives til et meget effektivt værktøj der med Lisp kan
overkomme enorme data mængder , man kan danne point clouds , indsætte automatisk
var. tildeling og med andre matrix udregninger måle utallige vinkler og få
farvelagt områder udfra den vinkel applikationen måler , nemt ovenikøbet det er
jo Lisp ;))
Men vil du blot have det punkt, hvor en 3D linie krydser en flade , så er det
altså den app. du kan loade og ovenikøbet bruge transparent..

P.C.
http://www.designcommunity.com/scrapbook/2573.html