Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk - od firmy Arkance Systems [www.cadforum.cz]
CZ | SK | EN | DE
Přihlášení
či registrace
   právě nás čte: 5833 
Arkance Systems CZ
FB TW YT LN Blog
PORTÁLY PRODUKTŮ
AutoCAD AutoCAD a LT
Inventor Inventor
Revit Revit
Civil 3D Civil 3D
Fusion 360 Fusion 360
RSS kanál - CAD tipy RSS tipy
RSS 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 Arkance Systems (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

Téma uzavřenoLISP - ulohy
 Odpovědět Odpovědět archiv
Autor
  Najít Téma Najít Téma  Možnosti tématu Možnosti tématu
PepaR Zobrazit panel
CAD/BIM manager
CAD/BIM manager
Avatar

Přihlášen: 29.lis.2004
Lokalita: ČR (ZL)
Používám:
ruky a hlavu (občas ;)
Stav: Offline
Bodů: 6187
 Přímý odkaz na tuto zprávu Téma: LISP - ulohy
    Zasláno: 29.dub.2005 v 12:16
Dobrý den, nemohl by mi prosím někdo pomoci s následuícími LISPy? Předem děkuji.
 
1.
Do čtverce A je vepsán čtverec B, jehož vrcholy jsou body, které půlí strany čtverce A a do čtverce B je vepsán čtverec C, jehož vrcholy půlí strany čtverce B. Vytvořte v AutoLISPu program, který vyzve k zadání strany a čtverce A a všechny tři čtverce vykreslí. Program také zobrazí, čemu se rovná poměr obsahu čtverce A ku obsahu čtverce B ku obsahu čtverce C (A:B:C).


2.
Vytvořte v AutoLISPu program, který vyzve k zadání délky hrany a krychle ABCDA’B’C’D’ a krychli vykreslí. Program nakreslí rovinu KLMNOP, jejíž body leží ve středech hran krychle a vypočítá obvod řezné plochy pomocí a i číselně pro konkrétní krychli.
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: 29.dub.2005 v 12:23
IMHO se jedná o domácí cvičení (seminární práci). Nechcete se o to aspoň pokusit a zeptat se, až nebudete vědět? :-)
Zpět nahoru
PepaR Zobrazit panel
CAD/BIM manager
CAD/BIM manager
Avatar

Přihlášen: 29.lis.2004
Lokalita: ČR (ZL)
Používám:
ruky a hlavu (občas ;)
Stav: Offline
Bodů: 6187
 Přímý odkaz na tuto zprávu Zasláno: 29.dub.2005 v 12:26
Není to pro mne, mám na koleji známého který se v tom značně topí a bude rád když si dodělá projekt z C++. Já programátor LISPu nejsem, jsem jen stavař ale napadlo mě že někdo z fóra bude tak schopný a pomůže... údajně by to mělo být jednoduché avšak to já nedokážu posoudit.
 
S pozdravem
Pepa
Zpět nahoru
orlik Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 25.lis.2004
Lokalita: ČR (MS)
Používám:
Autocad Mechanical 20104
Stav: Offline
Bodů: 111
 Přímý odkaz na tuto zprávu Zasláno: 05.kvě.2005 v 13:30

Jen tak pro zajimavost jsem si vybral jednodussi z uloh:

(defun c:ctver ( / osmod a a1 a2 c1 c2 )

  (setq osmod (getvar "OSMODE"))
  (setvar "OSMODE" 0)  ;vynulovat uchopeni

  (setq a (getreal "\nZadej stranu ctverce A: "))

  (setq a1 (/ a 2.0) a2 (* a1 -1.0))
  (setq c1 (/ a1 2.0) c2 (* c1 -1.0))

  (setq pt1a (list a2 a2 0.0) pt2a (list a1 a2 0.0) pt3a (list a1 a1 0.0) pt4a (list a2 a1 0.0))
  (setq pt1b (list 0.0 a2 0.0) pt2b (list a1 0.0 0.0) pt3b (list 0.0 a1 0.0) pt4b (list a2 0.0 0.0))
  (setq pt1c (list c2 c2 0.0) pt2c (list c1 c2 0.0) pt3c (list c1 c1 0.0) pt4c (list c2 c1 0.0))

  (command "_line" pt1a pt2a pt3a pt4a pt1a "")
  (command "_line" pt1b pt2b pt3b pt4b pt1b "")
  (command "_line" pt1c pt2c pt3c pt4c pt1c "")

  (setq d1 (distance pt1a pt2a) S1 (* d1 d1))
  (setq d1 (distance pt1b pt2b) S2 (* d1 d1))
  (setq d1 (distance pt1c pt2c) S3 (* d1 d1))


  (princ)
  (princ (strcat (rtos (/ S1 S3) 2 2) " : " (rtos (/ S2 S3) 2 2) " : " (rtos (/ S3 S3) 2 2)))
  (princ)

  (setvar "OSMODE" osmod)

)

Zde je maly navod k 1. uloze. K druhe ne ze by se mi nechtelo, ale nerozumel jsem zadani.

 
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 6927:AutoCAD mi hlásí: ; chyba: nesprávný typ argumentu: fixnump:
Tip 4683:VIPJak zablikat zvolenou entitou ve výkresu?
Tip 4021:VIPVýpis "Mechanical" proměnných PowerPack/Genius.


 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,820 sekund.
CF
CAD Fórum - tipy, triky, podpora, pomoc a rady pro AutoCAD, LT, Inventor, Revit, Map, Civil 3D, 3ds Max, Fusion 360 a další Autodesk aplikace (support firmy Arkance Systems)
ARKANCE (CAD Studio) - Autodesk Platinum Partner & Training Center & Services Partner
KONTAKT:
webmaster.cz@arkance-systems.com
tel. +420 910 970 111
  Copyright ©2024 | Web reklama na tomto serveru | Ochrana soukromí, podmínky
FB TW YT LN Blog
TOPlist
img