CAD Fórum : KOPIE hladiny v rámci několika výřezů https://www.cadforum.cz/forum/ Fri, 05 Jun 2026 05:22:43 +0000 Mon, 28 Jan 2019 10:06:00 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=28311 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[KOPIE hladiny v rámci několika výřezů : Poděkování patří hlavně johnymu,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=28311&PID=115359&title=kopie-hladiny-v-ramci-nekolika-vyrezu#115359 Autor: Vladimír Michl
Předmět: 28311
Zasláno: 28.led.2019 v 10:06

Poděkování patří hlavně johnymu, v tomto případě jsem byl jen "údržbář" :-)]]> Mon, 28 Jan 2019 10:06:00 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=28311&PID=115359&title=kopie-hladiny-v-ramci-nekolika-vyrezu#115359 <![CDATA[KOPIE hladiny v rámci několika výřezů : johny a Vladimír Michl jsou borciVůbec...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=28311&PID=115358&title=kopie-hladiny-v-ramci-nekolika-vyrezu#115358 Autor: Koluch
Předmět: 28311
Zasláno: 28.led.2019 v 09:47

johny a Vladimír Michl jsou borci

Vůbec nerozumím zdrojovému kódu, ale funguje tak jak jsem potřeboval, děkuji.
Regenerace přes výřezy a rozvržení probíhala cca 3 minuty, ale udělalo to to co mělo.
Takže ještě jednou děkuji.
Lukáš Kolúch
]]> Mon, 28 Jan 2019 09:47:48 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=28311&PID=115358&title=kopie-hladiny-v-ramci-nekolika-vyrezu#115358 <![CDATA[KOPIE hladiny v rámci několika výřezů : Opět jsem si dovolil johnyho...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=28311&PID=115355&title=kopie-hladiny-v-ramci-nekolika-vyrezu#115355 Autor: Vladimír Michl
Předmět: 28311
Zasláno: 28.led.2019 v 08:27

Opět jsem si dovolil johnyho aktualizaci promítnout do LSP soubor viz výše - zkuste tuto aktualizovanou verzi.]]> Mon, 28 Jan 2019 08:27:03 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=28311&PID=115355&title=kopie-hladiny-v-ramci-nekolika-vyrezu#115355 <![CDATA[KOPIE hladiny v rámci několika výřezů : Toto by mohlo pomoci.(foreach...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=28311&PID=115351&title=kopie-hladiny-v-ramci-nekolika-vyrezu#115351 Autor: johny
Předmět: 28311
Zasláno: 27.led.2019 v 20:25

Toto by mohlo pomoci. 

