CAD Fórum : podmínka jména https://www.cadforum.cz/forum/ Wed, 10 Jun 2026 09:05:00 +0000 Mon, 29 Jan 2007 16:16:17 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=3827 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[podmínka jména : Jedna závorka se ztratila, snad...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3827&PID=18338&title=podminka-jmena#18338 Autor: pavelstyl
Předmět: 3827
Zasláno: 29.led.2007 v 16:16

Jedna závorka se ztratila, snad už je to OK.
 
;;;###############################################################
;;; po zadání jména hladin(y), se ty(a)to hladiny(a) rozmrazí (=budou aktivní) ve všech rozvrženích výkresu

(defun c:lay1 (/ LAY TM jmeno hl)

  (setq TM (getvar "tilemode"))

  (setvar "tilemode" 0)
  (setq    LAY
     (getstring
       "\nZadejte hladiny, které budou ROZMRAŽENY /aktivní/ ve všech rozvrženích : "
     )
  )

  (if (or (vl-string-search "*" lay) (vl-string-search "?" lay))

   (progn ;V nazvu hladiny je zastupny znak

    (alert "Zadana * nebo ?, tudiz prochazim existujici hladiny ...")
    (setq hl (tblnext "LAYER" "T"))
    (while hl
     (setq jmeno (cdr (assoc 2 hl)))
     (if (wcmatch (strcase jmeno) (strcase lay))
      (progn
;       (command "_vplayer" "_V" jmeno "_T" "_T" jmeno "_A" "")
       (alert (strcat "Zpracovavam hladinu " jmeno))
      )
     ) ; if
     (setq hl (tblnext "LAYER"))
    ) ; while

   ) ;progn

 

   (progn ;;; Nazev hladiny je zadan bez zastupnych znaku
    (if (tblsearch "LAYER" LAY)
     (progn
;      (command "_vplayer" "_V" LAY "_T" "_T" LAY "_A" "")     )
      (alert (strcat "Hladina " LAY " existuje, pouze ji zmodifikuji ... "))
     )
     (progn
;      (command "_vplayer" "_N" LAY "_T" LAY "_A" "")
      (alert (strcat "Hladinu " "\n ""  " LAY "  "" " "\n jsem ve výkresu nenašel, byla nově vytvořena"))
     ) ; progn
    ) ; if

   ) ; progn


  ) ; if

  (setvar "tilemode" TM)
  (princ)
)

 

]]> Mon, 29 Jan 2007 16:16:17 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3827&PID=18338&title=podminka-jmena#18338 <![CDATA[podmínka jména : Fuřt nic Díval jsem se na to...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3827&PID=18337&title=podminka-jmena#18337 Autor: Ferdinand
Předmět: 3827
Zasláno: 29.led.2007 v 16:09

Fuřt nic Ouch Díval jsem se na to v lisp editoru, kde mi hlásí

; error: too many arguments: (IF (TBLSEARCH "LAYER" LAY) (PROGN ( ... )) (ALERT ( ... )) ... )




Upravil Ferdinand - 29.led.2007 v 16:10]]> Mon, 29 Jan 2007 16:09:41 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3827&PID=18337&title=podminka-jmena#18337 <![CDATA[podmínka jména : Tu funkci tblobjname jsem neradil...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3827&PID=18335&title=podminka-jmena#18335 Autor: pavelstyl
Předmět: 3827
Zasláno: 29.led.2007 v 15:51

