ARKANCE - globální Platinum partner Autodesk ARKANCE | KONTAKT - CZ | SK | EN | DE
Registrujte se na 22. ročník konference CADfórum 2025 - 30.9. Zámek Valeč.
Přes 119.000 registrovaných u nás, celkem 1.097.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků. Vyzkoušejte nový přesný Inženýrský kalkulátor a aktualizovaný Generátor čarových kódů.
DEFENCEO - cesta k zakázkám v obranném průmyslu
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

?
CAD diskuze, rady, výměna zkušeností

CAD Fórum - Homepage Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion, 3ds Max, Vault a s dalšími CAD/BIM/PDM aplikacemi. Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.
Fórum nenahrazuje technický support firmy ARKANCE (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.arkance-systems.cz
  FAQ FAQ  Prohledat fórum   Události   Registrovat Registrovat  Přihlásit Přihlásit

Téma uzavřenoextrim v lispe
 Odpovědět Odpovědět archiv
Autor
  Najít Téma Najít Téma  Možnosti tématu Možnosti tématu
Augur Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 24.led.2005
Stav: Offline
Bodů: 103
 Přímý odkaz na tuto zprávu Téma: extrim v lispe
    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)
Designer/Projektant/Ucitel
Autocad 2007
Zpět nahoru
svarc.vl Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 01.říj.2004
Lokalita: ČR (ÚL)
Používám:
Autocad Mechanical 2010
Stav: Offline
Bodů: 204
 Přímý odkaz na tuto zprávu 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 "")
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
ARKANCE

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 21952
 Přímý odkaz na tuto zprávu Zasláno: 22.dub.2008 v 09:48
EXTRIM není vnitřní příkaz AutoCADu, ale Express Tool. Takto ho volat nemůžete. Viz:
 
Jedině si zkuste upravit jeho původní LISP kód v extrim.lsp.
Vladimír Michl (moderátor)
ARKANCE CZ - arkance.world
(podpora viz helpdesk.arkance-systems.cz)
Zpět nahoru
Ferdinand Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 01.říj.2004
Lokalita: ČR (JM)
Používám:
AutoCAD2004 (EN) na Windows XP
Stav: Offline
Bodů: 1906
 Přímý odkaz na tuto zprávu 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?)
-FerTh-
Zpět nahoru
svarc.vl Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 01.říj.2004
Lokalita: ČR (ÚL)
Používám:
Autocad Mechanical 2010
Stav: Offline
Bodů: 204
 Přímý odkaz na tuto zprávu 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
Zpět nahoru
Ferdinand Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 01.říj.2004
Lokalita: ČR (JM)
Používám:
AutoCAD2004 (EN) na Windows XP
Stav: Offline
Bodů: 1906
 Přímý odkaz na tuto zprávu 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
-FerTh-
Zpět nahoru
Mrázek Zobrazit panel
TOP uživatel
TOP uživatel
Avatar

Přihlášen: 05.říj.2004
Lokalita: ČR (LB)
Používám:
Inventor 2018, AutoCAD 2018, Vault Pro 2018
Stav: Offline
Bodů: 1199
 Přímý odkaz na tuto zprávu 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.
Ing. Zdeněk Mrázek
Preciosa Ornela a.s.
AIP 2018, ACADM 2018, Vault Pro 2018
Zpět nahoru
Mrázek Zobrazit panel
TOP uživatel
TOP uživatel
Avatar

Přihlášen: 05.říj.2004
Lokalita: ČR (LB)
Používám:
Inventor 2018, AutoCAD 2018, Vault Pro 2018
Stav: Offline
Bodů: 1199
 Přímý odkaz na tuto zprávu 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"
Ing. Zdeněk Mrázek
Preciosa Ornela a.s.
AIP 2018, ACADM 2018, Vault Pro 2018
Zpět nahoru
svarc.vl Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 01.říj.2004
Lokalita: ČR (ÚL)
Používám:
Autocad Mechanical 2010
Stav: Offline
Bodů: 204
 Přímý odkaz na tuto zprávu 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
Zpět nahoru
Augur Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 24.led.2005
Stav: Offline
Bodů: 103
 Přímý odkaz na tuto zprávu 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
Designer/Projektant/Ucitel
Autocad 2007
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 555:Jak oříznout najednou všechny entity na hranu kružnice, polygonu nebo křivky?
Tip 11607:Ořez obdélníkem - oříznutí na výřez výkresu.
Tip 14629:Rozšířený ASCPOINT - import souřadnic z CSV souboru, včetně bloků s atributy, GPS souřadnic apod.
Tip 14603:QRcode - dynamicky generované QR kódy v AutoCADu.
Tip 14510:Typy čar AutoCADu - kódy orientace A/R/U v komplexních typech čar.
Tip 14495:Převod skenovaných mračen bodů nebo fotografií na BIM objekty - Scan-to-BIM.


 Odpovědět Odpovědět

Přejít na fórum Oprávnění fóra Zobrazit panel



Stránka byla vygenerována za 0,422 sekund.
CADfórum
CADfórum
Tipy, triky, podpora, pomoc a rady pro AutoCAD, LT, Inventor, Revit, Map, Civil 3D, 3ds Max, Fusion, Forma, Vault, PowerMill a další Autodesk aplikace (support firmy ARKANCE). Viz O portálu.
Copyright © 2025 | Web reklama na tomto serveru | Ochrana soukromí, podmínky
ARKANCE (CAD Studio) - Autodesk Platinum Partner & Training Center & Services Partner
KONTAKT:
webmaster.cz@arkance.world | tel. +420 910 970 111
FB LN TW YT TW Blog RSS
.
TOPlist
img