ARKANCE - globální Platinum partner Autodesk ARKANCE | KONTAKT - CZ | SK | EN | DE
Již 10.000+ CAD tipů. Přes 118.000 registrovaných u nás, celkem 1.092.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků. Vyzkoušejte nový přesný Inženýrský kalkulátor. Kompletní příkazy AutoCADu a proměnné AutoCADu 2026.
Jak novinky řešení Autodesk a ARKANCE ovlivní budoucnost stavebnictví
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řenoLisp
 Odpovědět Odpovědět archiv
Autor
  Najít Téma Najít Téma  Možnosti tématu Možnosti tématu
krtecek1600 Zobrazit panel
Nováček
Nováček

Přihlášen: 20.srp.2012
Lokalita: ČR (LB)
Používám:
invertor
Stav: Offline
Bodů: 4
 Přímý odkaz na tuto zprávu Téma: Lisp
    Zasláno: 18.lis.2012 v 21:45
Dobrý den,

mam dotaz ohledně programu LISP. Pomocí LISPU mám napsat program pro vytvoření koule drátového modelu nebo objemového modelu.

Mělo by to fungovat, tak že si ten program vyvolám pomocí auto cadu a tam zapíši poloměr koule a koule se mi vykreslí.

bohužel vůbec nevím, jak na to.

prosím poraďte jsem ochotný i zaplatit odměnu tomu kdo ten program napíše a vysvětlí mi těch 15 řádků příkazů na co který je.

jsem totiž úplně z jiného oboru a věřím, že ten kdo se živí cadem tak to bude pro něho otázka pár minut.

s Pozdravem.
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
Arkance Systems

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 21898
 Přímý odkaz na tuto zprávu Zasláno: 18.lis.2012 v 22:25
Proč 15 řádků? Tohle je "program" pro objemový model:
 
(command "_SPHERE" pause (getdist "Poloměr:"))
Vladimír Michl (moderátor)
ARKANCE CZ - arkance.world
(podpora viz helpdesk.arkance-systems.cz)
Zpět nahoru
hoboj Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 22.led.2008
Lokalita: ČR (HK)
Používám:
NX; ProE; Creo; I13; AutoCAD2011, SurfCAM, EdgeCAM
Stav: Offline
Bodů: 811
 Přímý odkaz na tuto zprávu Zasláno: 19.lis.2012 v 15:59
Potřeboval bych Lisp na přeukládání na starší verzi-> na R14.
 
Super by bylo, když by šlo takhle přeuložit více souborů najednou... že by se zadala pouze cesta čtení a cesta uložení.Wink
Vojtěch Visingr
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
Arkance Systems

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 21898
 Přímý odkaz na tuto zprávu Zasláno: 19.lis.2012 v 16:06

Jedna z možností je použití automatického reaktoru PreSave - ten vždy uloží kromě normálního DWG i jeho kopii ve starším formátu (do zadaného adresáře).

Viz:
Vladimír Michl (moderátor)
ARKANCE CZ - arkance.world
(podpora viz helpdesk.arkance-systems.cz)
Zpět nahoru
hoboj Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 22.led.2008
Lokalita: ČR (HK)
Používám:
NX; ProE; Creo; I13; AutoCAD2011, SurfCAM, EdgeCAM
Stav: Offline
Bodů: 811
 Přímý odkaz na tuto zprávu Zasláno: 19.lis.2012 v 16:11
stránka se mi nezobrazuje Confused
 
Lze to použít na více souborů najednou? Jedná se mi o to, že mám výkres v Inventoru, který dám exportovat do AutoCADu a potom ještě musím uložit do starší verze a chtěl bych nějak docílit, abych tento krok z AutoCADu do starší verze urychlil...
Vojtěch Visingr
Zpět nahoru
splonk Zobrazit panel
CAD/BIM manager
CAD/BIM manager
Avatar

Přihlášen: 25.lis.2006
Lokalita: ČR (Pha)
Používám:
AutoCAD/ACA'21, '24, RVT'21, '24
Stav: Offline
Bodů: 1273
 Přímý odkaz na tuto zprávu Zasláno: 19.lis.2012 v 16:35
Dobry den,
Neco podobneho pouzivam pro eoprt vykresu z AutoCAD Architecture do holeho AutoCADu...
LISP kery otevira vsechny DWGcka ve slozce (i v podslozkach) jsem kdysi tady vyvesil... Pak stacilo do Startupu AutoCADu dat LISP pro export do xzy a je to (vyexportovana DWGcka to ukladalo do stejne slozky jako originaly)... Sice je to delane hodne "na kolene" a Pro ACA 2012... myslim si ale, ze by i ve Vasem pripade toto slo aplikovat.
V pripade zajmu mi napiste... budu se tomu moct venovat az zitra... pokud to uz neni pozde???
 