(foreach l (layoutlist)
      (if (and (setq lst (vl-remove-if-not
   '(lambda (e) (vl-remove-if-not
  '(lambda (x) (= old (cdr (assoc 2 (entget (cdr x))))))
  (vl-remove-if-not ; just vp-frozen entities
    '(lambda (x) (= 331 (car x)))
    (entget e)))) ; entity's def. list inc. vp-frozen
   (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget "_X" (list '(0 . "VIEWPORT") (cons 410 l)))))))) ; all entities
       (setvar 'CTAB l)
       (vl-cmdf "_.ZOOM" "_Extents" "_.MSPACE")
       (setq lst (vl-sort (mapcar '(lambda (e) (cdr (assoc 69 (entget e)))) lst) '<))
       )
(progn
  (setq lst (if (setq 1st (= (car lst) 1))
      (cdr lst)
      lst))
  (foreach e lst
    (setvar 'CVPORT e)
    (vl-cmdf "_.VPLAYER" "_Freeze" new "_Current" ""))
  (vl-cmdf "_.PSPACE" "_ZOOM" "_Previous")
  (if 1st (vl-cmdf "_.VPLAYER" "_Freeze" new "_Current" "")))))


Upravil johny - 27.led.2019 v 23:05]]> Sun, 27 Jan 2019 20:25:18 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=28311&PID=115351&title=kopie-hladiny-v-ramci-nekolika-vyrezu#115351 <![CDATA[KOPIE hladiny v rámci několika výřezů : OK, když použiji LISP copylayer,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=28311&PID=115349&title=kopie-hladiny-v-ramci-nekolika-vyrezu#115349 Autor: Koluch
Předmět: 28311
Zasláno: 27.led.2019 v 17:30

OK, když použiji LISP copylayer, tak se mi vytvoří nová hladina ***_copy.

 
Když v té hladině ***_copy něco nakreslím, tak se mi to objeví ve výřezech, ve kterých to nechci,
 
Nevím co všechno COPYLAYER kopíruje za vlastnosti, ale zmraženost/rozmraženost asi ne.
Nebo dělám něco špatně?
]]> Sun, 27 Jan 2019 17:30:18 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=28311&PID=115349&title=kopie-hladiny-v-ramci-nekolika-vyrezu#115349 <![CDATA[KOPIE hladiny v rámci několika výřezů : Plný editor zde nemá žádný smysl....]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=28311&PID=115348&title=kopie-hladiny-v-ramci-nekolika-vyrezu#115348 Autor: Vladimír Michl
Předmět: 28311
Zasláno: 27.led.2019 v 16:13

Plný editor zde nemá žádný smysl. Johny jej zde použil zřejmě pro pohodlnou modifikaci názvu kopie hladiny. Když vypnete CMDDIA, můžete název zadávat klasicky v příkazovém řádku. A ukliknutí na Plný editor je nyní v upravené verzi také ošetřeno. Já myslím, že to dělá to chcete.]]> Sun, 27 Jan 2019 16:13:56 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=28311&PID=115348&title=kopie-hladiny-v-ramci-nekolika-vyrezu#115348 <![CDATA[KOPIE hladiny v rámci několika výřezů : Lisp (copylayer)se mi načte,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=28311&PID=115345&title=kopie-hladiny-v-ramci-nekolika-vyrezu#115345 Autor: Koluch
Předmět: 28311
Zasláno: 26.led.2019 v 12:28

Lisp (copylayer) se mi načte, příkaz spustím, ale:
 
napíše mi to? úprava víceřádkového textu a po kliknutí na Plný editor to napíše Error: nesprávný typ argumentu: stringp -1.
 
Navíc příkaz nelze ukončit ESC, ani OK ani storno.
 
 
]]> Sat, 26 Jan 2019 12:28:41 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=28311&PID=115345&title=kopie-hladiny-v-ramci-nekolika-vyrezu#115345 <![CDATA[KOPIE hladiny v rámci několika výřezů : Taky jsem se do toho pustil -...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=28311&PID=115344&title=kopie-hladiny-v-ramci-nekolika-vyrezu#115344 Autor: Vladimír Michl
Předmět: 28311
Zasláno: 25.led.2019 v 22:45

Taky jsem se do toho pustil - zkuste utilitu/příkaz CopyAllVP ze sekce Download (načíst přes APLČTI a napsat příkaz CopyAllVP). Zkopíruje stav hladin jednoho rozvržení do všech ostatních. Používá jiný postup než aplikace Johnyho, stavy hladin. Tak si můžete vybrat :-)

DOPLNĚNO: Pardon, ten CopyAllVP řeší trochu jiný problém - pro duplikaci hladiny použijte ten výše uvedený program, funguje dobře. Zde lehce upraven/doplněn:

CopyLayer.lsp
(doplněn 27.1. 16:14 a 28.1. 8:25)

Upravil Vladimír Michl - 28.led.2019 v 08:25]]> Fri, 25 Jan 2019 22:45:35 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=28311&PID=115344&title=kopie-hladiny-v-ramci-nekolika-vyrezu#115344 <![CDATA[KOPIE hladiny v rámci několika výřezů : Kopírujete hladinu vybraného objektu...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=28311&PID=115343&title=kopie-hladiny-v-ramci-nekolika-vyrezu#115343 Autor: johny
Předmět: 28311
Zasláno: 25.led.2019 v 20:03

