https://www.cadforum.cz/forum/ Fri, 15 May 2026 15:47:10 +0000 Wed, 11 Oct 2006 11:26:14 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=3214 https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ https://www.cadforum.cz/forum/forum_posts.asp?TID=3214&PID=14968&title=nefunkcni-uchopove-body#14968 Autor: Vladimír Michl
Předmět: 3214
Zasláno: 11.říj.2006 v 11:26

Ferdinand napsal(a): A čím se liší od  \n  ?

(terpri) je historická funkce - lišila se od jiných v tom zda se odřádkovávalo na textové obrazovce (DOS) nebo v příkazovém řádku nebo v obojím (už nevím to pravidlo přesně)]]> Wed, 11 Oct 2006 11:26:14 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3214&PID=14968&title=nefunkcni-uchopove-body#14968 https://www.cadforum.cz/forum/forum_posts.asp?TID=3214&PID=14963&title=nefunkcni-uchopove-body#14963 Autor: BenaCZ
Předmět: 3214
Zasláno: 11.říj.2006 v 10:43

Tato funkce se mi hodí na kreslení statických schemat, kde kreslím nosníky jako tlusté čáry a potřebuji,aby nebyli nebyli spojené s kolmými čarami. Ještě jsem si to upravil tak aby se mi ten "odpal" a šířka čáry automaticky volila podle aktuálního globálního měřítka. Tzn. zadávám jen 1. a koncový bod a zbytek se dělá automaticky.]]> Wed, 11 Oct 2006 10:43:23 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3214&PID=14963&title=nefunkcni-uchopove-body#14963 https://www.cadforum.cz/forum/forum_posts.asp?TID=3214&PID=14961&title=nefunkcni-uchopove-body#14961 Autor: BenaCZ
Předmět: 3214
Zasláno: 11.říj.2006 v 10:36

Neliší se v ničem (aspoň myslím).

Už jsem vymyslel jak to vyřešit s těmi úchopovými body. Udělám to tak, že se zadám příkaz _line a kliknu na 2 body a ty se mi pak načtou jakou startpt a endpt , které budu pak upravovat. Rozdíl je v tom, že před tím se mi úsečka vytvářela automaticky z dříve zadaných bodů, zatímco teď to bude naopak. Pak to bude fungovat...]]> Wed, 11 Oct 2006 10:36:59 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3214&PID=14961&title=nefunkcni-uchopove-body#14961 https://www.cadforum.cz/forum/forum_posts.asp?TID=3214&PID=14960&title=nefunkcni-uchopove-body#14960 Autor: Ferdinand
Předmět: 3214
Zasláno: 11.říj.2006 v 10:34

Podíval jsem se - klasická tvorba křivky se děje takhle (například):
Command:
PLINE
Specify start point:
Current line-width is 0.00
Specify next point or [Arc/Halfwidth/Length/Undo/Width]: W

Specify starting width <0.00>: 10

Specify ending width <10.00>:

Specify next point or [Arc/Halfwidth/Length/Undo/Width]:
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]:
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]:
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]: A

Specify endpoint of arc or
[Angle/CEnter/CLose/Direction/Halfwidth/Line/Radius/Second pt/Undo/Width]:
Specify endpoint of arc or
[Angle/CEnter/CLose/Direction/Halfwidth/Line/Radius/Second pt/Undo/Width]: D

Specify the tangent direction for the start point of arc:
Specify endpoint of the arc:
Specify endpoint of arc or
[Angle/CEnter/CLose/Direction/Halfwidth/Line/Radius/Second pt/Undo/Width]: L

Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]:
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]:
Úchopové body pak mohu posouvat jak je libo...
Asi jsem málo chápavej, ale u tohoto Vašeho lispu mi také uniká smysl počínání...
]]> Wed, 11 Oct 2006 10:34:38 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3214&PID=14960&title=nefunkcni-uchopove-body#14960 https://www.cadforum.cz/forum/forum_posts.asp?TID=3214&PID=14957&title=nefunkcni-uchopove-body#14957 Autor: Ferdinand
Předmět: 3214
Zasláno: 11.říj.2006 v 10:27

A čím se liší od  \n  ?]]> Wed, 11 Oct 2006 10:27:33 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3214&PID=14957&title=nefunkcni-uchopove-body#14957 https://www.cadforum.cz/forum/forum_posts.asp?TID=3214&PID=14935&title=nefunkcni-uchopove-body#14935 Autor: BenaCZ
Předmět: 3214
Zasláno: 10.říj.2006 v 22:15

Ono to nefunguje správně ani u tohoto jednoduchého příkladu:

(defun C:test (/
            myline
           )
(terpri)
;;; Definuje úsečku
(setq startpt (getpoint "Z bodu: "))
(terpri)
(setq endpt (getpoint "Do bodu: "))
(command "_line" startpt endpt "")
;;; tichý odchod
(princ)
)