Zdravim
JASponza
JASponza

ACA (AutoCAD) 21, 24
RVT 21, 24

Win 10, 11 x64
Zpět nahoru
hoboj Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 22.led.2008
Lokalita: ČR (HK)
Používám:
NX; ProE; Creo; I13; AutoCAD2011, SurfCAM, EdgeCAM
Stav: Offline
Bodů: 811
 Přímý odkaz na tuto zprávu Zasláno: 19.lis.2012 v 16:55
To by mi stačilo.
 
Děkuji , ozvu seWink
Vojtěch Visingr
Zpět nahoru
vbehun Zobrazit panel
TOP uživatel
TOP uživatel
Avatar

Přihlášen: 04.říj.2004
Lokalita: ČR (ZL)
Používám:
Autocad R10 >> Autocad 2023 / altern. QCad Prof.
Stav: Offline
Bodů: 1247
 Přímý odkaz na tuto zprávu Zasláno: 20.lis.2012 v 12:23
Původně odeslal(a) hoboj hoboj napsal(a):

stránka se mi nezobrazuje Confused
Lze to použít na více souborů najednou? Jedná se mi o to, že mám výkres v Inventoru, který dám exportovat do AutoCADu a potom ještě musím uložit do starší verze a chtěl bych nějak docílit, abych tento krok z AutoCADu do starší verze urychlil...


Možná by postačil obyčejný Autodesk ScriptPro s příkazem "SaveAs"
=^..^=
Zpět nahoru
hoboj Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 22.led.2008
Lokalita: ČR (HK)
Používám:
NX; ProE; Creo; I13; AutoCAD2011, SurfCAM, EdgeCAM
Stav: Offline
Bodů: 811
 Přímý odkaz na tuto zprávu Zasláno: 20.lis.2012 v 12:35
To neznám, co to umí?
Vojtěch Visingr
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: 20.lis.2012 v 13:08
ScriptPro je generátor scriptů. Jeho výhoda oproti jiným je, že do určité míry je schopen řešit selhání, nevýhoda podle mého je, že toto řešení vyžaduje prodlevy v zavírání výkresů.
  Jednoduché scripty /dema jde v podstatě tvořit pomocí notepadu, když si třeba za základ vezmete výstup příkazu Dir. Ale generátor má tu výhodu, že může (bez znalosti syntage Dir) prolézt adresářovou strukturu a "vysbírat" soubory, a že můžete mít připravené vyzkoušené sekvence příkazů pro různé účely.


Upravil Seiner - 20.lis.2012 v 13:09
Vítězslav Seiner

Chrudim
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
Arkance Systems

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 21898
 Přímý odkaz na tuto zprávu Zasláno: 20.lis.2012 v 13:18
Myslím že pro tento účel bohatě poslouží i standardní příkaz PŘEVEĎDWG, resp. TrueView - viz starší tip:
Vladimír Michl (moderátor)
ARKANCE CZ - arkance.world
(podpora viz helpdesk.arkance-systems.cz)
Zpět nahoru
krtecek1600 Zobrazit panel
Nováček
Nováček

Přihlášen: 20.srp.2012
Lokalita: ČR (LB)
Používám:
invertor
Stav: Offline
Bodů: 4
 Přímý odkaz na tuto zprávu Zasláno: 20.lis.2012 v 21:08
potřeboval bych aby ten program pro tu kouli vypadal nějak takto.... tenhle prográmek je pro vytvoření krychle. program je napsany v lispu. a pak použitý v cadu.



(defun C:KRYCHLE (/ bod1 bod2 bod3 bod4 len ang bod5 bod6 bod7 bod8)
                    (setq bod1 (getpoint "\nBod prvního vrcholu krychle: "))
                    (setq bod2 (getpoint "\nBod druhého vrcholu krychle: "))
                    (setq len  (distance bod1 bod2))
                    (setq ang  (angle bod1 bod2))
                    (setq bod3 (polar bod2 (+ ang (/ pi 2.0)) len))
                    (setq bod4 (polar bod3 (+ ang pi) len))
                    (setq bod5 (list (car bod1) (cadr bod1) len))
                    (setq bod6 (list (car bod2) (cadr bod2) len))
                    (setq bod7 (list (car bod3) (cadr bod3) len))
                    (setq bod8 (list (car bod4) (cadr bod4) len))
                    (command "3DKŘIVKA" bod1 bod2 bod3 bod4 bod1 bod5 bod8 bod4 bod3 bod7 bod8 bod7 bod6 bod5 bod6 bod2 "U"))
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
Arkance Systems

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 21898
 Přímý odkaz na tuto zprávu Zasláno: 22.lis.2012 v 14:30
