CAD Fórum : LISP - vytvoření středové křivky https://www.cadforum.cz/forum/ Tue, 12 May 2026 01:40:50 +0000 Wed, 24 May 2023 14:13:42 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=34370 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[LISP - vytvoření středové křivky : (defun c:pmid ( / p r) (command...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=34370&PID=128441&title=lisp-vytvoreni-stredove-krivky#128441 Autor: johny
Předmět: 34370
Zasláno: 24.kvě.2023 v 14:13


(defun c:pmid ( / p r)

  (command "_.pline")
  (while (setq p (progn (initget "Undo") (getpoint "\nFirst point [Undo]: ")))
    (if (= p "Undo")
      (command "_Undo")
      (and (setq r (getpoint p "\nSecond point: "))
   (command "_m2p" "_non" p "_non" r))))
  (command "")
  (princ)
  )


Upravil johny - 24.kvě.2023 v 15:40]]> Wed, 24 May 2023 14:13:42 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=34370&PID=128441&title=lisp-vytvoreni-stredove-krivky#128441 <![CDATA[LISP - vytvoření středové křivky : Ano, už jsem dohledal nyní i tento...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=34370&PID=128440&title=lisp-vytvoreni-stredove-krivky#128440 Autor: hoboj
Předmět: 34370
Zasláno: 24.kvě.2023 v 13:50

Ano, už jsem dohledal nyní i tento případ. Asi by mi stačil jednoduchý lisp se zadáním počátečního bodu křivky (pline)->počateční bod -> _m2p (výběr poloviny) -> dokud neukončím. 

Děkuji
]]> Wed, 24 May 2023 13:50:25 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=34370&PID=128440&title=lisp-vytvoreni-stredove-krivky#128440 <![CDATA[LISP - vytvoření středové křivky : Ono je to matematicky trochu &#034;sporné&#034;...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=34370&PID=128439&title=lisp-vytvoreni-stredove-krivky#128439 Autor: Vladimír Michl
Předmět: 34370
Zasláno: 24.kvě.2023 v 13:13

Ono je to matematicky trochu "sporné" jak má vypadat osa v těch asymetrických případech - obvykle se používá algoritmus valící se kružnice, ale i ten tam udělá "ocásek" - viz příkaz CURVEAXISRB doplněný do utility CurveAxis.]]> Wed, 24 May 2023 13:13:12 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=34370&PID=128439&title=lisp-vytvoreni-stredove-krivky#128439 <![CDATA[LISP - vytvoření středové křivky : Dobrý den, pane Michle,děkuji...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=34370&PID=128435&title=lisp-vytvoreni-stredove-krivky#128435 Autor: hoboj
Předmět: 34370
Zasláno: 24.kvě.2023 v 10:38

Dobrý den, pane Michle, 
děkuji za tip, curveaxis jsem zkoušel, ale je pro mé potřeby nedostačující, třeba u dvou křivek, jak jsem přidal obrázek tento lisp neudělá středovou křivku, jak bych potřeboval, ale je deformovaná. U "S" zatáčky je taky zakřivená jinak, než je střed. Děkuji
]]> Wed, 24 May 2023 10:38:46 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=34370&PID=128435&title=lisp-vytvoreni-stredove-krivky#128435 <![CDATA[LISP - vytvoření středové křivky : Viz příbuzný tip:https://www.c...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=34370&PID=128433&title=lisp-vytvoreni-stredove-krivky#128433 Autor: Vladimír Michl
Předmět: 34370
Zasláno: 24.kvě.2023 v 10:21

Viz příbuzný tip:
https://www.cadforum.cz/cz/jak-zkonstruovat-osu-dvou-krivek-osovou-krivku-tip11024
a freeware utilita CurveAxis

]]> Wed, 24 May 2023 10:21:12 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=34370&PID=128433&title=lisp-vytvoreni-stredove-krivky#128433 <![CDATA[LISP - vytvoření středové křivky : Dobrý den, měl by to umět příkazSTŘEDOSA...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=34370&PID=128432&title=lisp-vytvoreni-stredove-krivky#128432 Autor: PepaR
Předmět: 34370
Zasláno: 24.kvě.2023 v 09:59

Dobrý den, měl by to umět příkaz [CMD]STŘEDOSA[/CMD] (_CENTERLINE), případně lze použít tento lisp, pokud jej dohledáte někde na netu ke stažení.

Upravil PepaR - 25.kvě.2023 v 05:50]]> Wed, 24 May 2023 09:59:50 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=34370&PID=128432&title=lisp-vytvoreni-stredove-krivky#128432 <![CDATA[LISP - vytvoření středové křivky : Dobrý den,věděl by někdo, jak...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=34370&PID=128430&title=lisp-vytvoreni-stredove-krivky#128430 Autor: hoboj
Předmět: 34370
Zasláno: 24.kvě.2023 v 08:41

Dobrý den, 
věděl by někdo, jak vytvořit lisp na vytvoření křivky uprostřed 2 křivek? Něco jako střed točité silnice vč. zúžení a rozšíření? 
Děkuji
]]> Wed, 24 May 2023 08:41:27 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=34370&PID=128430&title=lisp-vytvoreni-stredove-krivky#128430