CAD Fórum : Výškové kóty https://www.cadforum.cz/forum/ Tue, 12 May 2026 02:52:03 +0000 Tue, 27 Mar 2007 22:31:59 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=4236 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Výškové kóty : Díky za připomínku, ale myslel...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=4236&PID=20776&title=vyskove-koty#20776 Autor: PepaR
Předmět: 4236
Zasláno: 27.bře.2007 v 22:31

Díky za připomínku, ale myslel jsem to tak, že 0,000 je myšleno jako plusminus nula v projektu. Nicméně, lze to interpretovat i tak, že potvrzení nastaví jako hodnotu 0,0,0 jak píšete Vy: <0,000>.]]> Tue, 27 Mar 2007 22:31:59 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=4236&PID=20776&title=vyskove-koty#20776 <![CDATA[Výškové kóty : Myslím, že ta forma zápisu defaultní...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=4236&PID=20698&title=vyskove-koty#20698 Autor: Ferdinand
Předmět: 4236
Zasláno: 26.bře.2007 v 13:53

Myslím, že ta forma zápisu defaultní hodnoty
  (setq P1 (getpoint "Zvolte nový počátek (0,000) :"))
by něla být spíše
  (setq P1 (getpoint "Zvolte nový počátek <0,000> :"))

]]> Mon, 26 Mar 2007 13:53:41 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=4236&PID=20698&title=vyskove-koty#20698 <![CDATA[Výškové kóty : Seiner napsal(a):Ke druhé části...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=4236&PID=20533&title=vyskove-koty#20533 Autor: PepaR
Předmět: 4236
Zasláno: 22.bře.2007 v 11:17

Původně odeslal(a) Seiner Seiner napsal(a):

Ke druhé části otázky:
- místo entsel je nutno použít výběrovou množinu a úpravu dělat v cyklu.
Třeba takhle to vypadá pro vymazání téměř nulových úseček:
Tak tady už musím sklopit hlavu a smeknout před těmi co jim jdou programovací jazyky, ja su na to prostě levý. Viz třeba toto naťuknutí od pana Seinera
 
Původně odeslal(a) Pajda Pajda napsal(a):

sledoval jsem  toto téma a upravil jsem lisp takto
kod\
(setq x 0)
  (setq ko 0)

  (srovrovina)

Děkuju za další variantu, bohužel se mi to nepodařilo rozjet. Hlásí to chybu závorky, popř. další chyby.
]]> Thu, 22 Mar 2007 11:17:34 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=4236&PID=20533&title=vyskove-koty#20533 <![CDATA[Výškové kóty : Seiner napsal(a):k té návratové...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=4236&PID=20530&title=vyskove-koty#20530 Autor: PepaR
Předmět: 4236
Zasláno: 22.bře.2007 v 10:48

Původně odeslal(a) Seiner Seiner napsal(a):

k té návratové hodnotě:
lisp vrací vždy odezvu poslední funkce. Takže tam dejte na konec nějakou, která vrací prázdný řádek. Třeba (PRINC)
 
Díky za tim, nakone jsem to vyřešil pomocí (PRINT)
 
Citace
(defun C:VKNULA ()    ;  nastavení počátku pro kótování
  (setq P1 (getpoint "Zvolte nový počátek (0,000) :"))
  (command "_UCS" "_DELETE" "*")
  (command "_UCS"  "_SAVE" "NULAVK")
  (command "_UCS" "_New" P1)
  (print)
) ; defun
]]> Thu, 22 Mar 2007 10:48:22 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=4236&PID=20530&title=vyskove-koty#20530 <![CDATA[Výškové kóty : k té návratové hodnotě: lisp...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=4236&PID=20526&title=vyskove-koty#20526 Autor: Seiner
Předmět: 4236
Zasláno: 22.bře.2007 v 10:22