Takže třeba (nezkoušeno):
 


(defun C:COULE ( / p1 r)


 (setq p1 (getpoint "\nStřed koule: "))


 (setq r (getpoint p1 "\nPoloměr koule: "))


 (command "_SPHERE" p1 r)


 (princ)


)
Vladimír Michl (moderátor)
ARKANCE CZ - arkance.world
(podpora viz helpdesk.arkance-systems.cz)
Zpět nahoru
chlebovsky Zobrazit panel
Zasloužilý člen
Zasloužilý člen
Avatar

Přihlášen: 18.čer.2007
Lokalita: ČR (JM)
Používám:
Autocad R9 - 2022
Stav: Offline
Bodů: 112
 Přímý odkaz na tuto zprávu Zasláno: 22.lis.2012 v 16:02
A jako vždy pozor na uchopování.  _OSNAP aby se koule nechytala tam kde nemá, takže osnap vypnout, kouli nakreslit a osnap zapnot..
Ing. Martin Chlebovský

www.kde-je-auto.cz

GPS monitoring provozu vozidel a osob.

WebDeveloper.

Programátor aplikací pro Autocad a MS Office.

Tvorba WWW aplikací.

Modelování domů a staveb.&l
Zpět nahoru
krtecek1600 Zobrazit panel
Nováček
Nováček

Přihlášen: 20.srp.2012
Lokalita: ČR (LB)
Používám:
invertor
Stav: Offline
Bodů: 4
 Přímý odkaz na tuto zprávu Zasláno: 10.bře.2013 v 21:20
Děkuju za odezvu,
a za program pro objemový model.

Mohl byste mi prosím ještě poradit jak bude vypadat program pro vytvoření drátového modelu.








Upravil krtecek1600 - 10.bře.2013 v 21:32
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
Arkance Systems

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 21898
 Přímý odkaz na tuto zprávu Zasláno: 11.bře.2013 v 08:23
Přímo drátové modely AutoCAD negeneruje, ale můžete si pomoci např. přes posloupnost:
 
_MESH _SPHERE
_EXPLODE
3DF2L _P
 
(3DF2L je naše utilita - viz download)
Vladimír Michl (moderátor)
ARKANCE CZ - arkance.world
(podpora viz helpdesk.arkance-systems.cz)
Zpět nahoru
krtecek1600 Zobrazit panel
Nováček
Nováček

Přihlášen: 20.srp.2012
Lokalita: ČR (LB)
Používám:
invertor
Stav: Offline
Bodů: 4
 Přímý odkaz na tuto zprávu Zasláno: 13.bře.2013 v 22:55
Dobrý den,

dnes jsem mluvil s profesorem, který mi řekl, že to chce celé dát dohromady a to tak,
že bude vytvořen program v lispu a ja si ho budu moct z autocadu zavolat.

s tím že to celé bude začínat bodem... z bodu udělám půlkruh a ten orotuji a budu mít drátový model a následně pak udělám objemový model.

na tohle opravdu nejsem  tak mi odpuste dotazy pro Vás možná absolutně základní věci,ale pro mne totálně španělská vesnice.

dik za odpověd
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
Arkance Systems

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 21898
 Přímý odkaz na tuto zprávu Zasláno: 14.bře.2013 v 07:35
Celý domácí úkol za vás asi nikdo dělat nebude, ale rádi poradíme. Projděte si také příklady LISP programů na http://www.cadforum.cz/cadforum/Vyvojove-prostredky-AutoCADu/
 
Všechny LISP programy (i ty výše uvedené) se dají volat v AutoCADu, bez něj ani nefungují (pro definici příkazu použijte (defun C:MUJPRIKAZ). Pro nakreslení oblouku slouží příkaz _ARC, pro jeho orotování můžte použít OTOČ3D nebo POLE. V LISPu jen zapisujete to co byste prováděl v AutoCADu ručně. Objemový model z drátového jde udělat jen těžko, tam použijte kód z druhého příspěvku v této diskusi.
Vladimír Michl (moderátor)
ARKANCE CZ - arkance.world
(podpora viz helpdesk.arkance-systems.cz)
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 3821:Starší LISP aplikace mi nefungují správně.
Tip 176:problem with Lisp code for defining of Linewidth
Tip 12636:VIPZjištění práce v síti VPN (LISP).
Tip 4683:VIPJak zablikat zvolenou entitou ve výkresu?
Tip 4021:VIPVýpis "Mechanical" proměnných PowerPack/Genius.
Tip 3794:VIPPřidání vlastních LISP maker a příkazů do palety nástrojů.


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