CAD Fórum : Hromadný Refedit -2 https://www.cadforum.cz/forum/ Fri, 15 May 2026 10:33:56 +0000 Thu, 12 Feb 2009 08:18:57 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=8085 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Hromadný Refedit -2 : Znova otevírám toto téma. Mám...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=8085&PID=40863&title=hromadny-refedit-2#40863 Autor: Ferdinand
Předmět: 8085
Zasláno: 12.úno.2009 v 08:18

Znova otevírám toto téma. Mám vybranou sekvenci z lispu
(defun...
...
(setq DWG (cadr (fnsplitl (getvar "dwgname"))))
(setq DWGC (strcat DWG "_C"))
;;1-podrutina-vl.ent. bloku obrysu -zmena barvy&ltype=ByBlock
(defun C:zmena_EC (/ 1PZ 1E 1S0 PE62 PE6 NE62 NE6)
  (setq 1PZ (ssget "_X"
     (list (cons -4 "<OR")
    (cons 0 "LWPOLYLINE")
    (cons 62 6)
    (cons 6 "center")
    (cons -4 "OR>")
    (cons -4 "<OR")
    (cons 0 "LINE")
    (cons 62 6)
    (cons 6 "center")
    (cons -4 "OR>")
     )
     )
  )
 
;;2-cyklus-zmena vl. ent. bloku obrysu
(setq N 0)
(while (< N (sslength 1PZ))
  (setq 1E (ssname 1PZ N))
  (setq 1S0 (entget 1E))
  (setq PE62 (assoc 62 1S0))
  (setq PE6 (assoc 6 1S0))
  (setq NE62 (cons 62 0))
  (setq NE6 (cons 6 "ByBlock"))
  (setq 1S0 (subst NE62 PE62 1S0))
  (setq 1S0 (subst NE6 PE6 1S0))
  (entmod 1S0)
  (entupd 1E)
  (setq N (1+ N))
)
)
 
;;3-proces-zmena vl. ent. bloku obrysu
(command "_snap" "_OFf")
(progn
  (command "_refedit")
  (while (> (getvar "cmdactive") 0) (command pause))
  (C:zmena_EC)
  (command "_refclose")
  (while (> (getvar "cmdactive") 0) (command "_S"))
)
 
;;4-blok obrysu -zmena barvy=magenta & ltype=center
(if (tblsearch "block" DWGC)
  (progn
    (setq 0PZ
    (ssget
      "_X"
      (list (cons 0 "INSERT") (cons 2 DWGC))
    )
    )
    (setq 0E (ssname 0PZ 0))
    (setq 0S0 (entget 0E))
    (setq P62 (assoc 62 0S0))
    (setq P6 (assoc 6 0S0))
    (setq N62 (cons 62 6))
    (setq N6 (cons 6 "center"))
    (setq 0S0 (subst N62 P62 0S0))
    (setq 0S0 (subst N6 P6 0S0))
    (entmod 0S0)
    (entupd 0E)
  )
  nil
)
(command "_qsave")
...
)
 
Pokud sekvence 1-, 2-, 3-, 4- postupně nakopiruju do p.ř. tak se to provede. Pokud ale to chci aplikovat jako kompaktní volaný lisp, tak to provede jen 1-,2-,3- a qsave, bez chybové hlášky, 4- vynechá.
]]> Thu, 12 Feb 2009 08:18:57 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=8085&PID=40863&title=hromadny-refedit-2#40863