<img src="/common/bigicon-diskuze.png" style="vertical-align:middle;height:80px" alt="Diskuze"/> Diskuzní fórum, poradna

Nováček

Přihlášen: 09.dub.2009
Lokalita: ČR (OL)
Používám:
AutoLisp
Stav: Offline
Bodů: 2

Téma: Programek v AutoLispu
Zasláno: 09.dub.2009 v 22:30

Dobry den.
Potřeboval bych poradit s programkem.
Program by mel po urceni bodu a prumeru D1
1,Nabreslit kruznici o zadanem prumeru D1.
2,V tom samem bode nakreslit kruznici o prumeru D2=D1*1,7.
3,Nakreslit sestiuhelnik ktery bude opisovat kruznici o prumeru D2.
Hlavni problem mi dela vypocet prumeru D2,
pokusil sem se neco napsat ale jenom na papir.

svarc.vl

Zasloužilý člen

Přihlášen: 01.říj.2004
Lokalita: ČR (ÚL)
Používám:
Autocad Mechanical 2010
Stav: Offline
Bodů: 204

Zasláno: 10.dub.2009 v 06:17

budete potřebovat příkazy pro zadání (získání)bodu a pak budete využívat příkazy autocadu. Lisp používá pro výpočty jinou logiku, že zadáte funkci a pak proměnné). pro zápis do proměnné je funkce setq takže příklad:

zadání hodnoty do proměnné

(setq d1 50.0)

získání bodu

(setq bod (getpoint "výběr bodu:"))

nakreslení kružnice, postupojete jako by jste psal hodnoty místo do příkazové řádky tak je píšete za příkaz command, pevné hodnoty do uvozovek proměnné bez nich

(command "_circle" bod "D" d1 )

pro výpočet d2 pak máte

(setq d2 (* d1 1,7))

pokud píšeteprogram ve visual lispu v autocadu menu pomůcky -> autolisp ->editor a napíšete příkaz tak se vám označí modře vy po najetí kurzoru na něj a stisknutí CTRL+F1 dostanete nápovědu a příklady k němu

chlebovsky Zobrazit panel

Zasloužilý člen

Přihlášen: 18.čer.2007
Lokalita: ČR (JM)
Používám:
Autocad R9 - 2022
Stav: Offline
Bodů: 112

Zasláno: 10.dub.2009 v 08:55

K přístupu do prostředí programování můžete použít i příkaz "vlide".

Ale k problému
Tady to je :

(defun c:pokus (/ cen rad1 rad2 cir1 cir2 pol pb1 pb2 pb3 pb4 pb5 pb6)
(setq cen (getpoint "\nZadej střed kružnice"))
(if cen
    (progn
      (setq rad1 (getdist cen "\nZadej poloměr kružnice :"))
      (if rad1
    (progn
    (setq rad2 (* 1.7 rad1))
    (setq cir1 (entmake (list (cons 0 "CIRCLE")(cons 10 cen)(cons 40 rad1))))
    (setq cir2 (entmake (list (cons 0 "CIRCLE")(cons 10 cen)(cons 40 rad2))))
    (setq pb1 (list (cons 10 (list (car (polar cen (* pi 0.000) rad2))(cadr (polar cen (* pi 0.000) rad2))))(cons 40 0.0)(cons 41 0.0)(cons 42 0.0)))
    (setq pb2 (list (cons 10 (list (car (polar cen (* pi 0.333) rad2))(cadr (polar cen (* pi 0.333) rad2))))(cons 40 0.0)(cons 41 0.0)(cons 42 0.0)))
    (setq pb3 (list (cons 10 (list (car (polar cen (* pi 0.666) rad2))(cadr (polar cen (* pi 0.666) rad2))))(cons 40 0.0)(cons 41 0.0)(cons 42 0.0)))
    (setq pb4 (list (cons 10 (list (car (polar cen (* pi 1.000) rad2))(cadr (polar cen (* pi 1.000) rad2))))(cons 40 0.0)(cons 41 0.0)(cons 42 0.0)))
    (setq pb5 (list (cons 10 (list (car (polar cen (* pi 1.333) rad2))(cadr (polar cen (* pi 1.333) rad2))))(cons 40 0.0)(cons 41 0.0)(cons 42 0.0)))
    (setq pb6 (list (cons 10 (list (car (polar cen (* pi 1.666) rad2))(cadr (polar cen (* pi 1.666) rad2))))(cons 40 0.0)(cons 41 0.0)(cons 42 0.0)))
    (setq pol (append (list (cons 0 "LWPOLYLINE")(cons 100 "AcDbEntity")(cons 100 "AcDbPolyline")(cons 90 6)(cons 70 1)(cons 43 0.0)(cons 38 0.0)(cons 39 0.0)) pb1 pb2 pb3 pb4 pb5 pb6 (list (cons 210 (list 0.0 0.0 1.0)))))
    (setq pol (entmake pol))
    )
    (alert "Nebyl zadán poloměr kružnice !")
      )
    )
    (alert "Nebyl zadaný střed kružnice !")
)
)

Připadá mi to jako hlava šroubu, matičky, pak by taky bylo dobré aby to všechno spojil do jednoho bloku, aby se to chovalo jakoby jeden celek, navíc by to šlo udělat i tak že se zeptá na začátku jaký šroub a z databaze Vám to vytáhne přislušný tvar a rovnou vloží.... ale to jsme někde jinde.

S pozdravem Martin.

Ing. Martin Chlebovský

www.kde-je-auto.cz

GPS monitoring provozu vozidel a osob.