Tu funkci tblobjname jsem neradil já. Ani ji neznám. Na zjišťování existence hladiny vždy (10 let) používám formuli (if (tblsearch "LAYER" "hladina_1") ...
 
Zakomentářoval jsem výkonné příkazy (vplayer) a doplnil jsem nějaké alerty. Možná ještě zlobily velká/malá písmena u porovnávání názvů hladin, tak jsem to také upravil.
 
U mě níže uvedené funguje takto:
- mám výkres s hladinami: Hladina1, Hladina2, Hladina3
- Zavolám LAY, zadám Hladina1, našel ji
- Zavolám LAY, zadám Hladina5, nenašel ji, bude vytvářet
- Zavolám LAY, zadám H*, zahlásí zadání *, a vypíše zpracování Hladina1, Hladina2 a Hladina3
 
Pokus tohleto chování je OK, tak už zbývá pouze dodělat ten VPLAYER (ale tady nemohu sloužit, neb ten příkaz neznám, výkresový prostor totiž nepoužíváme)
 
Pavel Štyl
 
;;;###############################################################
;;; po zadání jména hladin(y), se ty(a)to hladiny(a) rozmrazí (=budou aktivní) ve všech rozvrženích výkresu
(defun c:lay1 (/ LAY TM jmeno hl)
  (setq TM (getvar "tilemode"))
  (setvar "tilemode" 0)
  (setq    LAY
     (getstring
       "\nZadejte hladiny, které budou ROZMRAŽENY /aktivní/ ve všech rozvrženích : "
     )
  )
  (if (or (vl-string-search "*" lay) (vl-string-search "?" lay))
   (progn ;V nazvu hladiny je zastupny znak
    (alert "Zadana * nebo ?, tudiz prochazim existujici hladiny ...")
    (setq hl (tblnext "LAYER" "T"))
    (while hl
     (setq jmeno (cdr (assoc 2 hl)))
     (if (wcmatch (strcase jmeno) (strcase lay))
      (progn
;       (command "_vplayer" "_V" jmeno "_T" "_T" jmeno "_A" "")
       (alert (strcat "Zpracovavam hladinu " jmeno))
      )
     ) ; if
     (setq hl (tblnext "LAYER"))
    ) ; while
   ) ;progn
 
   (progn ;;; Nazev hladiny je zadan bez zastupnych znaku
    (if (tblsearch "LAYER" LAY)
     (progn
;      (command "_vplayer" "_V" LAY "_T" "_T" LAY "_A" "")     )
      (alert (strcat "Hladina " LAY " existuje, pouze ji zmodifikuji ... "))
     (progn
;      (command "_vplayer" "_N" LAY "_T" LAY "_A" "") 
      (alert (strcat "Hladinu " "\n ""  " LAY "  "" " "\n jsem ve výkresu nenašel, byla nově vytvořena"))
     ) ; progn
    ) ; if
   ) ; progn

  ) ; if
  (setvar "tilemode" TM)
  (princ)
)
]]> Mon, 29 Jan 2007 15:51:30 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3827&PID=18335&title=podminka-jmena#18335 <![CDATA[podmínka jména : Jeto jaxi pomätený... Úvaha správná,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3827&PID=18334&title=podminka-jmena#18334 Autor: Ferdinand
Předmět: 3827
Zasláno: 29.led.2007 v 15:21

Jeto jaxi pomätený... Úvaha správná, ale nedělá mi to nic Shocked. Není třeba tam (kde?) použít onu funkci
(if (tblobjname "layer" LAY)
...
Question
]]> Mon, 29 Jan 2007 15:21:51 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3827&PID=18334&title=podminka-jmena#18334 <![CDATA[podmínka jména : Chápu-li to dobře, tak mohou nastat...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3827&PID=18312&title=podminka-jmena#18312 Autor: pavelstyl
Předmět: 3827
Zasláno: 29.led.2007 v 12:34

Chápu-li to dobře, tak mohou nastat dvě situace:

1. Zadám název hladiny (bez zástupných znaků). Pokud ta hladina existuje, provedu rozmražení, pokud neexistuje, tak ji vytvořím.
 
2. Zádám-li název hladiny se zástupnými znaky (*, ?), tak musím projít všechny hladiny ve výkrese a ta která vyhovuje, tak ji rozmrazím.
 
Pochopil-li jsem to dobře, tak bych to udělal takto:
;;;###############################################################
;;; po zadání jména hladin(y), se ty(a)to hladiny(a) rozmrazí (=budou aktivní) ve všech rozvrženích výkresu
(defun c:lay1 (/ LAY TM jmeno hl)
  (setq TM (getvar "tilemode"))
  (setvar "tilemode" 0)
  (setq    LAY
     (getstring
       "\nZadejte hladiny, které budou ROZMRAŽENY /aktivní/ ve všech rozvrženích : "
     )
  )
  (if (or (vl-string-search "*" lay) (vl-string-search "?" lay))
   (progn ;V nazvu hladiny je zastupny znak
    (setq hl (tblnext "LAYER" "T"))
    (while hl
     (setq jmeno (cdr (assoc 2 hl)))
     (if (wcmatch jmeno lay)
      (progn
       (command "_vplayer" "_V" jmeno "_T" "_T" jmeno "_A" "")
       (prompt (strcat "\nZpracovavam hladinu " jmeno))
      )
     ) ; if
     (setq hl (tblnext "LAYER"))
    ) ; while
   ) ;progn
 
   (progn ;;; Nazev hladiny je zadan bez zastupnych znaku
    (if (tblsearch "LAYER" LAY)
     (progn
      (command "_vplayer" "_V" LAY "_T" "_T" LAY "_A" "")
     )
     (progn
      (command "_vplayer" "_N" LAY "_T" LAY "_A" "")
      (alert
        (strcat "Hladinu " "\n ""  " LAY "  "" " "\n jsem ve výkresu nenašel, byla nově vytvořena")
      ) ;tady nechci aby mi to hlasilo nesmysly v pripade filtru (napr. HLA_OB*, HLA_OB?)
     ) ; progn
    ) ; if
   ) ; progn

  ) ; if
  (setvar "tilemode" TM)
  (princ)
)
 
Pavel Štyl
]]> Mon, 29 Jan 2007 12:34:24 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3827&PID=18312&title=podminka-jmena#18312 <![CDATA[podmínka jména : Pavle, tak jsem to zkoušel:&#034;lay&#034;...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3827&PID=18209&title=podminka-jmena#18209 Autor: Ferdinand
Předmět: 3827
Zasláno: 26.led.2007 v 15:36