Zkuste si schválně nakreslit pár čar a pak kreslit novou pomocí funkce "test" a pustit si úchopový bod polovina a kolmo. Tato kombinace hodně zlobí a chytá se to prostě úplně jiných bodů... Vůbec nevím proč :( Bena]]> Tue, 10 Oct 2006 22:15:23 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3214&PID=14935&title=nefunkcni-uchopove-body#14935 https://www.cadforum.cz/forum/forum_posts.asp?TID=3214&PID=14932&title=nefunkcni-uchopove-body#14932 Autor: Vladimír Michl
Předmět: 3214
Zasláno: 10.říj.2006 v 20:04

(terpri) jen odřádkuje na displeji...]]> Tue, 10 Oct 2006 20:04:30 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3214&PID=14932&title=nefunkcni-uchopove-body#14932 https://www.cadforum.cz/forum/forum_posts.asp?TID=3214&PID=14929&title=nefunkcni-uchopove-body#14929 Autor: Ferdinand
Předmět: 3214
Zasláno: 10.říj.2006 v 19:43

(terpri)
neznám... co to je?
]]> Tue, 10 Oct 2006 19:43:53 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3214&PID=14929&title=nefunkcni-uchopove-body#14929 https://www.cadforum.cz/forum/forum_posts.asp?TID=3214&PID=14868&title=nefunkcni-uchopove-body#14868 Autor: BenaCZ
Předmět: 3214
Zasláno: 09.říj.2006 v 13:19

Napsal jsem lisp na tvorbu křivky, která změní své koncové body o nějakou vzdálenost a nastaví se určitá šířka křivky. Všechno funguje supr, jen mám problém s nastavením správných úchopových bodů:
Když mám puštené všechny úchopové body, tak se to chytá správně. Pokud ale chci vybrat jen určitý úchopový bod (např přes nabídku pravého tlačítka nebo přes klávesovou zkratku), tak se to chytá špatně. vůbec nevím čím to je...
Nevíte někdo? Díky Bena

Zde je lisp:
;;; Vykreslí křivku o tloušťce určené globálním měřítkem mezi 2 body a odsune ji o 1 mm na výkrese
(defun C:schema_auto (/           myline         startpt    endpt
                new_startpt         new_endpt tloustka
                odpal      uhel         delta_x    delta_y
                width
               )
(terpri)
;;; Definuje úsečku
(setq odpal (+ (/ (getvar "ltscale") 2) (getvar "ltscale")))
(terpri)
(setq startpt (getpoint "Z bodu: "))
(terpri)
(terpri)
(setq endpt (getpoint "Do bodu: "))
(command "_line" startpt endpt "")

;;; definice úhlu úsečky
(setq myline (entget (entlast)))
(setq startpt (assoc 10 myline))
(setq endpt (assoc 11 myline))
(setq delta_x (- (nth 1 endpt) (nth 1 startpt)))
(setq delta_y (- (nth 2 endpt) (nth 2 startpt)))
(setq uhel (atan delta_y delta_x))

;;; posun počátečního bodu o "odpal" ve směru úsečky
(setq     new_startpt
      (list 10
            (+ (nth 1 startpt) (* odpal (cos uhel)))
            (+ (nth 2 startpt) (* odpal (sin uhel)))
            (nth 3 startpt)
      )
)
(setq myline (subst new_startpt startpt myline))

;;; posun koncového bodu o "odpal" ve směru úsečky
(setq     new_endpt (list     11
               (- (nth 1 endpt) (* odpal (cos uhel)))
               (- (nth 2 endpt) (* odpal (sin uhel)))
               (nth 3 endpt)
           )
)
(setq myline (subst new_endpt endpt myline))

;;; aktualizuje databázi Autocadu
(entmod myline)

;;; Převede úsečku na křivku o zadané tloušťce
(setq width (* (getvar "ltscale") 1))
(if (= (getvar "peditaccept") 0)
    (command "_pedit" "_last" "A" "")
)                         ;převede na křivku pokud musím potvrdit otázku zda to chci převést na křivku
(if (= (getvar "peditaccept") 1)
    (command "_pedit" "_last")
)                         ;převede na křivku bez otázky na převod na křivku
(setq mojekrivka (entget (entlast)))
(setq     mojekrivka
      (subst (cons 43 width) (assoc 43 mojekrivka) mojekrivka)
)                         ; tzv tečkový pár tvoří to cons

;;; aktualizuje databázi Autocadu
(entmod mojekrivka)
;;; tichý odchod
(princ)
)]]> Mon, 09 Oct 2006 13:19:35 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3214&PID=14868&title=nefunkcni-uchopove-body#14868