![Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk - od firmy Arkance Systems [www.cadforum.cz]](http://www.cadforum.cz/common/cf-top-logo.png "Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk - od firmy Arkance Systems [www.cadforum.cz]"){kind=logo}
AutoCAD a LT
Inventor
Revit
Civil 3D
Fusion 360
Diskuzní fórum, poradna
|
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 360, 3ds Max a s dalšími CAD 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 Systems (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.cadstudio.cz
|
Akce poklepáním
Odpovědět 
|
Stránka <123> archiv |
| Autor | |
BenaCZ 
Diskutér 
Přihlášen: 02.říj.2006 Lokalita: ČR (Pha) Používám: AutoCad2007 Stav: Offline Bodů: 60 |
 Zasláno: 03.říj.2006 v 14:56 |
|
Supeeer takto je to parádní
 . I když máte pravdu, že kdyby se to pak vrátilo na původní nastavení, tak by to bylo úplně geniální. Kdyby jste na to přišli, napište to prosím sem. Díky moc Bena
|
|
|
Bena
|
|
 |
|
|
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 |
Zasláno: 03.říj.2006 v 15:25 |
|
Třeba pro úsečku by to muselo vypadat nějak takhle:
na začátek Curr.lsp doplnit:
(defun C:CURR ()
(setq lastlayer (getvar "Clayer") lastweight (getvar "CELWEIGHT") lastcolor (getvar "CECOLOR") lastltype (getvar "CELTYPE")) .... a místo _LINE použít nově definovanou funkci LINE1:
(Defun C:line1( )
(Setq a (getpoint "\nPočáteční bod:"))
(While (/= a nil) (Setq a1 (getpoint a "\nBod:"))
(If (/= a1 nil) (Command "_line" a a1 "")) (setq a a1) ) (setvar "CLAYER" lastlayer) (setvar "CELWEIGHT" lastweight) (setvar "CECOLOR" lastcolor) (setvar "CELTYPE" lastltype) )
Pozn.: je evidentní, že LINE1 je "hloupější", než _LINE, ale už se mi na tom nechce vyšívat. Upravil Seiner - 03.říj.2006 v 15:26 |
|
|
Vítězslav Seiner
Chrudim |
|
|
|
|
pavelstyl
Zasloužilý člen 
Přihlášen: 06.říj.2004 Lokalita: Czech Republic Používám: AutoCAD Mech 2023, SolidEdgeE 2023 Stav: Offline Bodů: 223 |
Zasláno: 04.říj.2006 v 07:08 |
Můžete být prosím trošku konkrétnější. Asi jsem slepý, ale v CUI dialogu žásnou sekci "Akce poklepáním" nevidím.
AutoCAD 2006 Mechanical EN
Děkuji Pavel Štyl
|
|
|
|
|
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 |
Zasláno: 04.říj.2006 v 07:11 |
|
To bude asi tím, že se tady celou dobu bavíme o 2007 :-)
|
|
|
Vítězslav Seiner
Chrudim |
|
|
|
|
pavelstyl
Zasloužilý člen
Přihlášen: 06.říj.2004 Lokalita: Czech Republic Používám: AutoCAD Mech 2023, SolidEdgeE 2023 Stav: Offline Bodů: 223 |
Zasláno: 04.říj.2006 v 07:13 |
|
:-( |
|
|
|
|
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 |
Zasláno: 04.říj.2006 v 07:52 |
|
Ještě obecnější dotaz, který mi při hraní si s touto fíčurou vystal:
Abych mohl do akcí, které se dějí na poklepání dát i návrat na původní nastavení, nemůžu použít normální volání příkazu např. _LINE, ale nějak to v listu obejít. Pokud bych chtěl zachovat plné možnosti příkazu (třeba u oblouku všechny možnosti zadání), bude to dost pracné a jistě i zdrojem chyb.
Neví někdo, jak v menu zavolat standardní příkaz s předem neznámým počtem vstupů a pak se vrátit do menu a pokračovat nějakou akcí?
|
|
|
Vítězslav Seiner
Chrudim |
|
|
|
|
BenaCZ
Diskutér
Přihlášen: 02.říj.2006 Lokalita: ČR (Pha) Používám: AutoCad2007 Stav: Offline Bodů: 60 |
Zasláno: 04.říj.2006 v 08:06 |
|
Včera jsem to zkoušel definovat např pro křivku, polygon obdélník nebo kótu. U těchto objektů to nefunguje, Nechtěli se načíst vlastnosti těchto objektů. U kót by to chtělo ještě dopsat, aby to přebíralo i vlastnosti kótovacího stylu (buď čistě jen kótovací styl nebo podrobně všechny možné nastavení kóty). I když přepíšu v akci poklepáním tu funkci (u těchto objektů) tak se mi furt spouští ta původní akce. Co s tím? Bena
|
|
|
Bena
|
|
|
|
|
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: Dodáváme produkty Autodesk Stav: Offline Bodů: 21490 |
Zasláno: 04.říj.2006 v 08:07 |
|
To není úplně triviální a čistě přes menu to asi nepůjde. Ale třeba v LISPu to jde řešit třeba předáváním zadaných údajů přes (command) a testováním CMDACTIVE ve smyčce (jestli ještě příkaz běží), nebo třeba reaktorem.
|
|
|
|
|
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 |
Zasláno: 04.říj.2006 v 09:08 |
|
Myslel jsem ssamozřejmě v lispu. Až bude chvilka, zkusím Vaši radu.
|
|
|
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 |
Zasláno: 04.říj.2006 v 09:15 |
|
Já nevím, jestli do toho chcete investovat tu práci - ono to nebude úplně jednoduché. Např. Obdélník není podle mého extra entita, takže bude problém dosáhnout její tvorby tímto postupem.
Určitý přehled o vlastnostech objektů získáte např. tak, že si napíšete na příkazovou řádku (entget(car (entsel))) a vyberete pořadovanou entitu. Podle toho by se potom upravoval lisp pro získání vlastností.
|
|
|
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 |
Zasláno: 04.říj.2006 v 09:21 |
|
Mimochodem, kód 370 jsem převzal bez přemýšlení z kódu, který jste zde uváděl, ale tloušťka čáry je podle mne 39. Co je ta 370?
|
|
|
Vítězslav Seiner
Chrudim |
|
|
|
|
BenaCZ
Diskutér
Přihlášen: 02.říj.2006 Lokalita: ČR (Pha) Používám: AutoCad2007 Stav: Offline Bodů: 60 |
Zasláno: 04.říj.2006 v 10:14 |
Takováto pomůcka je určitě velmi užitečná. my jsme v kanceláři dělali v Allplanu, kde to takto fungovalo. Po přechodu na Autocad to všem velmi chybí. Možná, že lidem, kteří dělali vždy v Autocadu to nepřijde až tak dobrý, ale kdyby si to vyzkoušeli, tak si myslím že by jim to taky chybělo  . To 370 jsem taky převzal z lispu, který jsem stáhnul.
|
|
|
Bena
|
|
|
|
|
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 |
Zasláno: 04.říj.2006 v 10:26 |
|
Podle seznamu skupinových kódů DXF by to měla být Lineweight - tedy ne tloušťka ale VÁHA čáry. Já vůbec netuším, co je to za vlastnost. :-(
|
|
|
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 |
Zasláno: 04.říj.2006 v 10:27 |
|
K užitečnosti: ano jde opravdu asi o zvyk. U nás se konstruktéři tvářili dost skepticky, když jsem jim to poslal. Dělali vždy v AutoCADu.
|
|
|
Vítězslav Seiner
Chrudim |
|
|
|
|
BenaCZ
Diskutér
Přihlášen: 02.říj.2006 Lokalita: ČR (Pha) Používám: AutoCad2007 Stav: Offline Bodů: 60 |
Zasláno: 04.říj.2006 v 10:34 |
|
Vyzkoušel jsem si tu funkci (entget(car (entsel)))
Už vím proč to u obdelníku a u kót nejde. Nevím ale jak to předefinovat, aby to fungovalo, když je to vlastně furt ten samý objekt. Takto jak to je bych uměl definovat, že při poklepu na kterýkoli typ kóty se mi spustí třeba přímá kóta... což není teda ideální. 
|
|
|
Bena
|
|
|
|
|
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 |
Zasláno: 04.říj.2006 v 10:40 |
|
U kót by to ještě nějak v lispu mohlo jít rozhodnout, který příkaz se spustí. Kód 100 určuje druh kóty. Ale u toho polygonu nebo obdélníku, obávám se, řešení není. Příkazy prostě kreslí ozavřenou polylajnu a těžko z ní poznáte, jak byla vytvořena.
|
|
|
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 |
Zasláno: 04.říj.2006 v 10:51 |
|
Tak už je mi to snad jasné. Smotal jsem dohromady tloušťku a tloušťku čáry. Snad mi může být omluvou, že ani jednu, ani druhou vlastnost běžně nepoužíváme. Ten kód 370 je správně.
|
|
|
Vítězslav Seiner
Chrudim |
|
|
|
|
BenaCZ
Diskutér
Přihlášen: 02.říj.2006 Lokalita: ČR (Pha) Používám: AutoCad2007 Stav: Offline Bodů: 60 |
Zasláno: 04.říj.2006 v 10:51 |
|
Nemohl byste to prosím zkusit ještě napsat pro ty kóty? To bych určitě nezvládl. Jediné čím bych se mohl odvděčit jsou různé prográmky v excelu na stavařinu a statiku [IMG]smileys/smiley2.gif" align="middle" /> viz www.petrbenes.info , když by to někomu u vás pomohlo... Bena
P.S. Výkazy materiálu a databáze mám teď ještě vylepšené, tak bych je tam pak taky šoupnul Upravil BenaCZ - 04.říj.2006 v 11:05 |
|
|
Bena
|
|
|
|
Možnosti tématu
Vladimír Michl napsal(a):Pro technickou podporu CAD
kontaktujte Helpdesk
|
Odpovědět
|
Stránka <123> archiv |
| 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 1,617 sekund.
 |
CAD Fórum - tipy, triky, podpora, pomoc a rady pro AutoCAD, LT, Inventor, Revit, Map, Civil 3D, 3ds Max, Fusion 360 a další Autodesk aplikace (support firmy Arkance Systems)
|
ARKANCE (CAD Studio) - Autodesk Platinum Partner & Training Center & Services Partner
|
KONTAKT:
webmaster.cz@arkance-systems.com tel. +420 910 970 111 |
| Copyright ©2024 | Web reklama na tomto serveru | Ochrana soukromí, podmínky |
| ||
