怎样修改属性块中的属性???

maoyangmy

怎样修改属性块中的属性???
因工作需要, 我想在程序中修改属性块的属性，新建、删除属性，修改属性的性质为“不可见”、“预设”等，如何实现？？？

liuwei_83

可以选择编辑块，然后进行修改，添加，或删除

sealive_leafage

那要看你用VBA或者是lisp编程工具了，工具不同方法也不相同；

maoyangmy

我现在想采用LISP编程, 怎样解决?
7 S/ m/ F# d: \; _2 j1 H& j1 u9 bVBA在面向对象方便比LSP处理的好, 如果sealive_leafage 对此也了解,请一并告诉解决方法,谢谢

sealive_leafage

lisp可以尝试调用acad命令：-attedit来编辑属性；
可以试试下面的代码：
(defun c:test ()
0 f$ |# Y' K  m/ }! t2 D(vl-load-com)
(setq att (getstring "\nChange attribute [Angle/Color/Height/Layer/Position/Style/Value/Tagstring]: "))
0 I' W2 A0 u) r6 d0 D( R3 g; P(setq obj (car (nentsel "\nSelect an Attribute: ")))
(setq obj (vlax-ename->vla-object obj))
(cond
((= (strcase att) "A")
(setq ang (getstring t "\nNew Angle: "))
(vlax-put-property obj 'rotation ang))
$ Q0 A$ F! K( B((= (strcase att) "C")
) v' h7 P5 u$ C1 q(setq col (getstring "\nNew Color Number: "))
(vlax-put-property obj 'color col))
5 }- i8 G5 _  P3 r6 f6 o( y3 A((= (strcase att) "H")
4 [$ T- k/ Z" S* @(setq ohei (vlax-get-property obj 'height))
(setq hei (getdist (strcat "\nNew Height <" (rtos oh 2 2) ">:")))
0 q! `9 D9 |& o$ C(if (= hei "")(setq hei ohei))
(vlax-put-property obj 'height hei))
((= (strcase att) "L")
( C$ S! c, v# ?0 `(setq lay (getstring "\nNew Layer:"))
" P9 {  d( k7 Z(if (not (tblsearch "LAYER" lay))
; V8 _9 Y9 E- o(alert (strcat "\nLayer " (strcase lay) " doesn't exist!"))
5 E4 N! B% j7 ?8 Y(vlax-put-property obj 'layer lay)
))
. f& h) b) G' R3 Y8 ~4 f' O((= (strcase att) "P")
(setq pos (getpoint "\nNew Position:"))
" |, k8 Y) z, n) z9 t2 Z(vlax-put-property obj 'textalignmentpoint (vlax-3d-point pos)))
% E0 j+ X+ ?( W& Q! K% p% b((= (strcase att) "S")
(setq sty (getstring "\nNew Style: "))
! {0 x$ Q* e3 r( m/ Y" Q(if (not (tblsearch "STYLE" sty))
) K& D+ `0 @) g7 w7 i. a. |8 w  m(alert (strcat "\nThe style " (strcase sty) " doesn't exist!"))
* x6 @$ r4 n& S& S5 ?; o7 f0 b- w(vlax-put-property obj 'stylename sty)
* s8 j: C8 W( l: ]# \) u/ I' _))
: ^6 [/ F1 p  N((= (strcase att) "V")
(setq val (getstring t "\nNew value: "))
(vlax-put-property obj 'textstring val))
);c
# \" x/ f5 b; ]3 @) z& p. `: m% R(princ)
);defun
! j; a- P! {* K) G) @+ WVBA完成属性编辑相对来说操作更方便，VBA可以按下面的代码获得和编辑属性
+ D. e' v' o0 p$ K: M' Get the attributes for the block reference
7 ]$ }( w! z( L9 X5 A8 m    Dim varAttributes As Variant
    varAttributes = blockRefObj.GetAttributes
   
    ' Move the attribute tags and values into a string to be displayed in a Msgbox
# k! Q2 q3 y& C# c    Dim strAttributes As String
    Dim I As Integer
. @- p5 z3 m) s7 E: M    For I = LBound(varAttributes) To UBound(varAttributes)
        strAttributes = strAttributes & "  Tag: " & varAttributes(I).TagString & _
                        "   Value: " & varAttributes(I).textString & "    "
+ C, z$ w0 V+ `1 s0 W, N6 z    Next
) F& g6 ?( ~! @0 i    MsgBox "The attributes for blockReference " & blockRefObj.name & " are: " & strAttributes, , "GetAttributes Example"
" G9 f. K* _. u  u   
2 ^0 g# d/ |; @3 x5 N: Z    ' Change the value of the attribute
    ' Note: There is no SetAttributes. Once you have the variant array, you have the objects.
    ' Changing them changes the objects in the drawing.
    varAttributes(0).textString = "NEW VALUE!"

maoyangmy

如果用VBA来实现的话， 该怎样做？？？VBA与LISP相比，在处理这类问题上哪个更容易实现？？再次感谢楼上的

/ m( v6 h1 `% K( r[ 本帖最后由 maoyangmy 于 2008-7-8 10:37 编辑 ]

maoyangmy

5楼的能不能把VBA的解决方案也分享一下, 非常感谢

nanisan

建议用VB弄，可以选择的项目比较多，控制性更好些。
/ F) f! c' s: k" Y8 R在CAD的帮助文件里有例子，可以参考，我当初就是利用那个例子实现的自动编号。