CAD Fórum : extrim v lispe https://www.cadforum.cz/forum/ Mon, 15 Jun 2026 07:57:00 +0000 Tue, 22 Apr 2008 14:19:25 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=6383 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[extrim v lispe : Plan bol taky ze Autocad si sam...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6383&PID=31097&title=extrim-v-lispe#31097 Autor: Augur
Předmět: 6383
Zasláno: 22.dub.2008 v 14:19

Plan bol taky ze Autocad si sam najde objekt podla ktoreho sa bude trimovat.. V tom problem nieje.. Ja som si len neuvedomil, ze prikaz "extrim" je vlastne samostatny lisp..

Dodatocne by som sa chcel vsetkym podakovat, hlavne panovi Ferdinand-ovi.. Velkou obklukou a v podstate nezavisle som sa dostal k rieseniu, ktore tu bolo spomenute.. (na orezavanie nepouzivat lispovsky prikaz extrim, ale ovela jednoduchsi prikaz trim spolu s "fence". Teraz to robi presne to, co som chcel

Upravil Augur - 24.dub.2008 v 10:08]]> Tue, 22 Apr 2008 14:19:25 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6383&PID=31097&title=extrim-v-lispe#31097 <![CDATA[extrim v lispe : Noo.. nejde o to co to má dělat...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6383&PID=31095&title=extrim-v-lispe#31095 Autor: svarc.vl
Předmět: 6383
Zasláno: 22.dub.2008 v 12:53

Noo.. nejde o to co to má dělat mně , jde o to jestli Augrum to využije. V zásadě to nakreslí jenom obdélník a podle něj to ořízne (pokud se mu povede trefit entitu).Smile Jinak si musí tazatel upravit Extrim

]]> Tue, 22 Apr 2008 12:53:05 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6383&PID=31095&title=extrim-v-lispe#31095 <![CDATA[extrim v lispe : Pokud nemáte k dispozici český...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6383&PID=31094&title=extrim-v-lispe#31094 Autor: Mrázek
Předmět: 6383
Zasláno: 22.dub.2008 v 12:40

Pokud nemáte k dispozici český ACAD - vyjímám z Helpu:

"Očekává se bod nebo

Okno/Poslední/Křížení/Box/všE/Napříč/OPolygon/KPolygon/Skupina/Přidat/Odstranit/Nkrát/Předchozí/Zpět/Auto/Jeden

Vyberte objekty: Zadejte bod nebo vyberte volbu"

]]> Tue, 22 Apr 2008 12:40:02 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6383&PID=31094&title=extrim-v-lispe#31094 <![CDATA[extrim v lispe : V helpu k příkazu &#034;vyber&#034;...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6383&PID=31093&title=extrim-v-lispe#31093 Autor: Mrázek
Předmět: 6383
Zasláno: 22.dub.2008 v 12:37

V helpu k příkazu "vyber" jsou všechny možné volby zmíněny, vždy to písmeno, které je velké, znamená zkrácenou volbu.]]> Tue, 22 Apr 2008 12:37:39 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6383&PID=31093&title=extrim-v-lispe#31093 <![CDATA[extrim v lispe : To svarc.vl: Co to má dělat? Mně...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6383&PID=31092&title=extrim-v-lispe#31092 Autor: Ferdinand
Předmět: 6383
Zasláno: 22.dub.2008 v 12:36

To svarc.vl: Co to má dělat? Mně to nic nedělá, přesto že jsem to upravil na tvar
(....původní /opravený/ kód Augura...)
(setq bod (getpoint "\npocatek"))
(setq bod1 (getcorner bod))
(command "_pline" bod  (list (car bod) (cadr bod1)) bod1 (list (car bod1) (cadr bod)) "_C")
(setq ent (entlast))
(setq bod (polar bod 0.785 1.41)  bod1 (polar bod1 3.927 1.41))
(command "_trim" ent  "" "_F" bod bod1 "" "")
(command "_erase" ent "")


Upravil Ferdinand - 22.dub.2008 v 12:41]]> Tue, 22 Apr 2008 12:36:40 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6383&PID=31092&title=extrim-v-lispe#31092 <![CDATA[extrim v lispe : &#034;U&#034; bude uzavři anglicky...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6383&PID=31087&title=extrim-v-lispe#31087 Autor: svarc.vl
Předmět: 6383
Zasláno: 22.dub.2008 v 11:12

