CAD Fórum : Rychlé otočení https://www.cadforum.cz/forum/ Sun, 14 Jun 2026 09:04:08 +0000 Fri, 13 Oct 2006 13:52:26 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=3210 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Rychlé otočení : Cituji příkazový řádek :Command:...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3210&PID=15080&title=rychle-otoceni#15080 Autor: Ferdinand
Předmět: 3210
Zasláno: 13.říj.2006 v 13:52

Cituji příkazový řádek [+ komentáře]:

Command: _rotate
Current positive angle in UCS:  ANGDIR=counterclockwise  ANGBASE=0.00

Select objects:   [pick1-CrossWindow/Window]  Specify opposite corner:   [pick2-CrossWindow/Window]  97 found  [anebo se vyfiltrují potřebné entity, případně se zadá _All]
3 were on a locked la-yer.

Select objects:  [Enter]

Specify base point:  [pick3, anebo se zadá PočátečníBod]

Specify rotation angle or [Reference]:  [pick4, anebo se zadá HodnotaUhlu]

Upravil Ferdinand - 13.říj.2006 v 13:54]]> Fri, 13 Oct 2006 13:52:26 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3210&PID=15080&title=rychle-otoceni#15080 <![CDATA[Rychlé otočení : No když otáčím klasicky, tak musím...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3210&PID=14959&title=rychle-otoceni#14959 Autor: BenaCZ
Předmět: 3210
Zasláno: 11.říj.2006 v 10:31

No když otáčím klasicky, tak musím zadat nejdřív co otočit, pak střed otačení, pak dát R, pak znovu střed, koncový bod 1. směru a pak koncový bod 2. směru.

Zatímco v nové funkci dám co otočit, střed, koncový bod 1.směru a koncový bod 2. směru. Ušetřím tím několik kroků.]]> Wed, 11 Oct 2006 10:31:55 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3210&PID=14959&title=rychle-otoceni#14959 <![CDATA[Rychlé otočení : Pořád ale mi nějak uniká smysl...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3210&PID=14955&title=rychle-otoceni#14955 Autor: Ferdinand
Předmět: 3210
Zasláno: 11.říj.2006 v 10:25

Pořád ale mi nějak uniká smysl této procedury. V čem je to teda lepší/rychlejší? Proč nepoužívat raději ono klasické otáčení?]]> Wed, 11 Oct 2006 10:25:07 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3210&PID=14955&title=rychle-otoceni#14955 <![CDATA[Rychlé otočení : Tak jsem to zdárně vyřešil. Asi...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3210&PID=14936&title=rychle-otoceni#14936 Autor: BenaCZ
Předmět: 3210
Zasláno: 10.říj.2006 v 22:18

Tak jsem to zdárně vyřešil. Asi jsem špatně chápal, jak to vlastně autocad při tom otáčení dělá. Tak jsem zkoumal jak to vlastně funguje při normálním otáčení a zapsal jsem pak tento kód:

;;; Otočí podle 3 bodů
(defun C:otocr (/        ORM           SNM               mysset
          counter        stredpt    firstpt      endpt         angle_new
          angle1        angle2     delta_x1      delta_y1   delta_x2
          delta_y2
            )
;;;nastaví orto a krok na 0
(setq ORM (getvar "orthomode"))
(setq SNM (getvar "snapmode"))
(setvar "orthomode" 0)
(setvar "snapmode" 0)
;;;násobný výběr
(setq mysset (ssget))
(setq counter 0)
(while (< counter (sslength mysset))
    (terpri)
    (setq counter (+ counter 1))
)
;;;vlastní funkce
(setq stredpt (getpoint "\nVyber stred otáčení:"))
(setq firstpt (getpoint "\nVyber 1. bod otáčení:"))
(setq endpt (getpoint "\nVyber 2. bod otáčení:"))
(setq delta_x1 (- (nth 0 firstpt) (nth 0 stredpt)))
(setq delta_y1 (- (nth 1 firstpt) (nth 1 stredpt)))
(setq angle1 (atan delta_y1 delta_x1))
(setq delta_x2 (- (nth 0 endpt) (nth 0 stredpt)))
(setq delta_y2 (- (nth 1 endpt) (nth 1 stredpt)))
(setq angle2 (atan delta_y2 delta_x2))
(setq angle_new (atof (angtos (- angle2 angle1) 0 2)))
(command "_rotate" mysset "" stredpt angle_new)

;;; obnovuje původní orto a krok
(setvar "orthomode" ORM)
(setvar "snapmode" SNM)
)


A to už funguje báječně. Bena]]> Tue, 10 Oct 2006 22:18:58 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3210&PID=14936&title=rychle-otoceni#14936 <![CDATA[Rychlé otočení : Hm, tak to tedy nevím.Zkusit to...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3210&PID=14928&title=rychle-otoceni#14928 Autor: Ferdinand
Předmět: 3210
Zasláno: 10.říj.2006 v 19:40

