CAD Fórum : Copy_AutoNum

CAD Fórum : Copy_AutoNum https://www.cadforum.cz/forum/ Tue, 12 May 2026 17:33:13 +0000 Fri, 19 Dec 2008 12:35:58 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=7770 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Copy_AutoNum : není zač :-) rádo se stalo. ]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7770&PID=39286&title=copy-autonum#39286 Autor: chlebovsky
Předmět: 7770
Zasláno: 19.pro.2008 v 12:35

není zač :-) rádo se stalo.]]> Fri, 19 Dec 2008 12:35:58 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7770&PID=39286&title=copy-autonum#39286 <![CDATA[Copy_AutoNum : Tak som sa po dvoch dňoch dostala...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7770&PID=39252&title=copy-autonum#39252 Autor: Buba
Předmět: 7770
Zasláno: 18.pro.2008 v 14:34

Tak som sa po dvoch dňoch dostala opäť k PC.

Ďakujem všetkým mnohokrát.

To: chlebovsky toto presne som myslela. Ďakujem. :)

]]> Thu, 18 Dec 2008 14:34:11 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7770&PID=39252&title=copy-autonum#39252 <![CDATA[Copy_AutoNum : Snad pomůže :-) (defun c:Copy_AutoNum...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7770&PID=39223&title=copy-autonum#39223 Autor: chlebovsky
Předmět: 7770
Zasláno: 17.pro.2008 v 22:46

Snad pomůže :-)

(defun c:Copy_AutoNum (/ ent od plus new i ttt bod)
(princ "\nVyber prvotní text ")
(if (setq ent (entsel))
    (progn
      (setq ent (entget (car ent)))
      (if (or (= (cdr (assoc 0 ent)) "TEXT")(= (cdr (assoc 0 ent)) "MTEXT")(= (cdr (assoc 0 ent)) "ATTDEF"))
(progn
   (setq od (getint "\nZadej počáteční hodnotu přičítání [0] :"))
   (if (not od)(setq od 0))
   (setq plus (getint "\nZadej o kolik navýšit další hodnotu [1] :"))
   (if (not plus)(setq plus 1))
   (setq text (cdr (assoc 1 ent)))
   (setq ttt od)
   (setq new (entget (entmakex ent)))
   (setq new (subst (cons 1 (strcat text (itoa ttt)))(assoc 1 new) new))
          (entmod new)
   (command "_move" (cdr (assoc -1 new)) "" (cdr (assoc 10 new)) pause)
   (setq bod (getvar "lastpoint"))
   (while (> (distance bod (cdr (assoc 10 new))) 0)
     (setq ttt (+ ttt plus))
     (setq new (entget (entmakex ent)))
     (setq new (subst (cons 1 (strcat text (itoa ttt)))(assoc 1 new) new))
            (entmod new)
     (command "_move" (cdr (assoc -1 new)) "" (cdr (assoc 10 new)) pause)
     (setq bod (getvar "lastpoint"))
   )
   (entdel (cdr (assoc -1 new)))
        )
(alert "Vybraná entita není text ani mtext.")
      )
    )
    (alert "Nebyl vybrán žádný text")
)
)

]]> Wed, 17 Dec 2008 22:46:26 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7770&PID=39223&title=copy-autonum#39223 <![CDATA[Copy_AutoNum : Ano, ten konec cyklu je "divný"...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7770&PID=39212&title=copy-autonum#39212 Autor: Vladimír Michl
Předmět: 7770
Zasláno: 17.pro.2008 v 16:15

Ano, ten konec cyklu je "divný" (je to dělané jen narychlo, hrubou silou).]]> Wed, 17 Dec 2008 16:15:01 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7770&PID=39212&title=copy-autonum#39212 <![CDATA[Copy_AutoNum : Není tam nějaká nesrovnalost v...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7770&PID=39210&title=copy-autonum#39210 Autor: alfred
Předmět: 7770
Zasláno: 17.pro.2008 v 16:12

Není tam nějaká nesrovnalost v cyklu? Když skončím kopírování pravým tlačítkem tak při prvním kliku pravým tlačítkem to nějak divně umístí ještě jeden text s číslem a při druhém kliknutí na to samé místo ještě další ale bez čísla.
]]> Wed, 17 Dec 2008 16:12:27 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7770&PID=39210&title=copy-autonum#39210 <![CDATA[Copy_AutoNum : Zkuste tuto upravenou verzi příkazu...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7770&PID=39156&title=copy-autonum#39156 Autor: Vladimír Michl
Předmět: 7770
Zasláno: 16.pro.2008 v 17:19

Zkuste tuto upravenou verzi příkazu TCOUNT (z Express Tools). Soubor ACETTXT.LSP zkopírujte (přejmenujte a přepište, se zálohou) do složky Express Tools.

Nová volba "Copy" příkazu [CMD]TCOUNT[/CMD] pak umožní opakovaně vkládat první vybraný text a číslovat pořadí.

uploads/20081216_171819_acettxt2.lsp

]]> Tue, 16 Dec 2008 17:19:09 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7770&PID=39156&title=copy-autonum#39156 <![CDATA[Copy_AutoNum : String na začátku budou vždy WL,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7770&PID=39153&title=copy-autonum#39153 Autor: alfred
Předmět: 7770
Zasláno: 16.pro.2008 v 16:23

String na začátku budou vždy WL, tedy dva znaky?
Čísla budou jen od nuly do 99?
Pro čísla 0-9 musí být ta nula (01, 02...)? Nestačí WL1, WL2?

]]> Tue, 16 Dec 2008 16:23:34 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7770&PID=39153&title=copy-autonum#39153 <![CDATA[Copy_AutoNum : Vedel a bol by ochotný niekto...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7770&PID=39150&title=copy-autonum#39150 Autor: Buba
Předmět: 7770
Zasláno: 16.pro.2008 v 15:27

Vedel a bol by ochotný niekto naprogramovať utilitku, ktorá by súčasne s kopírovaním textu tento editovala vždy o postfix 0......N.

Postup funkčnosti:

- vytvorím si text WL0

- spustím Copy_AutoNum

-zadám počiatočnú hodnotu (napr.: 0)

-označím SOURCE (WL0), ten prepíše na WL00

- pri každom ďalšom kliknutí sa mi postupne vkladajú okopírované texty, avšak každý nasledujúci je inkrementovaný o 1 (WL01, WL02, WL03..... až pokiaľ nestlačím inú klávesu, napríklad ENTER, alebo pravé tlačítko)

Ďakujem.

]]> Tue, 16 Dec 2008 15:27:09 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7770&PID=39150&title=copy-autonum#39150