Kopírujete hladinu vybraného objektu nebo aktuální hladinu.
Hledejte jak použít LISP, pokud nevíte.

(vl-load-com)


(defun c:CopyLayer (/ *error* ctb cme doc vpfreeze new old ss ids)
  
  (defun *error* (errmsg)
    (if (not (wcmatch errmsg "Function cancelled,quit / exit abort,console break,end"))
      (princ (strcat "\nError: " errmsg)))
    (if ctb (setvar 'CTAB ctb))
    (if cme (setvar 'CMDECHO cme))
    (if doc (vla-endundomark doc))
    (princ))
  
  ;----
  (defun :CopyLayer (new old / ed )
    (if (setq ed (entget (tblobjname "LAYER" old)))
      (entmake (list '(0 . "LAYER")
                     '(100 . "AcDbSymbolTableRecord")
                     '(100 . "AcDbLayerTableRecord")
                     (cons 2    new)
                     (assoc 70  ed)
                     (assoc 62  ed)
                     (assoc 6   ed)
                     (assoc 290 ed)
                     (assoc 370 ed)
                     (assoc 390 ed)))))

  
  ; -----------------------------------------------------------------------------------------------------------
  ; -----------------------------------------------------------------------------------------------------------

  
  (setq old (if (setq ssl (ssget))
              (cdr (assoc 8 (entget (ssname ssl 0))))
              (getvar 'CLAYER))
        new ""
        
        ctb (getvar 'CTAB)
        cme (getvar 'CMDECHO))
  
  (vla-startundomark (setq doc (vla-get-activedocument (vlax-get-acad-object))))
  (setvar 'CMDECHO 0)
  
  
  (while (or (not (snvalid new 0))
             (tblsearch "LAYER" new))
    (setq new (lisped old)))
  
  (if (:CopyLayer new old)
    (foreach e (layoutlist)
      (if (setq ss (ssget "_X" (list '(0 . "VIEWPORT") (cons 410 e) (cons -4 "!=") (cons 69 1))))
        (progn
          (setq ids nil)
          (repeat (setq i (sslength ss))
            (if (and (setq ent (ssname ss (setq i (1- i))))
                     (setq lst (vl-remove-if-not '(lambda (x) (= 331 (car x))) (entget ent)))
                     (setq lst (vl-remove-if-not '(lambda (x) (= old (cdr (assoc 2 (entget (cdr x)))))) lst))
                     )
              (setq ids (cons (cdr (assoc 69 (entget ent))) ids))))
          (if ids
            (progn
              (setvar 'CTAB e)
              (command "_.MSPACE")
              (foreach id ids
                (setvar 'CVPORT id)
                (command "_.VPLAYER" "_Freeze" new "_Current" ""))
              (command "_.PSPACE")))))))
  
  (*error* "end")
  )


Upravil johny - 25.led.2019 v 20:06]]> Fri, 25 Jan 2019 20:03:53 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=28311&PID=115343&title=kopie-hladiny-v-ramci-nekolika-vyrezu#115343 <![CDATA[KOPIE hladiny v rámci několika výřezů : OK zeptám se jinak.Jak vytvořit...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=28311&PID=115340&title=kopie-hladiny-v-ramci-nekolika-vyrezu#115340 Autor: Koluch
Předmět: 28311
Zasláno: 25.led.2019 v 13:41

OK zeptám se jinak.
 
Jak vytvořit novou hladinu, která bude zmražená pouze v některých rozvrženích (co rozvržení to výřez)?
Pokud kreslím od nuly, tak mám například Hladinu1 zmraženou ve výřezu 1,3,5,100 (a použiji funkci zmrazit v nových výřezech).
Teď chci však dokreslit něco v nové Hladině2, která se tematicky váže k Hladině1 a tudíž musí být opět zmražena ve výřezech 1,3,5,100. Jak toho docílit?
]]> Fri, 25 Jan 2019 13:41:33 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=28311&PID=115340&title=kopie-hladiny-v-ramci-nekolika-vyrezu#115340