CAD programování

Vytisknout stránku | Zavřít okno

Lisp

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: CAD programování
Popis fóra: Otázky programování - nadstavby a utility pro CAD a GIS aplikace Autodesk (VBA, AutoLISP, ARX/C++, .Net, JavaScript, Python, MEL...)
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=16136
Datum vytištění: 13.kvě.2026 v 15:33

Téma: Lisp

Odeslal: krtecek1600
Předmět: Lisp
Datum odeslání: 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.

Odpovědi:

Odeslal: Vladimír Michl
Datum odeslání: 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 - https://arkance.world - arkance.world
(podpora viz helpdesk.arkance-systems.cz)

Odeslal: hoboj
Datum odeslání: 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í.

-------------
Vojtěch Visingr

Odeslal: Vladimír Michl
Datum odeslání: 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:

http://www.cadforum.cz/cadforum/automaticke-ukladani-kopie-vykresu-ve-starsim-formatu-dwg-tip7324 - http://www.cadforum.cz/cadforum/automaticke-ukladani-kopie-vykresu-ve-starsim-formatu-dwg-tip7324

-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz helpdesk.arkance-systems.cz)

Odeslal: hoboj
Datum odeslání: 19.lis.2012 v 16:11

stránka se mi nezobrazuje

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

Odeslal: splonk
Datum odeslání: 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

Odeslal: hoboj
Datum odeslání: 19.lis.2012 v 16:55

To by mi stačilo.

Děkuji , ozvu se

-------------
Vojtěch Visingr

Odeslal: vbehun
Datum odeslání: 20.lis.2012 v 12:23

hoboj napsal(a):

stránka se mi nezobrazuje

Možná by postačil obyčejný Autodesk ScriptPro s příkazem "SaveAs"

-------------
=^..^=

Odeslal: hoboj
Datum odeslání: 20.lis.2012 v 12:35

To neznám, co to umí?

-------------
Vojtěch Visingr

Odeslal: Seiner
Datum odeslání: 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.

-------------
Vítězslav Seiner

Chrudim

Odeslal: Vladimír Michl
Datum odeslání: 20.lis.2012 v 13:18

Myslím že pro tento účel bohatě poslouží i standardní příkaz [CMD]PŘEVEĎDWG[/CMD], resp. TrueView - viz starší tip:

http://www.cadforum.cz/cadforum/qaID.asp?tip=4705 - http://www.cadforum.cz/cadforum/qaID.asp?tip=4705

-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz helpdesk.arkance-systems.cz)

Odeslal: krtecek1600
Datum odeslání: 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"))

Odeslal: Vladimír Michl
Datum odeslání: 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 - https://arkance.world - arkance.world
(podpora viz helpdesk.arkance-systems.cz)

Odeslal: chlebovsky
Datum odeslání: 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

Odeslal: krtecek1600
Datum odeslání: 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.

Odeslal: Vladimír Michl
Datum odeslání: 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 - https://arkance.world - arkance.world
(podpora viz helpdesk.arkance-systems.cz)

Odeslal: krtecek1600
Datum odeslání: 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

Odeslal: Vladimír Michl
Datum odeslání: 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/" rel="nofollow - 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 - https://arkance.world - arkance.world
(podpora viz helpdesk.arkance-systems.cz)

Vytisknout stránku | Zavřít okno