ARKANCE - globální Platinum partner Autodesk ARKANCE | KONTAKT - CZ | SK | EN | DE
Již 10.000+ CAD tipů. Přes 118.500 registrovaných u nás, celkem 1.094.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.
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řenoJak na průsečík přímek v autolispu
 Odpovědět Odpovědět archiv
Autor
  Najít Téma Najít Téma  Možnosti tématu Možnosti tématu
hans125 Zobrazit panel
Nováček
Nováček

Přihlášen: 06.dub.2006
Stav: Offline
Bodů: 1
 Přímý odkaz na tuto zprávu Téma: Jak na průsečík přímek v autolispu
    Zasláno: 06.dub.2006 v 22:37
Zdravím, chtěl jsem se zeptat, jak v autolispu dostanu průsečík dvou přímek (nebo přímky a úsečky). Někde jsem našel, že by to měl dělat příkaz INTERS. V přiloženém kódu jsem zkoušel následující příkaz: (setq bodr (INTERS bod9 bod11 bod1 bod4)). Bod9 a bod11 leží na jedné přímce a bod1 a bod4 na druhé přímce. Ale nevypíše mi to průsečík. Nevíte, v čem by mohla být chyba?
Prográmek níže má sloužit k vykreslení krychle a proložit rovinu řezu- není to celý dokončený..
 
 
 
(defun krychle()
 (setq a(getreal "Zadej délku hrany krychle: "))
 (setq bod1 (getpoint "Zadej počáteční bod: "))
 
 (setq x1 (car bod1))
 (setq y1 (cadr bod1))
 (setq z1 (caddr bod1))
 (setq x2 (+ x1 a))
 (setq y2 (+ y1 a))
 (setq z2 (- z1 a))
 
 (setq x3 (+ x2 (/ a 2)))
 (setq X4 (+ x1 (/ a 2)))
 (setq z3 (- z1 (/ a 2)))
 
 (setq bod2 (list x2 y1 z1))
 (setq bod3 (list x2 y1 z2))
 (setq bod4 (list x1 y1 z2))
 (setq bod5 (list x1 y2 z1))
 (setq bod6 (list x2 y2 z1))
 (setq bod7 (list x2 y2 z2))
 (setq bod8 (list x1 y2 z2))
 
 (setq bod9 (list x3 y1 z1))
 (setq bod10 (list x4 y2 z3))
 (setq bod11 (list x4 y1 z3))
 

 (setq bodr (INTERS bod9 bod11 bod1 bod4))
 (setq x5 (car bodr))
 (setq z5 (caddr bodr))
 (setq bodz (list x5 y2 z5))
 
 
 (command "_line" bod1 bod2 bod3 bod4 "")
 (command "_line" bod5 bod6 bod7 bod8 "")
 (command "_line" bod1 bod5 "")
 (command "_line" bod8 bod4 "")
 (command "_line" bod2 bod6 "")
 (command "_line" bod3 bod7 "")
 (command "_line" bod1 bod4 "")
 (command "_line" bod5 bod8 "")
 
 (command "_xline" bod9 bod11 "")
 (command "_rectang" bod9 bodz "")
 
)
Zpět nahoru
vknop Zobrazit panel
Zasloužilý člen
Zasloužilý člen

.

Přihlášen: 04.říj.2004
Lokalita: Czech Republic
Stav: Offline
Bodů: 181
 Přímý odkaz na tuto zprávu Zasláno: 06.dub.2006 v 23:50
Původně odeslal(a) hans125 hans125 napsal(a):

Nevíte, v čem by mohla být chyba?
 
Úsečky [bod9, bod11] a [bod1, bod4] se neprotínají, resp. protínají se mimo a průsečík tak neleží na obou současně.
Musíte použít i 5. argument funkce.
viz. help
"onseg
If specified as nil, the lines defined by the four pt arguments are considered infinite in length. If the onseg argument is omitted or is not nil, the intersection point must lie on both lines or inters returns nil."
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ů: 21901
 Přímý odkaz na tuto zprávu Zasláno: 07.dub.2006 v 07:44

Ano, stačí přidat 5. parametr: 'T

Podívejte se také na funkci vla-IntersectWith

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 4200:Jak v AutoCADu najít průsečík přímky a 3D plochy?
Tip 5358:Jak vytvořit osu dvou úseček?
Tip 13086:3DintCurves - průsečíky křivek s 3D tělesy.
Tip 5685:Jak automaticky vytvořit body v průsečících čar výkresu?
Tip 7438:Rozšířená funkce ZAOBLI (_FILLET).
Tip 4456:Problém s uchopením objektů v bloku s nestejnoměrným měřítkem.


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