k té návratové hodnotě:
lisp vrací vždy odezvu poslední funkce. Takže tam dejte na konec nějakou, která vrací prázdný řádek. Třeba (PRINC)
 
]]> Thu, 22 Mar 2007 10:22:24 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=4236&PID=20526&title=vyskove-koty#20526 <![CDATA[Výškové kóty : Ke druhé části otázky: - místo...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=4236&PID=20525&title=vyskove-koty#20525 Autor: Seiner
Předmět: 4236
Zasláno: 22.bře.2007 v 10:01

Ke druhé části otázky:
- místo entsel je nutno použít výběrovou množinu a úpravu dělat v cyklu.
Třeba takhle to vypadá pro vymazání téměř nulových úseček:
 
(setq V (ssget "X"(list(cons 0 "line"))))
(setq n (sslength v) i 0 j 0)
(while (< i n)
   (setq  u (entget (ssname V i))
l (distance (cdr(assoc 10 u)) (cdr(assoc 11 u))))
(if (< l 1)(progn
(setq j(+ 1 j))
(entdel (ssname V i))
))
(setq i(+ 1 i))
)
(write-line (strcat "Vynazano " (itoa j) " prvku delky 0"))
(write-line (strcat "Celkem " (itoa i) " prvku"))
(princ)
 
Pokud chcete vybírat opravdu oknem, použijete ..(setq V(ssget)).
 
]]> Thu, 22 Mar 2007 10:01:11 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=4236&PID=20525&title=vyskove-koty#20525 <![CDATA[Výškové kóty : Ještě bych se chtěl zeptat pravděpodobně...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=4236&PID=20524&title=vyskove-koty#20524 Autor: PepaR
Předmět: 4236
Zasláno: 22.bře.2007 v 10:00

Ještě bych se chtěl zeptat pravděpodobně na základní věc, u řešení dle pana Seinera mi při anstavování funkce vše proběhne v pořádku, ale při volbě počátku mi to za textovou hláškou vypíše text nil.
 
Příklad: Zvolte nový počátek (0,000)nil
 
Jak to prosím vyrušit?
 
Citace
(defun C:VKNULA ()    ;  nastavení počátku pro kótování
  (setq P1 (getpoint "Zvolte nový počátek (0,000) :"))
  (command "_UCS" "_DELETE" "*")
  (command "_UCS"  "_SAVE" "NULAVK")
  (command "_UCS" "_New" P1)
) ; defun
 
(defun C:VKNULAZPET ()    ;  vrátí zpět původní počátek
  (command "_UCS" "_restore" "NULAVK")
  (princ "Počátek (0,0,0) byl vrácen an původní hodnotu.")
  (print)
) ; defun
]]> Thu, 22 Mar 2007 10:00:47 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=4236&PID=20524&title=vyskove-koty#20524 <![CDATA[Výškové kóty : sledoval jsem toto téma a upravil...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=4236&PID=20523&title=vyskove-koty#20523 Autor: Pajda
Předmět: 4236
Zasláno: 22.bře.2007 v 09:34

sledoval jsem  toto téma a upravil jsem lisp takto

kod\
(setq x 0)
  (setq ko 0)

  (srovrovina)
  (setq sset (SSGET))
  (while (/= ko nil)
    (setq ko (ssname sset x))

    (setq d (entget ko))
    (if (and (= (fld 0) "INSERT")
      (or (= (fld 2) "KOTAVYSK")
   (= (fld 2) "vk1")
   (= (fld 2) "vk2")
   (= (fld 2) "vk3")
   (= (fld 2) "vk4")
   (= (fld 2) "vk5")
   (= (fld 2) "vk6")
   (= (fld 2) "vk7")
   (= (fld 2) "vk8")
   (= (fld 2) "VK1")
   (= (fld 2) "VK2")
   (= (fld 2) "VK3")
   (= (fld 2) "VK4")
   (= (fld 2) "VK5")
   (= (fld 2) "VK6")
   (= (fld 2) "VK7")
   (= (fld 2) "VK8")
   (= (fld 2) "vhp")
   (= (fld 2) "VHP")
      )    ; or
 )    ; and
      (zjisti_vysku)
      (prompt "\nNení vyšková kota.")
    )     ; if
    (setq x (+ x 1))
  )     ;while
  (command "_ucs" "p")
  (command "_ucs" "p")
)

