CAD FÓRUM - TIPY A TRIKY | UTILITY | DISKUZE | BLOKY | PODPORA | POMOC A RADY
Děkujeme za účast na konferenci CADfórum 2025 - podívejte se na reportáž
Přes 120.000 registrovaných u nás, celkem 1.104.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků.
Vyzkoušejte nový přesný Inženýrský kalkulátor a
proměnné prostředí AutoCADu.
AUTOCAD
INVENTOR
REVIT
CIVIL 3D
FUSION
Diskuzní fórum, poradna
?CAD diskuze, rady, výměna zkušeností
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
|
sipka1
Odpovědět 
|
archiv |
| Autor | |
Ferdinand 
TOP uživatel 
Přihlášen: 01.říj.2004 Lokalita: ČR (JM) Používám: AutoCAD2004 (EN) na Windows XP Stav: Offline Bodů: 1906 |
 Téma: sipka1Zasláno: 28.lis.2007 v 14:55 |
|
Navazuji na téma Šipka - směr - pomocí PLINE ze sekce AutoCAD .
Teď jsem měl trochu času, tak jsem to sepsal do lispu. |
|
|
-FerTh-
|
|
 |
|
|
Radim Cech
TOP uživatel
Přihlášen: 01.říj.2004 Lokalita: ČR (MS) Používám: Autodesk Civil 2020 Stav: Offline Bodů: 848 |
Zasláno: 28.lis.2007 v 15:19 |
|
Máte tam asi nějakou mouchu, se to při opakovaném používání chová divně. Nechytá se to pokaždé za stejný bod. Jinak je to zajímavé řešení, ale přimlouval bych se za chytání za vrchol šipky, aby to tažení pro zvětšení šlo od vstupu a ne do vstupu, když to dám před objekt. A pak než 3x solid, to už je lepší SOLID šrafa. Ale LTčkáři mají smůlu, což při řešení na řádku nebyli.
|
|
|
R.C.
OSTRAVA |
|
|
|
|
Radim Cech
TOP uživatel
Přihlášen: 01.říj.2004 Lokalita: ČR (MS) Používám: Autodesk Civil 2020 Stav: Offline Bodů: 848 |
Zasláno: 28.lis.2007 v 15:29 |
|
Je to asi zapnutým uchopovacím bodem. Jakmile jsem jej zrušil a šipku ukážu buď bez zpřesnění a nebo si uchopovací bod zvolím až před ukázáním místa, pak má šipka správný tvar. První nebo poslední bod "stopky" šipky splyne s místem ukázání. Stačím mit uchopovací režim se zapnutým koncovým a prusečným bodem.
|
|
|
R.C.
OSTRAVA |
|
|
|
|
Ferdinand
TOP uživatel
Přihlášen: 01.říj.2004 Lokalita: ČR (JM) Používám: AutoCAD2004 (EN) na Windows XP Stav: Offline Bodů: 1906 |
Zasláno: 30.lis.2007 v 13:52 |
|
Doplnil jsem to a teď to vypadá takhle
|
|
|
-FerTh-
|
|
|
|
|
Radim Cech
TOP uživatel
Přihlášen: 01.říj.2004 Lokalita: ČR (MS) Používám: Autodesk Civil 2020 Stav: Offline Bodů: 848 |
Zasláno: 30.lis.2007 v 14:42 |
|
Nerad neguji, ale ta verze vyplněná nějak nefunguje. Nekreslí to vůbec nic, co by ve finále připomínalo šipku. |
|
|
R.C.
OSTRAVA |
|
|
|
|
Ferdinand
TOP uživatel
Přihlášen: 01.říj.2004 Lokalita: ČR (JM) Používám: AutoCAD2004 (EN) na Windows XP Stav: Offline Bodů: 1906 |
Zasláno: 03.pro.2007 v 14:53 |
|
Omlouvám se, bylo to v pořadí kreslení entit.
|
|
|
-FerTh-
|
|
|
|
|
PepaR
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
CAD/BIM manager
Přihlášen: 29.lis.2004 Lokalita: ČR (ZL) Používám: ruky a hlavu (občas ;) Stav: Offline Bodů: 6218 |
Zasláno: 03.pro.2007 v 17:33 |
|
Odkaz je nefunkční.
|
|
|
|
|
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 Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Implementujeme řešení Autodesk Stav: Offline Bodů: 22020 |
Zasláno: 03.pro.2007 v 18:38 |
|
Opraveno (pro Ferdinanda: pošlete mi prosím PM zprávu, jak se vám podařilo tam dostat starý formát URL odkazu přílohy - někde možná máme chybku v rozhraní fóra)
|
|
|
|
|
Radim Cech
TOP uživatel
Přihlášen: 01.říj.2004 Lokalita: ČR (MS) Používám: Autodesk Civil 2020 Stav: Offline Bodů: 848 |
Zasláno: 04.pro.2007 v 16:50 |
|
Ale zase to nejde. Havaruje to na C:BODY, asi volání funkce.
A pokud můžu, nechte volání funkce SIPKA
|
|
|
R.C.
OSTRAVA |
|
|
|
|
Ferdinand
TOP uživatel
Přihlášen: 01.říj.2004 Lokalita: ČR (JM) Používám: AutoCAD2004 (EN) na Windows XP Stav: Offline Bodů: 1906 |
Zasláno: 05.pro.2007 v 13:54 |
|
Možná v Civilu se to chová trocho odlišně
 - nevím, Civil neznám. Jasně, příkaz může být nadefinován třebas pod zkratkou SIP - stačí v Notepadu zeditovat... Ale vycházel jsem z obecné zkušenosti, že lispy mívají několik variant - a ty odlišuji číselným indexem na konci. Konečnou (tj. funkční) verzi pak "zfinalizuji" do přijatelnějšího názvu/zkratky. Napadá mne jedna věc: zkusit dát sekvenci C:BODY hned na začátek lispu, před vlastní výkonné jádro.