WebDeveloper.

Programátor aplikací pro Autocad a MS Office.

Tvorba WWW aplikací.

Modelování domů a staveb.&l

chlebovsky Zobrazit panel

Zasloužilý člen

Přihlášen: 18.čer.2007
Lokalita: ČR (JM)
Používám:
Autocad R9 - 2022
Stav: Offline
Bodů: 112

Zasláno: 10.dub.2009 v 08:56

Jo načíst do Cadu a spustit příkazem pokus (je to definované na začátku v c:pokus, když dáte c:xxx budete spouštět pomoci příkazu xxx

Vladimír Michl Zobrazit panel

Moderátor

ARKANCE

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 21941

Zasláno: 10.dub.2009 v 09:23

Neděste začátečníka takovými složitostmi :-)

Zcela postačí i:


(defun c:krux ( / D1)
 (setq D1 (getdist "\nPrůměr D1: "))
 (command "_Circle" pause "_D" D1)
 (command "_Circle" "@" "_D" (* D1 1.7))
 (command "_Polygon" 5 "@" "_C" (* D1 1.7 0.5))
 (princ)
)

Vladimír Michl (moderátor)
ARKANCE CZ - arkance.world
(podpora viz helpdesk.arkance-systems.cz)

svarc.vl

Zasloužilý člen

Přihlášen: 01.říj.2004
Lokalita: ČR (ÚL)
Používám:
Autocad Mechanical 2010
Stav: Offline
Bodů: 204

Zasláno: 10.dub.2009 v 09:53

No právě vypadá to jako zadání příkladu ve škole, ale aspoň se kouknu jak to dělá někdo jiny. Zajímalo by mně rozdíl mezi vytvořením kružnice přes příkaz cadu a příkazem lispu entmake.

Jedná se o to , že si můžu definovat další hodnoty ve vlastnostech entity ?

Vladimír Michl Zobrazit panel

Moderátor

ARKANCE

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 21941

Zasláno: 10.dub.2009 v 11:06

(entmake) je jen rychlejší a složitější...

Vladimír Michl (moderátor)
ARKANCE CZ - arkance.world
(podpora viz helpdesk.arkance-systems.cz)

Cruele

Nováček

Přihlášen: 14.dub.2009
Lokalita: ČR (JM)
Používám:
AutoCAD2008
Stav: Offline
Bodů: 2

Zasláno: 14.dub.2009 v 16:05

Dobrý Den,ja mam taky takový "školni"problem.Čast programu už mam ,ale ztracim se s vytvořením oblouku.Mam při tom střed oblouku a koncove body.Vím,že bych mel použit funkci arc,ale nemam poneti jak.Stačí mi jen nasmerovat.Děkuji moc

svarc.vl

Zasloužilý člen

Přihlášen: 01.říj.2004
Lokalita: ČR (ÚL)
Používám:
Autocad Mechanical 2010
Stav: Offline
Bodů: 204

Zasláno: 15.dub.2009 v 07:26

použijete příkaz autocadu _arc (podtržítko je označení aglického příkazu), pak spouštíte příkazy autocadu v lispu pomocí funkce command a za funkci píšete proměnné a parametry v pořadí jako jsou v příkazové řádce autocadu. Pokud chcete počkat na vstup uživatele pak napíšete pause , pokud chcete poslední bod napíšete @. Pevné hodnoty píšete do uvozovek, proměnné jménem.

např.

(command "_arc" "S" "0,0" "1,1" "-1,1") ; S znamená, že nejdříve zadáváte střed

pokud máte hodnotu bodu v proměnné pak

(command "_arc" "S" bod1 bod2 bod3)

a jestli máte pouze souřadnice bodu pak je "spojíte" příkazem list

(command "_arc" "S" (list x1 y1) bod2 bod3)

zkuste si příkaz v autocadu a koukněte se co Vám autocad píše.

(jinak kreslení oblouku mi dělá proti směru hodinových ručiček těď si nevzpomenu jaká je to proměnná)

shortys.ivo Zobrazit panel

Nováček

Přihlášen: 15.dub.2009
Lokalita: Czech Republic
Používám:
AutoCAD2008
Stav: Offline
Bodů: 2

Zasláno: 15.dub.2009 v 15:58

Dobrý den,
mám také "školní" problém....
Potřebuji vytvořit prográmek:

Je dán úhel AVB a vbitřní bod M.Sestrojte kružnici k procházející bodem M,která se dotýká obou ramen úhlu.

Už se s tím trápím několik dnů a stále to nemůžu zprovoznit:(

Upravil shortys.ivo - 15.dub.2009 v 16:02

Mantlík

TOP uživatel

Přihlášen: 01.říj.2004
Lokalita: ČR (Pha)
Používám:
ACAD/Map/Civil R10-> 2022
Stav: Offline
Bodů: 2574

Zasláno: 15.dub.2009 v 16:19

A jak jste daleko - co už Vám funguje?

Máte-li už nakreslený úhel a bod, tak kružnici sestrojíte např. :

(command "_circle" "_3p" "_nod" pause "_tan" pause "_tan" pause)

to pause znamená čekání na uživatelský vstup

pak ale musíte znát sekvenci, v jaké budete body zadávat (tady je to bod, tečna, tečna)

lepší (a odolnější proti chybám) bude ale uložit na výzvy bod a tečny do proměnných a pak to najednou vykreslit (anebo aspoň vypsat hlášku, v jakém pořadí se to má zadávat)

J. Mantlík

shortys.ivo Zobrazit panel