Hm, tak to tedy nevím.
Zkusit to překontrolovat v lisp editoru ?
Úhlové jednotky a smysl úhlu máte OK?
Anebo nepomohlo by prvně změřit úhel od osy X (anebo Y ?) /tj. střed či počátek úhlu/  k zadanému bodu /tj. směr vektoru/ a teprve pak to tam mlasknout jako vybranou/zadanou hodnotu?
]]> Tue, 10 Oct 2006 19:40:24 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3210&PID=14928&title=rychle-otoceni#14928 <![CDATA[Rychlé otočení : Doplnil jsem tam ty ortho a kroky....]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3210&PID=14858&title=rychle-otoceni#14858 Autor: BenaCZ
Předmět: 3210
Zasláno: 06.říj.2006 v 15:27

Doplnil jsem tam ty ortho a kroky. Změnil jsem to na vícenásobný výběr, ale pořád mi to nefunguje.
Jde mi o to, abych otočil objekty pomocí reference a aby střed otáčení byl stejný jako počátek, který určuje počáteční úhel. Pak bych chtěl kliknout na jeden bod (tím získat počáteční úhel) a pak na druhý bod a tím směrem objekt otočit. Tady je upravený kód:

(defun C:otocr (/ ORM SNM mysset counter stredpt firstpt endpt)
;nastaví orto a krok na 0
(setq ORM (getvar "orthomode"))
(setq SNM (getvar "snapmode"))
(setvar "orthomode" 0)
(setvar "snapmode" 0)
;násobný výběr
(setq mysset (ssget))
(setq counter 0)
(while (< counter (sslength mysset))
    (terpri)
    (setq counter (+ counter 1))
    )
;vlastní funkce
(setq stredpt (getpoint "\nVyber stred otáčení:"))
(setq firstpt (getpoint "\nVyber 1. bod otáčení:"))
(setq endpt (getpoint "\nVyber 2. bod otáčení:"))
(command "_rotate" mysset "" stredpt "_R" "" stredpt firstpt endpt)

; obnovuje původní orto a krok atd
(setvar "orthomode" ORM)
(setvar "snapmode" SNM)
)

Mám pocit, že mi nefunguje ten endpt a otáčí se mi to podle původně nastaveného referenčního úhlu. Nevíte proč?]]> Fri, 06 Oct 2006 15:27:01 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3210&PID=14858&title=rychle-otoceni#14858 <![CDATA[Rychlé otočení : Já už pro jistotu píšu na začátek...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3210&PID=14856&title=rychle-otoceni#14856 Autor: Ferdinand
Předmět: 3210
Zasláno: 06.říj.2006 v 14:34

Já už pro jistotu píšu na začátek každého lispu
(setq OSM (getvar "osmode"))
(setq ORM (getvar "orthomode"))
(setq SNM (getvar "snapmode"))
(setvar "osmode" 0)
(setvar "orthomode" 0)
(setvar "snapmode" 0)
a na konci obnovím na původní
(setvar "osmode" OSM)
(setvar "orthomode" ORM)
(setvar "snapmode" SNM)
]]> Fri, 06 Oct 2006 14:34:20 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3210&PID=14856&title=rychle-otoceni#14856 <![CDATA[Rychlé otočení : Na první pohled to vypadá v pořádku....]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3210&PID=14850&title=rychle-otoceni#14850 Autor: Vladimír Michl
Předmět: 3210
Zasláno: 06.říj.2006 v 14:10

Na první pohled to vypadá v pořádku. Snad jen (nesouvisející) drobnosti - "objekt", ne "objekty" a "_R", ne "R".
Jste si vědom, že úhel zadáváte referencí (rozdílem) od stávajícího úhlu, ne absolutně? Drobné odchylky mohou být způsobeny též uchopovacími režimy, 3D, USS, apod.
]]> Fri, 06 Oct 2006 14:10:05 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3210&PID=14850&title=rychle-otoceni#14850 <![CDATA[Rychlé otočení : Mohli byste mi prosím poradit...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3210&PID=14845&title=rychle-otoceni#14845 Autor: BenaCZ
Předmět: 3210
Zasláno: 06.říj.2006 v 11:00

Mohli byste mi prosím poradit co mám v kódu špatně?
Má to být lisp na funkci otočit (použít referenci, zadat střed otáčení, zadat 1.bod a 2. bod otáčení)
Ono se mi to ale otáčí o jiný úhel...

(defun otocrychle (selected_object / stredpt firstpt endpt)
(setq stredpt (getpoint "\nVyber stred otáčení:"))
(setq firstpt (getpoint "\nVyber 1. bod otáčení:"))
(setq endpt (getpoint "\nVyber 2. bod otáčení:"))
(command "_rotate" selected_object "" stredpt "R" "" stredpt firstpt endpt "")
)

(defun C:otocr (/ selected)
(terpri)
(setq selected (entsel "Vyber objekty:"))
(otocrychle selected)
)

P.S. Jsem začátečník

Díky Bena]]> Fri, 06 Oct 2006 11:00:34 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3210&PID=14845&title=rychle-otoceni#14845