|
|
|
-FerTh-
|
|
|
|
|
Radim Cech
TOP uživatel
Přihlášen: 01.říj.2004 Lokalita: ČR (MS) Používám: Autodesk Civil 2020 Stav: Offline Bodů: 848 |
Zasláno: 05.pro.2007 v 14:04 |
|
CIVIL je "jen" vylepšený AutoCAD, tím to být nemůže.
Už to fungovalo, akorát to nějak havarovalo s jedním bodem šipky. Proto mně překvapilo, že to teď nejede vůbec
|
|
|
R.C.
OSTRAVA |
|
|
|
|
zdrk
TOP uživatel
Přihlášen: 03.kvě.2007 Lokalita: ČR (KV) Používám: Začínám bojovat s AutoCad 2015 respektive BDS 2015 Stav: Offline Bodů: 1808 |
Zasláno: 05.pro.2007 v 17:37 |
|
Zkusil jsem to dnes na plné verzi cadu 2007 a též to vypíše je chybu C:BODY, jak pro prázdnou tak i pro vyplněnou verzi šipky.
|
|
|
|
|
Ferdinand
TOP uživatel
Přihlášen: 01.říj.2004 Lokalita: ČR (JM) Používám: AutoCAD2004 (EN) na Windows XP Stav: Offline Bodů: 1906 |
Zasláno: 06.pro.2007 v 08:12 |
|
Přeposílám sem - s opravou názvu funkce ze "sipka2" na "sip":
-- Předchozí soukromá zpráva --
Odeslal : Martin Bielina Odesláno : 2007.pro.06 v 01:01 Nevím jestli to není s křížkem po funuse, ale našel jsem tu chybičku, která způsobovala chybové hlášení C:BODY. Nicméně autor Lispu nejsem, tak jen posílám opravený kód pro případné uveřejnění autorem. Poznámka: Uvnitř funkce C:BODY chyběla jedna závorka na setq A navíc jsem udělal z BODY jen lokální subrutinu ;;kresleni sipky ;;-FerTh-20071128 (defun c:sip (/ ORM OSM) (setq ORM (getvar "orthomode")) (setq OSM (getvar "osmode")) (setvar "osmode" 33) (setvar "orthomode" 0) (setvar "filedia" 0) (initget "V P") (SETQ keypart (getkword "\nŠipka bude [Vyplněná/Prázdná]: <V> ")) (if (= keypart nil) (setq keypart "V") ) (cond ((= keypart "P") ;prazdna sipka (progn (BODY) (command "_zoom" "_W" W3 W4) (command "_pline" ZB B1 B5 B6 B7 B8 B2 "_C") (command "_zoom" "_P") ) (setq part 1) ) ((= keypart "V") ;vyplnena sipka (progn (BODY) (command "_zoom" "_W" W3 W4) (command "_trace" 0.5 B3 B4 "") (command "_solid" B1 ZB B2 "" "") (command "_zoom" "_P") ) (setq part 2) ) ) (command "_rotate" "_W" W1 W2 "" ZB pause) (command "_scale" "_P" "" ZB pause) (setvar "orthomode" ORM) (setvar "osmode" OSM) (setvar "filedia" 1) ) ;;podrutina pro ziskani bodu (defun BODY () (command "_solid" pause ^c^c) (setq ZB (getvar "lastpoint")) (setq B1 (list (+ (car ZB) 1) (- (cadr ZB) 0.5))) (setq B2 (list (+ (car ZB) 1) (+ (cadr ZB) 0.5))) (setq B3 (list (+ (car ZB) 1) (cadr ZB))) (setq B4 (list (+ (car ZB) 2) (cadr ZB))) (setq B5 (list (+ (car ZB) 1) (- (cadr ZB) 0.25))) (setq B6 (list (+ (car ZB) 2) (- (cadr ZB) 0.25))) (setq B7 (list (+ (car ZB) 2) (+ (cadr ZB) 0.25))) (setq B8 (list (+ (car ZB) 1) (+ (cadr ZB) 0.25))) (setq W1 (list (car ZB) (- (cadr ZB) 0.5))) (setq W2 (list (+ (car ZB) 2) (+ (cadr ZB) 0.5))) (setq W3 (list (- (car ZB) 5) (- (cadr ZB) 5.0))) (setq W4 (list (+ (car ZB) 7) (+ (cadr ZB) 5.0))) ) Pozn.: lisp je ke stažení pod názvem "sip.lsp" na
Upravil Ferdinand - 06.pro.2007 v 08:28 |
|
|
-FerTh-
|
|
|
|
|
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ů: 1252 |
Zasláno: 06.pro.2007 v 09:20 |
|
Dovolil jsem si odkomentovat řádek
--- ;;(command "_trace" 0.5 B3 B4 "") --- protože vyplněná šipka pod úhlem odlišným od 0/90/180/270° se nevykresluje správně. Takto upravený lisp nakreslí při volbě "Vyplněná" pouze vyplněný trojúhelník, bez dalších čar. |
|
|
|
|
Ferdinand
TOP uživatel
Přihlášen: 01.říj.2004 Lokalita: ČR (JM) Používám: AutoCAD2004 (EN) na Windows XP Stav: Offline Bodů: 1906 |
Zasláno: 06.pro.2007 v 13:51 |
|
Můj původní záměr byl, že 1. se vykreslí celá šipka (prázdná anebo plná - dle volby) v úhlu 0dg. (ukazuje doleva) a pak hotová se 2. otočí a 3. zvětší. Upravená verze dle vbehun by měla dělat (při volbě V) opravdu jen: 1. vykreslí plný trojúhelníček v úhlu 0dg. (ukazuje doleva), 2. otočí a 3. zvětší - anebo (při volbě P): 1. vykreslí celou prázdnou šipku v úhlu 0dg. (ukazuje doleva) a pak hotovou 2. otočí a 3. zvětší. Takhle se docílí tvarově nesouhlasných "šipek". Poslední variantu viz zde.
Upravil Ferdinand - 06.pro.2007 v 13:53 |
|
|
-FerTh-
|
|
|
|
Možnosti tématuPro technickou podporu CAD
kontaktujte Helpdesk
|
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.
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
