CAD Fórum : Automatické prohození hodnot atributů v blocích https://www.cadforum.cz/forum/ Sun, 10 May 2026 10:06:43 +0000 Tue, 10 Mar 2020 18:59:23 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=30152 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Automatické prohození hodnot atributů v blocích : SkvěléFunguje jak má, děkuji. ]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=30152&PID=119514&title=automaticke-prohozeni-hodnot-atributu-v-blocich#119514 Autor: sumi
Předmět: 30152
Zasláno: 10.bře.2020 v 18:59

Skvělé Big smile
Funguje jak má, děkuji.
]]> Tue, 10 Mar 2020 18:59:23 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=30152&PID=119514&title=automaticke-prohozeni-hodnot-atributu-v-blocich#119514 <![CDATA[Automatické prohození hodnot atributů v blocích : (defun c:AttSwap ( / ss t1 t2...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=30152&PID=119497&title=automaticke-prohozeni-hodnot-atributu-v-blocich#119497 Autor: johny
Předmět: 30152
Zasláno: 09.bře.2020 v 17:19

(defun c:AttSwap ( / ss t1 t2 i en v1 v2)

  (if (and (setq ss (ssget ":L" '((0 . "INSERT") (66 . 1))))
   (setq t1 (getstring "\nTag 1: "))
   (setq t2 (getstring "\nTag 2: "))
   )
    (repeat (setq i (sslength ss))
      (setq en (ssname ss (setq i (1- i))))
      (and (setq v1 (LM:getattributevalue  en t1))
   (setq v2 (LM:getattributevalue  en t2))
   (LM:setattributevalue  en t1 v2)
   (LM:setattributevalue  en t2 v1))))
  (princ)
  )



;; Get Attribute Value  -  Lee Mac
;; Returns the value held by the specified tag within the supplied block, if present.
;; blk - [ent] Block (Insert) Entity Name
;; tag - [str] Attribute TagString
;; Returns: [str] Attribute value, else nil if tag is not found.

(defun LM:getattributevalue ( blk tag / enx )
    (if (and (setq blk (entnext blk)) (= "ATTRIB" (cdr (assoc 0 (setq enx (entget blk))))))
        (if (= (strcase tag) (strcase (cdr (assoc 2 enx))))
            (cdr (assoc 1 (reverse enx)))
            (LM:getattributevalue blk tag))))

;; Set Attribute Value  -  Lee Mac
;; Sets the value of the first attribute with the given tag found within the block, if present.
;; blk - [ent] Block (Insert) Entity Name
;; tag - [str] Attribute TagString
;; val - [str] Attribute Value
;; Returns: [str] Attribute value if successful, else nil.

(defun LM:setattributevalue ( blk tag val / enx )
    (if (and (setq blk (entnext blk)) (= "ATTRIB" (cdr (assoc 0 (setq enx (entget blk))))))
        (if (= (strcase tag) (strcase (cdr (assoc 2 enx))))
            (if (entmod (subst (cons 1 val) (assoc 1 (reverse enx)) enx))
                (progn
                    (entupd blk)
                    val))
            (LM:setattributevalue blk tag val))))
]]> Mon, 09 Mar 2020 17:19:03 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=30152&PID=119497&title=automaticke-prohozeni-hodnot-atributu-v-blocich#119497 <![CDATA[Automatické prohození hodnot atributů v blocích : Zkuste mě prosím trochu více popostrčit....]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=30152&PID=119496&title=automaticke-prohozeni-hodnot-atributu-v-blocich#119496 Autor: sumi
Předmět: 30152
Zasláno: 09.bře.2020 v 15:55

Zkuste mě prosím trochu více popostrčit. Jsem úplný začátečník a je to pro začátek velké sousto.]]> Mon, 09 Mar 2020 15:55:40 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=30152&PID=119496&title=automaticke-prohozeni-hodnot-atributu-v-blocich#119496 <![CDATA[Automatické prohození hodnot atributů v blocích : Hmm, máte docela starý autocad.Pak...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=30152&PID=119495&title=automaticke-prohozeni-hodnot-atributu-v-blocich#119495 Autor: johny
Předmět: 30152
Zasláno: 09.bře.2020 v 14:53

Hmm, máte docela starý autocad.
Pak použijte místo get/setpropertyvalue tyto:

http://www.lee-mac.com/attributefunctions.html

Aspon se něco naučíte.
]]> Mon, 09 Mar 2020 14:53:10 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=30152&PID=119495&title=automaticke-prohozeni-hodnot-atributu-v-blocich#119495 <![CDATA[Automatické prohození hodnot atributů v blocích : Vrací chybu žádná definice funkceGETPROPERTYVALUE...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=30152&PID=119494&title=automaticke-prohozeni-hodnot-atributu-v-blocich#119494 Autor: sumi
Předmět: 30152
Zasláno: 09.bře.2020 v 13:32

Vrací chybu žádná definice funkce GETPROPERTYVALUE]]> Mon, 09 Mar 2020 13:32:29 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=30152&PID=119494&title=automaticke-prohozeni-hodnot-atributu-v-blocich#119494 <![CDATA[Automatické prohození hodnot atributů v blocích : (defun c:AttSwap ( / ss t1 t2...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=30152&PID=119493&title=automaticke-prohozeni-hodnot-atributu-v-blocich#119493 Autor: johny
Předmět: 30152
Zasláno: 09.bře.2020 v 13:18

(defun c:AttSwap ( / ss t1 t2 i en v1 v2)

  (if (and (setq ss (ssget ":L" '((0 . "INSERT") (66 . 1))))
   (setq t1 (getstring "\nTag 1: "))
   (setq t2 (getstring "\nTag 2: "))
   )
    (repeat (setq i (sslength ss))
      (setq en (ssname ss (setq i (1- i))))
      (and (setq v1 (getpropertyvalue en t1))
   (setq v2 (getpropertyvalue en t2))
   (not (setpropertyvalue en t1 v2))
   (not (setpropertyvalue en t2 v1)))))
  (princ)
  )
]]> Mon, 09 Mar 2020 13:18:18 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=30152&PID=119493&title=automaticke-prohozeni-hodnot-atributu-v-blocich#119493 <![CDATA[Automatické prohození hodnot atributů v blocích : Poprosím Vás o radu viz. níže.Potřeboval...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=30152&PID=119492&title=automaticke-prohozeni-hodnot-atributu-v-blocich#119492 Autor: sumi
Předmět: 30152
Zasláno: 09.bře.2020 v 12:16

Poprosím Vás o radu viz. níže.
Potřeboval bych automaticky prohodit vyplněné hodnoty atributů v blocích.
Bloky mají své atributy např. název "A" a "B", potřebuji vyplněné hodnoty "A"=1 "B"=2 prohodit tzn. po vykonání "funkce" bude mít v bloku atribut "A" hodnotu 2 a "B" hodnotu 1.
Bloky mají různé názvy, tzn.: funkce by neměla brát v potaz název bloku ale najít atribut "A" a atribut "B" v libovolných názvech bloků a hodnoty prohodit (bez ohledu na název bloku).


Jen to nebude označovat barevně, ale prohodí atribut A s atributem B.



Upravil sumi - 09.bře.2020 v 12:34]]> Mon, 09 Mar 2020 12:16:28 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=30152&PID=119492&title=automaticke-prohozeni-hodnot-atributu-v-blocich#119492