[求助]块的属性操作

zpqcq 发表于 2005-1-3 22:54:00

请问怎样修改块的属性值。

例如：块中有一个编号属性，其值为：12345。现将它改为：54321

多谢！

王咣生 发表于 2005-1-3 22:57:00

参考:

 (vl-load-com)

(defun c:mychange ( / ss item blk) (if (setq ss (vlex-SelectOnScreen-Filter (list 0 2)(list "INSERT" "actj2tk"))) ;换成你的块名 (vlax-For item ss (if (equal (type item) 'vla-object) (setq blk (vlax-vla-object->Ename item)) (setq blk item) ) (vlex-ChangeAttributes (list blk (cons "R1" ""))) ; R1改成12345, ""改成54321 (terpri) ) ) )

(defun vlex-SSetExists-p (Name) (not (vl-Catch-All-Error-p (vl-Catch-All-Apply 'vla-Item (list (vla-Get-SelectionSets (vlex-ActiveDocument)) Name) ) ) ) )

(defun vlex-SelectOnScreen-Filter (GroupCodes FilterLists / ss) (if (vlex-SSetExists-p "%TEMP_SET") (vla-Delete (vla-Item (vla-get-SelectionSets (vlex-ActiveDocument)) "%TEMP_SET" ) ) ) (setq ss (vla-Add (vla-get-SelectionSets (vlex-ActiveDocument)) "%TEMP_SET" ) ) (vla-Select ss ACSelectionSetAll nil nil (vlex-IntList->VarArray GroupCodes) (vlex-VarList->VarArray FilterLists) ) ss )

(defun vlex-VarList->VarArray (aList) (vlax-SafeArray-Fill (vlax-Make-SafeArray vlax-vbVariant ;(12) Variant (cons 0 (- (length aList) 1)) ) aList ) )

(defun vlex-IntList->VarArray (aList) (vlax-SafeArray-Fill (vlax-Make-SafeArray vlax-vbInteger ; (2) Integer (cons 0 (- (length aList) 1)) ) aList ) )

(defun vlex-ChangeAttributes (lst / blk item atts) (setq blk (vlax-Ename->vla-Object (car lst)) lst (cdr lst) ) (if (= (vla-Get-HasAttributes blk) :vlax-true) (progn (setq atts (vlax-SafeArray->list (vlax-Variant-Value (vla-GetAttributes blk)) ) ); setq (foreach item lst (mapcar '(lambda (x) (if (= (strcase (car item)) (strcase (vla-Get-TagString x))) (vla-Put-TextString x (cdr item)) ); endif ) atts ); mapcar ); foreach (vla-Update blk) ) ); endif )

(defun vlex-ActiveDocument () (vla-Get-ActiveDocument (vlax-get-acad-object)) )

如果不明白,请贴上你的dwg图.

zpqcq 发表于 2005-1-4 20:44:00

多谢王斑竹回答我的问题。

王斑竹：我想在R14下实现上述功能，能否用Autolisp啊？

十二分的感谢！

王咣生 发表于 2005-1-4 23:31:00

应该也可以吧,只是相比VLISP要麻烦的多.

meflying 发表于 2005-1-5 08:25:00

autolisp简单多了吧

(defun c:test( / ent ents) (setq ent (car (entsel "选择属性块..."))) (while (/= (cdr (assoc 0 (setq ents (entget (setq ent (entnext ent)))))) "SEQEND") (if (= (cdr (assoc 1 ents)) "12345") (progn (setq ents (subst (cons 1 "54321") (assoc 1 ents) ents)) (entmod ents) (entupd ent) ) ) ) (princ) )

xstlf 发表于 2005-1-5 20:15:00

(setq ent (car (entsel "选择属性块...")))

这句的，ent .为，块的，car.指的是什么？那么，cdr又是对应的是什么呢？

我对块的DXF组码看帮助也看不懂呀，老师讲得详细一点呀。

(while (/= (cdr (assoc 0 (setq ents (entget (setq ent (entnext ent)))))) "SEQEND") 这句，的，seqend,又是指什么呢？

老师们，关于块的DXF，到底怎么构成的呀。为什么CAD里的帮助文件里介绍得这么简单呀。看不懂呀。

meflying 发表于 2005-1-5 20:20:00

你问题这么多，一时也说不清楚，你还是慢慢来吧，不要着急

zpqcq 发表于 2005-1-6 22:40:00

<A name=3587>meflying</A>：你好！但好象不能用啊。

我上传了一个R14的DWG文件，其中编号中有7个“12345”需要替换，明细表中有7个“12345”需要替换，图框中有2个“12345”需要替换，我希望选择一次就可以替换这16个“12345”。

请解答，谢谢！

meflying 发表于 2005-1-7 08:28:00

你先说说怎么不能用吧，，，我试了，完全可以用

注意：程序替换的是12345，而不是包含12345的部分

龙龙仔 发表于 2005-1-7 16:46:00

(defun C:TT (/ ENT ENTT N NEWTXT OLDTXT SS STR)
(setqSS       (ssget "x" '((0 . "INSERT") (66 . 1)))
N       0
OLDTXT "12345"
NEWTXT "54321"
)
(repeat (sslength SS)
   (setq ENT (ssname SS N))
   (while (/= (cdr (assoc 0 (entget (setq ENT (entnext ENT)))))
            "SEQEND"
   )
      (if
   (wcmatch (setq STR (cdr (assoc 1 (setq ENTT (entget ENT)))))
      (strcat OLDTXT "*")
)
(progn
   (setq STR (strcat NEWTXT (substr STR (1+ (strlen OLDTXT)))))
   ;;(setq STR (vl-string-subst NEWTXT OLDTXT STR))
   (entmod
      (subst (cons 1 STR) (assoc 1 ENTT) ENTT)
   )
   (entupd ENT)
)
      )
   )
   (setq N (1+ N))
)
(princ)
)

页: [1] 2

明经CAD社区's Archiver

[求助]块的属性操作

回复