Již 10.000+ CAD tipů.
Přes 118.500 registrovaných u nás, celkem 1.094.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků.
Vyzkoušejte nový přesný Inženýrský kalkulátor.
Kompletní příkazy AutoCADu a proměnné AutoCADu 2026.
Diskuzní fórum, poradna
?CAD diskuze, rady, výměna zkušeností

Fórum nenahrazuje technický support firmy ARKANCE (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.arkance-systems.cz
|
Odpovědět ![]() |
archiv |
Autor | |
JurajI ![]() Nováček ![]() Přihlášen: 14.zář.2012 Lokalita: Slovensko Používám: AutoCAD2012 Stav: Offline Bodů: 6 |
![]() Zasláno: 13.lis.2012 v 09:07 |
Dobrý deň, chcem sa opýtať, ako sa dá spraviť, alebo či sa dá spraviť lisp ktorý počíta jednoduché lineárne rovnice? Vie mi s tým prosím niekto pomôcť?
|
|
![]() |
|
Seiner ![]() CAD/BIM manager ![]() Přihlášen: 01.říj.2004 Lokalita: ČR (PA) Používám: Mechanical 2017, Inventor 2017 a starší Stav: Offline Bodů: 1662 |
![]() |
No, podle mého se sice dá, jako v podstatě v jakémkoliv jiném programovacím jazyku. Ale já bych se do toho nepouštěl. Když jsem dělal v lispu dříve trochu složitější matematické výrazy, nebyl jsem schopný je po sobě pomalu ani zkontrolovat. Ono se marně neříká Lost in Stupid Parentheses :-).
A jde vám čistě o programování, nebo chcete i analýzu? Jak velká je ta soustava?
|
|
Vítězslav Seiner
Chrudim |
|
![]() |
|
JurajI ![]() Nováček ![]() Přihlášen: 14.zář.2012 Lokalita: Slovensko Používám: AutoCAD2012 Stav: Offline Bodů: 6 |
![]() |
:) Sú to jednoduché rovnice o jednej neznámej. Ide v podstate o to, že potrebujem zistiť priesečník dvoch úsečiek v priestore. A nakoľko ho viem zistiť v lispe iba v rovine, tak ma napadlo, že ho zistím matematickým výpočtom. Lenže k tomu potrebujem aby mi lisp vedel vyrátať jednoduchú rovnicu :)
|
|
![]() |
|
Seiner ![]() CAD/BIM manager ![]() Přihlášen: 01.říj.2004 Lokalita: ČR (PA) Používám: Mechanical 2017, Inventor 2017 a starší Stav: Offline Bodů: 1662 |
![]() |
no ale pak není problém v řešení nějaké soustavy - tu si vyřešíte na papíře. Jde jen o to, přepsat do lispu ten výsledný výraz. To samozžejmě jde, ale jak jsem psal, výsledné příkazy jsou dost nepřehledné.
Třeba takhle vypadá přepis poměrně jendoduchého vzorečku:
(setq B (LIST (- 0 (*(/(SIN(/ PI 6))(COS(/ PI 6))) (* (/ s 2.)(-(/ 1(COS (/ PI 6)))1))))(CADR LL)))
A teď si zkontrolujte, jestli je to dobře přepsané :-) Ale pokud máte dost trpělivost, proč ne. Kdyžtak sem zkuste dát ten matematický výraz a vypíšeme soutěž, kdo ho přepíše správně do lispu :-)
|
|
Vítězslav Seiner
Chrudim |
|
![]() |
|
Seiner ![]() CAD/BIM manager ![]() Přihlášen: 01.říj.2004 Lokalita: ČR (PA) Používám: Mechanical 2017, Inventor 2017 a starší Stav: Offline Bodů: 1662 |
![]() |
Jen tak mezi námi, proč se stím moříte:
Finds the intersection of two lines
(inters pt1 pt2 pt3 pt4 [onseg]) All points are expressed in terms of the current UCS. If all four point arguments are 3D, inters checks for 3D intersection. If any of the points are 2D, inters projects the lines onto the current construction plane and checks only for 2D intersection |
|
Vítězslav Seiner
Chrudim |
|
![]() |
|
Vladimír Michl ![]() Profil člena
Odeslat soukromou zprávu
Najít příspěvky člena
Navštívit stránky člena
Přidat do seznamu známých
Moderátor ![]() ![]() Arkance Systems Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Implementujeme řešení Autodesk Stav: Offline Bodů: 21908 |
![]() |
Neházejte flintu do žita :-) V AutoLISPu jde řešit leccos. Viz třeba nástroj na řešení soustavy rovnic zapsaných přímo v textu výkresu:
![]() hezké, ne?
Autorem je ale "machr" na AutoLISP. V případě zájmu o prostudování tohoto programového kódu si napište na náš support nebo na Facebook.
|
|
![]() |
|
vbehun ![]() TOP uživatel ![]() ![]() Přihlášen: 04.říj.2004 Lokalita: ČR (ZL) Používám: Autocad R10 >> Autocad 2023 / altern. QCad Prof. Stav: Offline Bodů: 1247 |
![]() |
V lispu počítá Maxima
|
|
=^..^=
|
|
![]() |
|
Petrynka ![]() Diskutér ![]() Přihlášen: 17.kvě.2012 Lokalita: ČR (Pha) Používám: AutoCAD,ProgeCAD Stav: Offline Bodů: 49 |
![]() |
Jaký je vlastně rozdíl mezi Lispem a AutoLispem? Jsou programy v Lispu použitelné v AutoCADu?
|
|
![]() |
|
Seiner ![]() CAD/BIM manager ![]() Přihlášen: 01.říj.2004 Lokalita: ČR (PA) Používám: Mechanical 2017, Inventor 2017 a starší Stav: Offline Bodů: 1662 |
![]() |
Vítězslav Seiner
Chrudim |
|
![]() |
|
Vladimír Michl ![]() Profil člena
Odeslat soukromou zprávu
Najít příspěvky člena
Navštívit stránky člena
Přidat do seznamu známých
Moderátor ![]() ![]() Arkance Systems Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Implementujeme řešení Autodesk Stav: Offline Bodů: 21908 |
![]() |
Jiné varianty LISPu se od AutoLISPu (resp. aktuálního VisualLISPu) v AutoCADu dost liší a není možné LISP kód přebírat do AutoCADu bez jeho podstatných úprav.
|
|
![]() |
|
alfred ![]() Profil člena
Odeslat soukromou zprávu
Najít příspěvky člena
Navštívit stránky člena
Přidat do seznamu známých
TOP uživatel ![]() Přihlášen: 14.říj.2004 Lokalita: ČR (JČ) Používám: AutoCad MAP 2011 Stav: Offline Bodů: 1675 |
![]() |
Taky jsem to kdysi hledal. Zkusím to stručně a jednoduše shrnout, možná nebudu přesný, ale snad to postačí. LISP je obecný programovací jazyk s dlouhou historiií, který je do dnes používaný v různých operačních systémech. Základ z LISPu si převzaly některé další "odnože" (například AutoLisp, Script-fu, které používá GIMP, Emacs, ...). Společné jsou zásady pro zápis, syntaxe (tedy závorky a výše uvedený vtip o "ztracení ve stupidních závorkách" ![]() Liší se hlavně tím, že v jednotlivých odnožích je hromada (resp. většina) speciálních příkazů, které jsou použitelné jen v této odnoži. To je naprosto pochopitelné. Důležité tedy je, že program z LISPu jen tak nespustíte v AutoLispu a naopak. Program ze SCRIP-FU nespustíte v AutoCadu a naopak, atd. Pokud chcete programovat pro AutoCad, nemá moc smysl se s obyčejným LISPem zabývat. Doporučuji se rovnou podívat na VisualLisp, zejména využívat v AutoCadu integrované IDE. |
|
![]() |
|
JurajI ![]() Nováček ![]() Přihlášen: 14.zář.2012 Lokalita: Slovensko Používám: AutoCAD2012 Stav: Offline Bodů: 6 |
![]() |
Ďakujem za pomoc, nakoniec to spravím pomocou "Finds the intersection of two lines
(inters pt1 pt2 pt3 pt4 [onseg])" bude to jednoduchšie :) |
|
![]() |
Pro technickou podporu CAD
kontaktujte Helpdesk
Příbuzné CAD tipy: | ||
Tip 162: | ![]() ![]() | during install of trial version shows: you have a bad system date and time |
Tip 95: | ![]() ![]() | commands related to Render causes crash on UAVE |
Odpovědět ![]() |
|
Přejít na fórum | Oprávnění fóra ![]() Nemůžete vytvářet nová témata v tomto fóru Nemůžete odpovídat na témata v tomto fóru Nemůžete vymazávat vaše příspěvky v tomto fóru Nemůžete upravovat vaše příspěvky v tomto fóru Nemůžete vytvářet ankety v tomto fóru Nemůžete hlasovat v anketách v tomto fóru |
Stránka byla vygenerována za 0,250 sekund.