🚀 go-pugleaf

gumiś napisał(a) w wiadomości: <3711FC01.17E0BD85@box43.gnet.pl>...
>Witam!
>Małe pytanko:
>W jaki sposób (możliwie najprostszy) narysować w AutoCadzie R14 linię
>śrubową 3D?
>
Chyba tylko programik w lisp'ie
Anzelm

gumiś napisał(a) w wiadomości: ...
>Witam!
>Małe pytanko:
>W jaki sposób (możliwie najprostszy) narysować w AutoCadzie R14 linię
>śrubową 3D?
Też witam.A oto sposób:
; POCZATEK PLIKU HELIX.LSP
;********************************HELIX.LSP ********************************
; Ryszard Niewisiewicz 1995, 1998
;
; Tworzy helise o zadanym promieniu, skoku i ilosci zwojow z poczatkiem
; w punkcie 0,0,0 podstawowego ukladu wspolrzednych (WCS) skierowana
; zgodnie z dodatnik kierunkiem osi Z. Jest ona tworzona jako polilinia
; przestrzenna skladajaca sie z odcinkow prostoliniowych.
; Ladowanie:
; (load "helix")
; Wykonanie:
; helix
;
; Uwaga: podanie ujemnej liczby zwojow i ujemnego skoku powoduje powstanie
; helisy prawozwojnej - nalezaloby ustalic jakas konwencje.
;**************************************************************************
(defun dtor (a)
(/ (* a pi) 180.0))
(defun chelix (ntimes rad cfac ainc / lpass tp ainc hinc)
(setq circle (* pi 2))
(print (setq lpass (fix (abs (/ (* pi 2.0 ntimes) ainc)))))
(print (setq ainc (/ (* pi 2.0 ntimes) lpass)))
(print (setq hinc (/ (* cfac (abs ntimes)) lpass)))
(entmake
'(
(0 . "POLYLINE")
(70 . 8)
(66 . 1)
(8 . "HELIX")))
(setq i 0.0)
(repeat (+ lpass 1)
(entmake
(list
'(0 . "VERTEX")
(cons
10
(polar
(list 0.0 0.0 (* hinc i))
(* ainc i)
rad))
'(70 . 32)
'(8 . "HELIX")))
(setq i (1+ i)))
(entmake
'(
(0 . "SEQEND")
(8 . "HELIX")))
)
;
; Pobranie danych wejjciowych
;
(defun C:HELIX ( / nt rad cf ainc)
(initget 7) ; rad nie moze byc zerowe, ujemne lub puste
(setq rad (getdist "\nPromien helisy: "))
(initget 3) ; nt ujemne - lewoskretna, nie moze byc zerowe lub puste
(setq nt (getreal "\nLiczba obrotow (wartosc ujemna - helisa lewoskretna):
"))
(initget 3) ; cf ujmne - do dolu, nie moze byc zerowe lub puste
(setq cf (getdist "\nSkok (wartosc ujemna - helisa w dol): "))
(initget 6) ; ainc nie moze byc zerowe lub ujemne
(setq ainc (getangle '(0 0 0) "\nPrzyrost <1d>: "))
(cond ((null ainc) (setq ainc (dtor 1.0))))
(chelix nt rad cf ainc)
(princ)
)
; KONIEC PLIKU HELIX.LSP
Pozdrawiam -  Krzysiek
______________________________________________________________________
http://www.polbox.com/m/mazzi
mailto:mazzi@polbox.com

No właśnie a w Solid Worksie to takie proste!
jackiw@stanton.bmd.put.poznan.pl

Anzelm napisał(a):

> gumiś napisał(a) w wiadomości: <3711FC01.17E0BD85@box43.gnet.pl>...
> >Witam!
> >Małe pytanko:
> >W jaki sposób (możliwie najprostszy) narysować w AutoCadzie R14 linię
> >śrubowš 3D?
> >
> Chyba tylko programik w lisp'ie
> Anzelm

>No właśnie a w Solid Worksie to takie proste!
>jackiw@stanton.bmd.put.poznan.pl



    Masz rację a w AMD jescze bardziej !!!! - do tego parametrycznie

>    Masz rację a w AMD jescze bardziej !!!! - do tego parametrycznie


Nie mówiąc o MicroStation (jest do tego nawet ikona!)

Michał

nie wspominajac juz o IDEAS-ie
Michal

Przekopiuj z ACAD R12 ( to nie pomyłka) plik 3DSPIRAL.lsp do Support ( W
acad R14) i wydaj komendę 3DSpiral. I to tyle.

Iwona napisa�(a) w wiadomo�ci: <7f54lh$99p$1...@sun1000.pwr.wroc.pl>...
>
>nie wspominajac juz o IDEAS-ie
>Michal


A ja wspomne Solid Edge'a i Unigraphics'a, tam tez to jest.
A  pytanie by�o o AutoCADa.
Anzelm

www.helion.com.pl -> u nich na ftp jest 3dspiral.lsp
stary ale jary. Poza tym od tygodnia na ich stronie
dyskusyjnej CAD spirale i�ruby to temat przewodni :)))

Piotr G��bicki
ps. NAJWI�KSZ� zalet� "programik�w" w Lispie jest
to, �e s� w wi�kszo�ci free ---// and this is not bad IDEAS.\\---

Anzelm napisa�(a) w wiadomo�ci: ...
>
>Iwona napisa�(a) w wiadomo�ci: <7f54lh$99p$1...@sun1000.pwr.wroc.pl>...
>>
>>nie wspominajac juz o IDEAS-ie
>>Michal
>
>
>A ja wspomne Solid Edge'a i Unigraphics'a, tam tez to jest.
>A  pytanie by�o o AutoCADa.
>Anzelm
>
>
>