如何实现将块名刷到属性文字中

yansu

如何实现将块名刷到属性文字中，定义了一个属性块标签，其中一个属性是块名，现在需要将其他图块的块名刷到该属性上，是该属性值是那个块的块名。O(∩_∩)O谢谢

newer

把你定义的块，传到论坛，这样说，不好帮你啊。

yansu

传上样图，麻烦楼上的帮帮忙，O(∩_∩)O谢谢

Free-Lancer

混合编程 2011+ xdapi

1. (defun c:tt (/ e e1 bn)
   
2.   (while
   
3.     (and (setq e (xdrx_entsel "\nPick windows block: " '((0 . "INSERT"))))
   
4.          (setq
   
5.            e1 (xdrx_entsel "\nPick block: " '((0 . "insert") (66 . 1)))
   
6.          )
   
7.     )
   
8.      (setq bn (cdr (assoc 2 (entget (car e)))))
   
9.      (setpropertyvalue (car e1) "窗号" bn)
   
10.   )
    
11.   (princ)
    
12. )

(defun c:tt (/ e e1 bn)<br />   (while<br />     (and (setq e (xdrx_entsel "\nPick windows block: " '((0 . "INSERT"))))<br />          (setq<br />            e1 (xdrx_entsel "\nPick block: " '((0 . "insert") (66 . 1)))<br />          )<br />     )<br />      (setq bn (cdr (assoc 2 (entget (car e)))))<br />      (setpropertyvalue (car e1) "窗号" bn)<br />   )<br />   (princ)<br /> )

yansu

谢谢Free-Lancer，加载后出现如下问题，请告诉我如何解决，再次表示感谢
提示：错误: no function definition: XDRX_ENTSEL，需要加载晓东的哪个程序，可否把他单独放在程序里

Free-Lancer

yansu 发表于 2013-9-7 07:08
谢谢Free-Lancer，加载后出现如下问题，请告诉我如何解决，再次表示感谢
提示：错误: no function definit ...

http://bbs.xdcad.net/thread-668896-1-1.html
根据你的CAD版本选择相应版本ARX加载

yansu

谢谢，可以使用啦。能不能帮助修改一下，不是规定属性修改，而是鼠标点哪个属性，哪个属性就改为块名称

Free-Lancer

yansu 发表于 2013-9-7 08:49
谢谢，可以使用啦。能不能帮助修改一下，不是规定属性修改，而是鼠标点哪个属性，哪个属性就改为块名称

1. (defun c:tt (/ e1 e2)
   
2.   (while
   
3.     (and (setq e1 (car (xdrx_entsel "\nPick Windows Block: " '((0 . "INSERT")))))
   
4.   (setq e2 (car (nentsel "\nPick Attrib: ")))
   
5.   (= (cdr (assoc 0 (entget e2))) "ATTRIB")
   
6.     )
   
7.      (setpropertyvalue
   
8.        e2
   
9.        "Value"
   
10.        (cdr (assoc 2 (entget e1)))
    
11.      )
    
12.   )
    
13.   (princ)
    
14. )

(defun c:tt (/ e1 e2)<br />   (while<br />     (and (setq e1 (car (xdrx_entsel "\nPick Windows Block: " '((0 . "INSERT")))))<br />   (setq e2 (car (nentsel "\nPick Attrib: ")))<br />   (= (cdr (assoc 0 (entget e2))) "ATTRIB")<br />     )<br />      (setpropertyvalue<br />        e2<br />        "Value"<br />        (cdr (assoc 2 (entget e1)))<br />      )<br />   )<br />   (princ)<br /> )

yansu

十分感谢Free-Lancer，程序非常理想，解决了很大问题。谢谢:lol:lol

yansu

Free-Lancer麻烦你能否使程序可以将块名刷到单行文字，谢谢啦

Free-Lancer

yansu 发表于 2013-9-26 09:14
Free-Lancer麻烦你能否使程序可以将块名刷到单行文字，谢谢啦

加一句话,属性和文字都可以

1. (defun c:tt (/ e1 e2)
   
2.   (while
   
3.     (and (setq
   
4.        e1 (car
   
5.         (xdrx_entsel "\nPick Windows Block: " '((0 . "INSERT")))
   
6.           )
   
7.      )
   
8.      (setq e2 (car (nentsel "\nPick Attrib or Text: ")))
   
9.      (member (cdr (assoc 0 (entget e2))) '("TEXT" "ATTRIB"))
   
10.     )
    
11.      (setpropertyvalue
    
12.        e2
    
13.        (if (= (xdrx_getpropertyvalue e2 "IsA") "AcDbText");_新版修正 attribute Bug
    
14.      "Textstring"
    
15.      "Value"
    
16.        )
    
17.        (cdr (assoc 2 (entget e1)))
    
18.      )
    
19.   )
    
20.   (princ)
    
21. )

(defun c:tt (/ e1 e2)<br />   (while<br />     (and (setq<br />        e1 (car<br />         (xdrx_entsel "\nPick Windows Block: " '((0 . "INSERT")))<br />           )<br />      )<br />      (setq e2 (car (nentsel "\nPick Attrib or Text: ")))<br />      (member (cdr (assoc 0 (entget e2))) '("TEXT" "ATTRIB"))<br />     )<br />      (setpropertyvalue<br />        e2<br />        (if (= (xdrx_getpropertyvalue e2 "IsA") "AcDbText");_新版修正 attribute Bug<br />      "Textstring"<br />      "Value"<br />        )<br />        (cdr (assoc 2 (entget e1)))<br />      )<br />   )<br />   (princ)<br /> )

yansu

十分感谢，工作效率大大提高啦。O(∩_∩)O谢谢:D:D,试验了一下，单行文字没有成功，不知什么原因。是不是选完块，就可以选文字或者属性，选属性就可以，选文字就文字就不能够改为块名

st788796

yansu 发表于 2013-9-27 07:05
十分感谢，工作效率大大提高啦。O(∩_∩)O谢谢,试验了一下，单行文字没有成功，不知什么原因。是不是选 ...

文字应该是Textstring，不是 value

Free-Lancer

yansu 发表于 2013-9-27 07:05
十分感谢，工作效率大大提高啦。O(∩_∩)O谢谢,试验了一下，单行文字没有成功，不知什么原因。是不是选 ...

楼上代码已修改，重新下载

Free-Lancer

yansu 发表于 2013-9-26 09:14
Free-Lancer麻烦你能否使程序可以将块名刷到单行文字，谢谢啦

用最新的 API，简化如下

1. (defun c:tt (/ e1 e2)
   
2.   (while
   
3.     (and (setq
   
4.        e1 (car
   
5.         (xdrx_entsel "\nPick Windows Block: " '((0 . "INSERT")))
   
6.           )
   
7.      )
   
8.      (setq e2 (car (nentsel "\nPick Attrib or Text: ")))
   
9.      (member (xdrx_getpropertyvalue e2 "IsA")
   
10.          '("AcDbText" "AcDbAttribute")
    
11.      )
    
12.     )
    
13.      (xdrx_setpropertyvalue
    
14.        e2
    
15.        "Textstring"
    
16.        (car (xdrx_getpropertyvalue e1 "BlockTableRecord"))
    
17.      )
    
18.   )
    
19.   (princ)
    
20. )

(defun c:tt (/ e1 e2)<br />   (while<br />     (and (setq<br />        e1 (car<br />         (xdrx_entsel "\nPick Windows Block: " '((0 . "INSERT")))<br />           )<br />      )<br />      (setq e2 (car (nentsel "\nPick Attrib or Text: ")))<br />      (member (xdrx_getpropertyvalue e2 "IsA")<br />          '("AcDbText" "AcDbAttribute")<br />      )<br />     )<br />      (xdrx_setpropertyvalue<br />        e2<br />        "Textstring"<br />        (car (xdrx_getpropertyvalue e1 "BlockTableRecord"))<br />      )<br />   )<br />   (princ)<br /> )