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
|
Spojení do křivky
Odpovědět 
|
archiv |
| Autor | |
BenaCZ 
Diskutér 
Přihlášen: 02.říj.2006 Lokalita: ČR (Pha) Používám: AutoCad2007 Stav: Offline Bodů: 60 |
 Téma: Spojení do křivkyZasláno: 25.čer.2007 v 12:24 |
|
Mohli byste mi prosím poradit jak zfunkčnit tento lisp? jedná se o zrychlené spojení čar do 1 křivky.
;;; spoji cary do krivky (defun C:spojitdokrivky (/ PDACPT) ;;;nastaví peditaccept (setq PDACPT (getvar "peditaccept")) (setvar "peditaccept" 1) ;;;vlastní funkce (command "_pedit" pause "p" pause) (princ) ;;; obnovuje původní peditaccept (setvar "peditaccept" PDACPT) (princ) ) Lisp funguje, jen nedokážu po spojení čar do křivky ukončit dialog _pedit  Díky moc za radu. Bena
|
|
|
Bena
|
|
 |
|
|
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: 25.čer.2007 v 14:39 |
|
No já to řeším prozatím PLJOIN, makro podobného typu jak zamýšlíte Vy by se ale hodilo neboť PLJOIN ve vyšších verzích je trošku nespolehlivé.
|
|
|
|
|
chlebovsky
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
Zasloužilý člen 
Přihlášen: 18.čer.2007 Lokalita: ČR (JM) Používám: Autocad R9 - 2022 Stav: Offline Bodů: 112 |
Zasláno: 25.čer.2007 v 15:24 |
|
Pokud jsem to dobře pochopil, tak se Vám jedná o to, že se vám neukončí příkaz editace křivky.
Myslím že když přepíšete ten command tak by to mělo fungovat.
(command "_pedit" pause "_j" (ssget) "" "")
doporučuji psát i to "p" anglicky "_j" bude to fungovat vždy
Martin.
|
|
|
|
|
BenaCZ
Diskutér
Přihlášen: 02.říj.2006 Lokalita: ČR (Pha) Používám: AutoCad2007 Stav: Offline Bodů: 60 |
Zasláno: 25.čer.2007 v 15:29 |
|
Díky moc, je to přesně to co jsem chtěl.
|
|
|
Bena
|
|
|
|
|
johny
TOP uživatel
Přihlášen: 24.led.2006 Lokalita: ČR (JM) Používám: C3D 2024 Stav: Offline Bodů: 1742 |
Zasláno: 04.čvc.2007 v 14:18 |
|
Tak ta promenna "peditaccept" je sikovna, kdyby jen o ni clovek vedel :)
Pred casem jsem to taky resil, jeste jsem po tom chtel aby to pospojovalo ikdyz tam jsou male mezery (do 5 cm) a aby slo objekty vybrat pred spustenim prikazu...
(defun C:ske( / ss index n Ano tepent) ;spoj "krivky" s mezerou do 0.05
(command "_select" pause) (setq ss (ssget "_p")) (setq index 0 n (sslength ss)) (repeat n (setq typent (cdr (assoc 0 (entget (ssname ss index))))) (if (or (equal typent "LINE") (equal typent "ARC")) (setq Ano T)) (setq index (+ 1 index))) (command "_pedit" "_m" "_p" "") (if Ano (command "_y")) ;Kdyz je cara nebo oblouk (command "_j" "_j" "_e" "0.05" "") (princ) ) Takze ten cyklus se necha nahradit vypnutim te sikovene promenne...
|
|
|
|
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,164 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
