CAD FÓRUM - TIPY A TRIKY | UTILITY | DISKUZE | BLOKY | PODPORA | POMOC A RADY
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ů.
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
|
LISP zaokruhlenie
Odpovědět 
|
archiv |
| Autor | |
Acid3P 
Diskutér 
Přihlášen: 04.bře.2009 Lokalita: Slovensko Používám: PowerCivil, Revit, Civil3D Stav: Offline Bodů: 65 |
 Téma: LISP zaokruhlenieZasláno: 04.čvc.2011 v 14:02 |
|
Dobry den!
Vie neikto z vas o LISPe, ktory by vedel zaokruhlit text na zadany pocet miest? Pouzivam PK soft tools s prikazom TT, ktora oreze pozadovany pocet znakov zo zaciatku alebo konca textu, ale ja by som potreboval, aj spominane zaokruhlovanie. Skusal som hladat aj cez google, ale zatial som pozadovany lisp nenasiel.
|
|
 |
|
|
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ů: 6206 |
Zasláno: 04.čvc.2011 v 14:04 |
|
Dobrý den,
nepomohlo by následující téma?
|
|
|
|
|
Mantlík
TOP uživatel
Přihlášen: 01.říj.2004 Lokalita: ČR (Pha) Používám: ACAD/Map/Civil R10-> 2022 Stav: Offline Bodů: 2578 |
Zasláno: 04.čvc.2011 v 14:50 |
|
Dřív se při programování zaokrouhlovalo tak, ře se k poslednímu potřebnému řádu přičetla jeho polovina Takže např. při zaokrouhlování na dvě desetinná místa se přičítalo 0,005 a pak se to za 2. desetinným místem odřízlo, např. 12,144 + 0,005 = 12,149 -> po odříznutí je 12,14 12,145 + 0,005 = 12,150 -> po odříznutí je 12,15 12,149 + 0,005 = 12,154 -> po odříznutí je 12,15 asi by to šlo implementovat do toho lispu TT, před "ořezávací" řádek dát něco, jako (setq a (+ 0.005 a))(možná má i lisp něco pro zaokrouhlování, tak zběhlý zase nejsem)
|
|
|
J. Mantlík
|
|
|
|
|
Mantlík
TOP uživatel
Přihlášen: 01.říj.2004 Lokalita: ČR (Pha) Používám: ACAD/Map/Civil R10-> 2022 Stav: Offline Bodů: 2578 |
Zasláno: 04.čvc.2011 v 16:05 |
|
J. Mantlík
|
|
|
|
|
DodoSVK
Zasloužilý člen 
Přihlášen: 13.říj.2007 Lokalita: Slovensko Používám: MAP 3D Stav: Offline Bodů: 184 |
Zasláno: 03.srp.2011 v 10:59 |
|
Prosim Vas kam treba dany script doplnit do scriptu TRIM TEXT, aby okrem orezavania sa dalo nastavit aj to zaokruhlovanie....
dakujem
; *** TRIM TEXT v0.8.0 *** (defun C:TT ( / n ptxt ntxt pref suf mtxt) ; define number of start cut (initget 4) (setq pref (getint "\nWrite number of start cut <0>: ")) (if (null pref) (setq pref 0)) ; define sufix (initget 4) (setq suf (getint "\nWrite number of end cut <0>: ")) (if (null suf) (setq suf 0)) (if (and (eq pref 0) (eq suf 0)) (princ "\nNo changes... End command.") (progn (setq ptxt 0) (while (/= ptxt nil) (princ "\nSelect (m)text to edit... [press enter for end command]") (setq ptxt (ssget '( (-4 . "<OR") (0 . "TEXT") (0 . "MTEXT") (-4 . "OR>") ))) (if (/= ptxt nil) (progn (setq n 0) (repeat (sslength ptxt) (setq ntxt (cdr (assoc 1 (entget (ssname ptxt n))))) ; test length of trim (if (< (strlen ntxt) (+ pref suf)) (alert "\nLength of start + end cut is longer, as length of the text.") (if (eq (strlen ntxt) (+ pref suf)) (progn (if (null del) (progn (initget "Yes No") (setq del (getkword "\nLength of start + end cut is equal as length of the text. Do you want delete text entit? <Yes>/No: ")) (if (null del) (setq del "Yes")) ) ) (if (eq del "Yes") (entdel (ssname ptxt n)) ) ) (progn (setq ntxt (substr ntxt (1+ pref) (- (strlen ntxt) (+ pref suf)))) (setq mtxt (subst (cons 1 ntxt) (assoc 1 (entget (ssname ptxt n))) (entget (ssname ptxt n)))) (entmod mtxt) ) ) ) (setq n (1+ n)) ) ) (princ "\nEnd command.") ) ) ) ) (princ) ) |
|
|
|
|
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ů: 21951 |
Zasláno: 03.srp.2011 v 11:39 |
|
Ten kód se na zaokrouhlování moc nehodí - zkuste RoundT na stránce Download, narychlo spíchnuto.
(Neošetřuje desetinnou čárku)
|
|
|
|
|
DodoSVK
Zasloužilý člen
Přihlášen: 13.říj.2007 Lokalita: Slovensko Používám: MAP 3D Stav: Offline Bodů: 184 |
Zasláno: 03.srp.2011 v 12:11 |
|
funguje vyborne len tu ciarku by to chcelo este neako zapracovat, neviem ci je to zlozite.. lebo takto hrozi velke riziko ze pride ku chybe, ked by som tymto prikazom upravoval viacej cisel, a mal by som omylom medzi nimi jedno z ciarkou...
2.555 => 2.56
2,555 => 2.00
uz len tazko by si potom vsimol ze doslo ku takejto hrubej chybe .To uz by bolo lepsie keby tie s ciarkou odignorovalo a nechalo trojmiestne....Nedoslo by tak ku chybe, v pripade ze omylom dam zaokruhlit cislo s ciarkou.
Ak je to otazka par klikov tak by som Vas poprosil este ten script upravit.
Dakujem.
|
|
|
|
|
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ů: 21951 |
Zasláno: 03.srp.2011 v 15:34 |
|
Aktualizovaná verze RoundT teď zaokrouhluje jen čistá čísla a ošetřuje možné chyby. Řeší (a zachovává) i desetinnou čárku. Zadáním záporného počtu deset.míst jde vynutit zobrazování koncových nul.
Viz Download
|
|
|
|
|
Acid3P
Diskutér
Přihlášen: 04.bře.2009 Lokalita: Slovensko Používám: PowerCivil, Revit, Civil3D Stav: Offline Bodů: 65 |
Zasláno: 05.srp.2011 v 09:39 |
|
funguje to vyborne, plni to presne funkciu, ktoru som hladal. Dakujem!
|
|
|
|
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,367 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