Pavle, tak jsem to zkoušel:

"lay" - zadám z klávesnice např. HLA_OB*
"hl" - vrací: ((0 . "LAYER") (2 . "0") (70 . 0) (62 . 7) (6 . "CONTINUOUS"))
"jmeno" - vrací: "0" (tj. zjistí název aktuální hladiny)
Prompt "Zpracuj hladinu " se na p.ř. vůbec neobjevuje. Celá citovaná sekvence mi vrací nil.

Původně jsem celý lisp měl takhle:

;;;###############################################################
;;; po zadání jména hladin(y), se ty(a)to hladiny(a) rozmrazí (=budou aktivní) ve všech rozvrženích výkresu

(defun c:lay1 (/ LAY TM)

  (setq TM (getvar "tilemode"))

  (setvar "tilemode" 0)
  (setq    LAY
     (getstring
       "\nZadejte hladiny, které budou ROZMRAŽENY /aktivní/ ve všech rozvrženích : "
     )
  )

  (if (tblobjname "layer" LAY)
    (command "_vplayer" "_V" LAY "_T" "_T" LAY "_A" "")
    (command "_vplayer" "_N" LAY "_T" LAY "_A" "")
  )
  (alert
    (strcat "Hladinu " "\n ""  " LAY "  "" " "\n jsem ve výkresu nenašel, byla nově vytvořena")
  ) ;tady nechci aby mi to hlasilo nesmysly v pripade filtru (napr. HLA_OB*, HLA_OB?)
  (setvar "tilemode" TM)
  (princ)
)
]]> Fri, 26 Jan 2007 15:36:16 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3827&PID=18209&title=podminka-jmena#18209 <![CDATA[podmínka jména : Na to bych 3el asi takto ... (setq...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3827&PID=18128&title=podminka-jmena#18128 Autor: pavelstyl
Předmět: 3827
Zasláno: 25.led.2007 v 10:58

Na to bych 3el asi takto ...
 
(setq lay (getstring "\nHladina: "))
(setq hl (tblnext "LAYER" "T"))
(while hl
 (setq jmeno (cdr (assoc 2 hl)))
 (if (wcmatch jmeno lay)
  (progn
   (prompt (strcat "\nZpracuj hladinu " jmeno))
  )
 )
 (setq hl (tblnext "LAYER"))
)
(princ)
Pavel Štyl
]]> Thu, 25 Jan 2007 10:58:18 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3827&PID=18128&title=podminka-jmena#18128 <![CDATA[podmínka jména : Děkuji, tento příkaz jsem neznal.Ještě...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3827&PID=18127&title=podminka-jmena#18127 Autor: Ferdinand
Předmět: 3827
Zasláno: 25.led.2007 v 10:46

Děkuji, tento příkaz jsem neznal.
Ještě jedna věc: Když používám filtr pro výběr názvů hladin které obsahují shodný řetězec (např. HLA_OB1, HLA_OB2, ... HLA_OBn), tj. na výzvu

(setq    LAY
   (getstring
     "\nZadejte hladiny, které budou ROZMRAŽENY /aktivní/ ve všech rozvrženích : "
   )
)

bude zadáno HLA_OB* (anebo HLA_OB?), tak po vykonání příkazu(ů) _vplayer naskočí nadefinovaný

  (alert
    (strcat "Hladinu " "\n ""  " LAY "  "" " "\n jsem ve výkresu nenašel, byla nově vytvořena")
  )

což je na displeji

Hladinu
HLA_OB* (ev. HLA_OB?)
jsem na výkresu nenašel, byla nově vytvořena

ovšem název hladiny nemůže obsahovat znaky * ani ?, takže tyto hladiny vytvořeny defacto nebyly. Jak to lze ošetřit?


Upravil Ferdinand - 25.led.2007 v 10:49]]> Thu, 25 Jan 2007 10:46:27 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3827&PID=18127&title=podminka-jmena#18127 <![CDATA[podmínka jména : třeba (if (tblobjname &#034;layer&#034;...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3827&PID=18124&title=podminka-jmena#18124 Autor: Vladimír Michl
Předmět: 3827
Zasláno: 25.led.2007 v 10:06

třeba
(if (tblobjname "layer" LAY)
 (command .....); je tam
 (command .....); není tam
)
]]> Thu, 25 Jan 2007 10:06:53 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3827&PID=18124&title=podminka-jmena#18124 <![CDATA[podmínka jména : Co třeba takhle ... (if (tblsearch...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=3827&PID=18123&title=podminka-jmena#18123 Autor: pavelstyl
Předmět: 3827
Zasláno: 25.led.2007 v 10:05

Co třeba takhle ...
 
(if (tblsearch "LAYER" "MOJE_HLADINA")
 (progn
  (alert "Hladina existuje")
 )
 (progn
  (alert "Hladina neexistuje")
 )
)
 
Pavel Štyl
)
]]> Thu, 25 Jan 2007 10:05:59 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3827&PID=18123&title=podminka-jmena#18123