"U" bude uzavři  anglicky "_C" close, N je napříč  anglicky " _F"  asi Fence , jinak jsem to programoval  v r 1998  to teda koukam Shocked]]> Tue, 22 Apr 2008 11:12:36 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6383&PID=31087&title=extrim-v-lispe#31087 <![CDATA[extrim v lispe : Ano, tento příkaz chce konkrétní...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6383&PID=31083&title=extrim-v-lispe#31083 Autor: Ferdinand
Předmět: 6383
Zasláno: 22.dub.2008 v 11:01

Ano, tento příkaz chce konkrétní "ruční" výběr objektů.
To svarc.vl: Co to má dělat? Neznám české volby (to "U" je Undo?, "N" je co?)
]]> Tue, 22 Apr 2008 11:01:44 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6383&PID=31083&title=extrim-v-lispe#31083 <![CDATA[extrim v lispe : EXTRIM není vnitřní příkaz AutoCADu,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6383&PID=31077&title=extrim-v-lispe#31077 Autor: Vladimír Michl
Předmět: 6383
Zasláno: 22.dub.2008 v 09:48

EXTRIM není vnitřní příkaz AutoCADu, ale Express Tool. Takto ho volat nemůžete. Viz:
http://www.cadforum.cz/cadforum/command.asp?cmd=EXTRIM
 
Jedině si zkuste upravit jeho původní LISP kód v extrim.lsp.
]]> Tue, 22 Apr 2008 09:48:31 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6383&PID=31077&title=extrim-v-lispe#31077 <![CDATA[extrim v lispe : v radku (setq bodx1 a následujícím...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6383&PID=31076&title=extrim-v-lispe#31076 Autor: svarc.vl
Předmět: 6383
Zasláno: 22.dub.2008 v 09:44

v radku (setq bodx1 a následujícím by neměli byt uvozovky. příkaz _extrim mi autocad nebere. Bohuzel nemam moc času tak připojuji lisp co jsem si dělal a jako obvykle nedodělal (ošetření úchopů, vymazání vnitřních entit atd).

(setq bod (getpoint "\npocatek"))
(setq bod1 (getcorner bod))
(command "křivka" bod  (list (car bod) (cadr bod1)) bod1 (list (car bod1)
                (cadr bod) ) "U")
(setq ent (entlast))
(setq bod (polar bod 0.785 1.41)  bod1 (polar bod1 3.927 1.41) )
(command "ořež" ent  "" "N" bod bod1 "" "")
(command "_erase" ent "")
]]> Tue, 22 Apr 2008 09:44:49 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6383&PID=31076&title=extrim-v-lispe#31076 <![CDATA[extrim v lispe : Pokusam sa napisat lisp v ktorom...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=6383&PID=31072&title=extrim-v-lispe#31072 Autor: Augur
Předmět: 6383
Zasláno: 22.dub.2008 v 09:04

Pokusam sa napisat lisp v ktorom vyuzivam (alebo by som aspon chcel vyuzivat) command "extrim".. Moja predstava je asi taka, ze v prvom kroku vyberiem obdlznik, (ktory bude tvorit hranicu orezavania)a v dalsom kroku sa vypocita bod vovnutry tohoto objektu, ktory sluzi na urcenie ci sa ma orezavat vsetko okolo objektu alebo vovnutry.
Problem je v tom, ze command ako taky neprebehne.. tvari sa to dost divne.. Vie mi prosim niekto poradit, kde by mohol byt problem??
Prikladam vyber z lispu:

(setq mnozina (ssget "_X" '((0 . "LWPOLYLINE"))))
(setq ent1 (ssname mnozina 0))
(setq zoznam (entget ent1))
(setq bod0 (nth 14 zoznam))
(setq bod1 (nth 1 bod0))
(setq bod2 (nth 2 bod0))
(setq bod3 0)
(setq bodx1 (+ bod1 "1"))
(setq bodx2 (- bod2 "1"))
(setq bodxy (list bodx1 bodx2 bod3))
(command "_extrim" ent1 bodxy)
]]> Tue, 22 Apr 2008 09:04:55 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=6383&PID=31072&title=extrim-v-lispe#31072