\kod
 pridal jsem funkci srovrovina
kod\
(defun srovrovina (/ usecka ucs1 ucs2 ucs11 ucs22 ucs111 ucs222)
  (while (/= usecka "LINE")
    (setq srov (entsel "\nUkaž srovnavací rovinu"))
    (setq line (car srov))
    (setq usecka (cdr (assoc 0 (entget line))))
  )
  (setq vys vyska)
  (if (= vys nil)
    (setq vys 0)
  )
  (setq vysk (rtos vys 2 3))
  (setq text (strcat vysk ">: "))
  (setq text (strcat "\nZadej výšku srovnavací roviny <" text))
  (setq vyska (getreal text))
  (if (= vyska nil)
    (setq vyska vys)
  )
  (setq line (car srov))
  (setq ucs1 (cdr (assoc 10 (entget line))))
  (setq ucs2 (cdr (assoc 11 (entget line))))
  (setq znam1
  (getreal
    "\nZadejnatočení srovnavací roviny vůči globálnímu sopuřadnýmuz systému (1) natočeni 270-90, (2) naočení 90,1-269,9 <1> : "
  )
  )
  (if (= znam1 2.0)
    (progn

      (if (< (car ucs2) (car ucs1))
 (progn
   (setq ucs11 ucs1)
   (setq ucs22 ucs2)
 )
 (progn
   (setq ucs22 ucs1)
   (setq ucs11 ucs2)
 )
      )
    )
    (progn
      (if (>= (car ucs2) (car ucs1))
 (progn
   (setq ucs11 ucs1)
   (setq ucs22 ucs2)
 )
 (progn
   (setq ucs22 ucs1)
   (setq ucs11 ucs2)
 )
      )
    )
  )
  (command "_ucs" "W")
  (command "_ucs" "n" "3" ucs11 ucs22 "")
)
\kod
a ješte upravil funkci "zjisti vysku"
kod\
(setq y (cdr (assoc 10 (entget ko)))) ;nacte do y hodnotu bodu
  (setq y (trans y 0 1))  ; prevede z globalniho do aktualniho USS
  (setq y (/ (cadr y) 1000))
     ;(setq y (/ (cadr (cdr (assoc 10 (entget ko)))) 1000)) ; puvodni prikaz
  (setq y (+ y vyska))
  (cond
.....
\kod
 
 
 
]]> Thu, 22 Mar 2007 09:34:01 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=4236&PID=20523&title=vyskove-koty#20523 <![CDATA[Výškové kóty : OK, to jsme chtěl vědět. Děkuju...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=4236&PID=20522&title=vyskove-koty#20522 Autor: PepaR
Předmět: 4236
Zasláno: 22.bře.2007 v 09:31

OK, to jsme chtěl vědět. Děkuju mockrát.]]> Thu, 22 Mar 2007 09:31:35 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=4236&PID=20522&title=vyskove-koty#20522 <![CDATA[Výškové kóty : Ale to si nějak nerozumíme. Já...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=4236&PID=20521&title=vyskove-koty#20521 Autor: Seiner
Předmět: 4236
Zasláno: 22.bře.2007 v 09:29

Ale to si nějak nerozumíme. Já jsem nedodal hotový produkt, ale jen ukázku, jak si myslím, že by to mohlo fungovat. Takže lispík se optá na nové umístění počátku a přesune tam počátek USS. Druhá půlka ho zase vrátí zpátky. A aby bylo vůbec vidět, co se děje, vložil jsem tam ten getstring, na kterém se to zarazí a čeká na jakýkoliv vstup.
JINAK TEN ŘÁDEK NEMÁ ŽÁDNÝ VÝZNAM a předpokládám, že v definitivním kódu nebude.
]]> Thu, 22 Mar 2007 09:29:36 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=4236&PID=20521&title=vyskove-koty#20521