Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk - od firmy Arkance Systems [www.cadforum.cz]
CZ | SK | EN | DE
Přihlášení
či registrace
   právě nás čte: 1429 
Arkance Systems CZ
FB TW YT LN Blog
PORTÁLY PRODUKTŮ
AutoCAD AutoCAD a LT
Inventor Inventor
Revit Revit
Civil 3D Civil 3D
Fusion 360 Fusion 360
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

 

NápovědaCAD 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 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
  FAQ FAQ  Prohledat fórum   Události   Registrovat Registrovat  Přihlásit Přihlásit

Téma uzavřenoDDEDIT bez dialog boxu pro použití jako script pří
 Odpovědět Odpovědět archiv
Autor
  Najít Téma Najít Téma  Možnosti tématu Možnosti tématu
jerry00769 Zobrazit panel
Nováček
Nováček

Přihlášen: 11.pro.2013
Lokalita: ČR (ÚL)
Používám:
DraftSight
Stav: Offline
Bodů: 9
 Přímý odkaz na tuto zprávu Téma: DDEDIT bez dialog boxu pro použití jako script pří
    Zasláno: 15.kvě.2018 v 09:32
Ahoj všem :-).

Chtěl bych kohokoli požádat o pomoc s vyřešením mého problému. Naprogramoval jsem pár pro nás velmi užitečných příkazů (do souboru script *.scr) pro skrývání a odkrývání hladin u šablon, které používáme, což funguje na pohodu a vše je propojeno z Excelu, který ten script na základě nějakých těch indicií vytváří...

Potřeboval bych ale pomoci s vyřešení textu kót, jinými slovy kóty mají textem v zápisu (př.Hcooler, Wcooler, Lcooler,...), který bych potřeboval následně nahradit adekvátním číslem... Za pomocí příkazu DDEDIT to ručně jde, ale já to potřebuji formou zápisu do scriptu.... což jsem nikde nevygoogloval a řešil to pouze tak, že jsem u kóty smazal text a vkládal je jako blok* s přesným umístěním pozice... která se ale logicky mění... sice funkční ale trochu přes ruku, pač kót je celkem dost, ale hlavně pozice se mění vzhledem k velikosti měnícího se zařízení... (výkres v příloze)

*vložení probíhalo takto:
-INSERT
Hcooler_DIM.DWG
2427.13,21970.61,0
1
1
0
~9500

Možná by to šlo nějak vymyslet jinak... nic mě ale šikovného nenapadá...

Ď za cokoli

Používáme ale DraftSight Free... Pro s VBA nikoli


Připojené souborydwgcooler.dwg
Zpět nahoru
johny Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 24.led.2006
Lokalita: ČR (JM)
Používám:
C3D 2022
Stav: Offline
Bodů: 1671
 Přímý odkaz na tuto zprávu Zasláno: 15.kvě.2018 v 10:20
Jestli to dobře chápu, tak potřebuje funkci najít nahraď. V DraftSight by snad měl fungovat LISP, tak to zkuste. Užití LISP si vygooglete. Je to case-sensitive.

Kód: 
(defun DimTextReplace (find replace / ss i)
  (if (setq ss (ssget "_X" (list '(0 . "DIMENSION") (cons 1 find))))
    (repeat (setq i (sslength ss))
      (entmod (subst (cons 1 replace) (cons 1 find) (entget (ssname ss (setq i (1- i))))))))
  (princ))

Příkaz: 
(DimTextReplace "Hcooler" "8.950") ; "přepsaný" text
(DimTextReplace "Hcooler" "") ; skutečná hodnota


Upravil johny - 15.kvě.2018 v 15:28
Zpět nahoru
jerry00769 Zobrazit panel
Nováček
Nováček

Přihlášen: 11.pro.2013
Lokalita: ČR (ÚL)
Používám:
DraftSight
Stav: Offline
Bodů: 9
 Přímý odkaz na tuto zprávu Zasláno: 18.kvě.2018 v 11:16
Super, moc děkuji

Bohužel k naší smůle LIST, VBA, C++,... je možné spustit pouze na licenci PRO nikoli na FREE > https://forum.solidworks.com/thread/53877

Můžeme pouze užít SCRIPT (*.scr file) příkazy... viz.obrázky a soubor scr v příloze.

Připojené náhledyPřihlaste se pro zobrazení plné verze - 53493/Scipt1.jpg




Připojené náhledyPřihlaste se pro zobrazení plné verze - 53493/Scipt2.jpg




Připojené souboryzipcommandSCR.zip


Jerry
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 9904:Poklepání na text vypíše: neznámý příkaz DDEDIT.
Tip 6648:VIPDávkové spuštění Převodníku hladin - vynucení standardů.
Tip 6682:Ohraničení výkresových objektů obrysovým "boxem".
Tip 9100:VIPSnadná externí modifikace iVlastností souborů Inventoru, bez Inventoru.
Tip 6265:VIPPoužití anglických příkazů v české verzi Revitu.
Tip 289:Jak přidat komentáře k entitám výkresu?


 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,758 sekund.
CF
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
FB TW YT LN Blog
TOPlist
img