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ů.
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řenoDelit v meritku
 Odpovědět Odpovědět archiv
Autor
  Najít Téma Najít Téma  Možnosti tématu Možnosti tématu
Asterix Zobrazit panel
Nováček
Nováček

Přihlášen: 14.čvc.2005
Lokalita: Czech Republic
Stav: Offline
Bodů: 10
 Přímý odkaz na tuto zprávu Téma: Delit v meritku
    Zasláno: 14.čvc.2005 v 13:31
Dobrý den, chtěla bych požádat o radu zkušenějšího programátora než sem já. V cadu je funkce "dělm" (measure), kterou bych potřebovala použít v makru. Bohužel nejsem, schopná nalézt postup jak toho dosáhnout. Poradí někdo? Díky 
Lenka M.
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ů: 21953
 Přímý odkaz na tuto zprávu Zasláno: 14.čvc.2005 v 13:44

v jakém makru?

např. v LISPu stačí něco jako

(setq e (entsel))
(command "_MEASURE" e 123.45)

 
Vladimír Michl (moderátor)
ARKANCE CZ - arkance.world
(podpora viz helpdesk.arkance-systems.cz)
Zpět nahoru
Asterix Zobrazit panel
Nováček
Nováček

Přihlášen: 14.čvc.2005
Lokalita: Czech Republic
Stav: Offline
Bodů: 10
 Přímý odkaz na tuto zprávu Zasláno: 14.čvc.2005 v 13:47
Ve VisualBasicu
Lenka M.
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ů: 21953
 Přímý odkaz na tuto zprávu Zasláno: 14.čvc.2005 v 14:24
to je horší, DIVIDE/MEASURE a EXPLODE nemají ActiveX rozhraní, takže jedině použít SendCommand
Vladimír Michl (moderátor)
ARKANCE CZ - arkance.world
(podpora viz helpdesk.arkance-systems.cz)
Zpět nahoru
Asterix Zobrazit panel
Nováček
Nováček

Přihlášen: 14.čvc.2005
Lokalita: Czech Republic
Stav: Offline
Bodů: 10
 Přímý odkaz na tuto zprávu Zasláno: 14.čvc.2005 v 14:39
Hmmm, tak s tim nemam vubec zadnou zkusenost, ale zkusim to nekde najit. Dekuju
Lenka M.
Zpět nahoru
Asterix Zobrazit panel
Nováček
Nováček

Přihlášen: 14.čvc.2005
Lokalita: Czech Republic
Stav: Offline
Bodů: 10
 Přímý odkaz na tuto zprávu Zasláno: 14.čvc.2005 v 15:12

Tak sem neco nasla, ale neni to uplne ono. Asi mam spatne paramtery. SendCommand poustim v cyklu, ale provede se to pouze u posledniho prvku. Nemohl byste mi jeste poradit? Zapsane to mam nejspis uplne hrozne takhle:

For Each prvky In vyber
ThisDrawing.SendCommand "_measure" & vbCr & "vyber" & vbCr & "b" & vbCr & "geohaie2" & vbCr & "a" & vbCr & "10" & vbCr
 Next prvky

prvky je promenna Dim prvky As AcadEntity

vyber je Dim vyber As AcadSelectionSet

 
Lenka M.
Zpět nahoru
Seiner Zobrazit panel
CAD/BIM manager
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
 Přímý odkaz na tuto zprávu Zasláno: 14.čvc.2005 v 15:32

Jen při zběžném pohledu mi nesedí ...& vbCr & "vyber" & vbCr & "b"...

Vy tam posíláte text vyber, ale podle mého by tam měla být proměnná prvky.
Zpět nahoru
Asterix Zobrazit panel
Nováček
Nováček

Přihlášen: 14.čvc.2005
Lokalita: Czech Republic
Stav: Offline
Bodů: 10
 Přímý odkaz na tuto zprávu Zasláno: 14.čvc.2005 v 16:00
Ja to zkousela oboji, ale chovalo se stejne. Ted to z nejakeho duvodu nefunguje najednou vubec. V prikazove radce v cadu to hlasi chybu Neplatny vyber.Ocekava se jediny objekt. A to i v pripade, kdy je ve vyberu jen 1 prvek. Pro dnesek to vzdavam. Dekuju za pomoc.
Lenka M.
Zpět nahoru
Seiner Zobrazit panel
CAD/BIM manager
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
 Přímý odkaz na tuto zprávu Zasláno: 15.čvc.2005 v 08:18
