Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk - od firmy CAD Studio [www.cadforum.cz]
Česky Slovensky English Deutsch
Přihlášení:
▶ Registrace

 právě nás čte: 2703 
RSS tipy RSS kanál - CAD tipy
RSS diskuze RSS kanál - CAD 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 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

DDEDIT bez dialog boxu pro použití jako script pří

 Odpovědět Odpovědět archiv
Autor
jerry00769 Zobrazit panel
Nováček
Nováček

Přihlášen: 11.pro.2013
Lokalita: ČR (ÚL)
Používám:
DraftSight
Stav: Offline
Bodů: 3
Možnosti příspěvku Možnosti příspěvku   Poděkování (0) Poděkování0   Citace jerry00769 Citace  OdpovědětOdpověď 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:
AutoCAD Civil 3D 2016
Stav: Offline
Bodů: 1253
Možnosti příspěvku Možnosti příspěvku   Poděkování (1) Poděkování1   Citace johny Citace  OdpovědětOdpověď 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ů: 3
Možnosti příspěvku Možnosti příspěvku   Poděkování (0) Poděkování0   Citace jerry00769 Citace  OdpovědětOdpověď 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 289:Jak přidat komentáře k entitám výkresu?
Tip 6265:VIPPoužití anglických příkazů v české verzi Revitu.


 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,250 sekund.