A jak tvorite tu vyberovou mnozinu?
Zpět nahoru
Asterix Zobrazit panel
Nováček
Nováček

Přihlášen: 14.čvc.2005
Lokalita: Czech Republic
Stav: Offline
Bodů: 10
 Přímý odkaz na tuto zprávu Zasláno: 15.čvc.2005 v 08:19

Tak sem tu zas. Zkousela jsem jiny typ cyklu, kde se pouzivaji indexy, ale nepomohlo to.  Nevim jak mam v prikazu SendCommand napsat parametr prvky(i) tak, aby to pak v prikazove radce nehlasilo chybu *Neplatny vyber*, Ocekava se jediny objekt.

Dim prvky(0 To 10) As AcadEntity

For i = 0 To N
 prvky(i).Offset (-10)
 ThisDrawing.SendCommand "_measure" & vbCr & "prvky(i)" & vbCr & "b" & vbCr & "geohaie2" & vbCr & "a" & vbCr & "10" & vbCr
Next i
Lenka M.
Zpět nahoru
Asterix Zobrazit panel
Nováček
Nováček

Přihlášen: 14.čvc.2005
Lokalita: Czech Republic
Stav: Offline
Bodů: 10
 Přímý odkaz na tuto zprávu Zasláno: 15.čvc.2005 v 08:27

Zatim jen tak provizorne. Mám ve výkresu jen 2 usecky a na tom to zkousim.

For i = 0 To 1
Set prvky(i) = ThisDrawing.ModelSpace.Item(i)
Next i
Lenka M.
Zpět nahoru
Seiner Zobrazit panel
CAD/BIM manager
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
 Přímý odkaz na tuto zprávu Zasláno: 15.čvc.2005 v 08:41
Podle mého je zásadní nepochopení v tom, že tam nemůžete napsat text "prvky(i)". Metoda SendCommand v podstatě posílá texty na příkazovou řádku. Napsala byste na příkazovou řádku prvky(i) a očekávala nějaký výsledek?
Přiznám se, že jsem ještě podobnou konstrukci nepoužil a teď nevím, jak to udělat. V lispu bych se odkazoval na proměnnou, ve které by byla příslušná entita. Možná nějaká konstrukce s příkazem "VYBER" a vybrání Předchozí.
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ů: 21953
 Přímý odkaz na tuto zprávu Zasláno: 15.čvc.2005 v 11:00
Mrkněte se na kurz 13 na stránce Téma - programování AutoCADu a Inventoru, třeba vám to pomůže:
http://www.cadforum.cz/cadforum/tema.asp
Vladimír Michl (moderátor)
ARKANCE CZ - arkance.world
(podpora viz helpdesk.arkance-systems.cz)
Zpět nahoru
Asterix Zobrazit panel
Nováček
Nováček

Přihlášen: 14.čvc.2005
Lokalita: Czech Republic
Stav: Offline
Bodů: 10
 Přímý odkaz na tuto zprávu Zasláno: 15.čvc.2005 v 12:37
Děkuju moc. Projdu to. Hezký den. L.
Lenka M.
Zpět nahoru
Asterix Zobrazit panel
Nováček
Nováček

Přihlášen: 14.čvc.2005
Lokalita: Czech Republic
Stav: Offline
Bodů: 10
 Přímý odkaz na tuto zprávu Zasláno: 15.čvc.2005 v 14:53
Funguje. Uz jen nejaky kosmeticky upravy a je hotovo. Klidne pak dam makro k dispozici kdyz bude zajem. Jeste jednou dekuju vsem a preji hezky den. 
Lenka M.
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 4877:VIPHromadné přenastavení jednotek ve všech DWG výkresech (nesprávné měřítko vkládání).
Tip 2783:VIPJak snadno vytisknout z CADu velký formát na dlaždicově poskládané menší formáty (s přesahem)?
Tip 2124:VIPJak změnit měřítko výkresu pouze v jedné ose (jen X, jen Y, jen Z)?
Tip 5570:VIPJak vytvořit odvozenou součást s nestejnoměrným měřítkem X/Y/Z ?
Tip 5813:Jak se zbavit měřítek anotací vtažených z Xrefů?
Tip 2943:Jak zvětšit nebo natočit několik bloků okolo jejich individuálních vkládacích bodů?


 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,344 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