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

maoyangmy

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

liuwei_83

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

sealive_leafage

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

maoyangmy

我现在想采用LISP编程, 怎样解决?
VBA在面向对象方便比LSP处理的好, 如果sealive_leafage 对此也了解,请一并告诉解决方法,谢谢

sealive_leafage

lisp可以尝试调用acad命令：-attedit来编辑属性；
可以试试下面的代码：
(defun c:test ()
" \; d5 J- ^3 }( X, x(vl-load-com)
(setq att (getstring "\nChange attribute [Angle/Color/Height/Layer/Position/Style/Value/Tagstring]: "))
(setq obj (car (nentsel "\nSelect an Attribute: ")))
(setq obj (vlax-ename->vla-object obj))
(cond
2 K) d: [% T- U3 V# g2 }/ }0 T" q((= (strcase att) "A")
(setq ang (getstring t "\nNew Angle: "))
. w! p5 F, q# m4 i5 I4 G4 A(vlax-put-property obj 'rotation ang))
$ w- E2 Q! a2 C) ]((= (strcase att) "C")
(setq col (getstring "\nNew Color Number: "))
" S! u% S$ T( I  l9 C% A(vlax-put-property obj 'color col))
((= (strcase att) "H")
6 I+ s/ u" u) K8 o(setq ohei (vlax-get-property obj 'height))
+ q+ j0 m+ j8 ?. s+ k5 K8 z(setq hei (getdist (strcat "\nNew Height <" (rtos oh 2 2) ">:")))
(if (= hei "")(setq hei ohei))
(vlax-put-property obj 'height hei))
((= (strcase att) "L")
& ^' D& J9 a) e# v  i(setq lay (getstring "\nNew Layer:"))
* M5 |$ Y: A8 q# i# ](if (not (tblsearch "LAYER" lay))
(alert (strcat "\nLayer " (strcase lay) " doesn't exist!"))
(vlax-put-property obj 'layer lay)
+ ]! X+ }$ V1 V  {0 N))
((= (strcase att) "P")
(setq pos (getpoint "\nNew Position:"))
4 m  s. @5 m- V- o7 K(vlax-put-property obj 'textalignmentpoint (vlax-3d-point pos)))
((= (strcase att) "S")
$ e4 g, \! M; S8 u(setq sty (getstring "\nNew Style: "))
( q# D( M* u$ o(if (not (tblsearch "STYLE" sty))
' j7 |3 v4 g+ P# {+ z(alert (strcat "\nThe style " (strcase sty) " doesn't exist!"))
% `4 S0 e# N6 A( b(vlax-put-property obj 'stylename sty)
))
, P4 v  U% T) n((= (strcase att) "V")
(setq val (getstring t "\nNew value: "))
(vlax-put-property obj 'textstring val))
);c
(princ)
);defun
. L* ^+ C) n" {$ D) y1 |& u8 RVBA完成属性编辑相对来说操作更方便，VBA可以按下面的代码获得和编辑属性
' Get the attributes for the block reference
    Dim varAttributes As Variant
+ k7 ]) Y( K: t* _    varAttributes = blockRefObj.GetAttributes
# o- ?! o+ M/ r   
    ' Move the attribute tags and values into a string to be displayed in a Msgbox
* H$ N, b  I$ `, N; t/ }/ ?  t    Dim strAttributes As String
    Dim I As Integer
$ s/ _! |. f, x( \8 O2 o) {) G    For I = LBound(varAttributes) To UBound(varAttributes)
" _- v9 O" W4 A' M3 b3 q        strAttributes = strAttributes & "  Tag: " & varAttributes(I).TagString & _
8 l3 C: p( {, I                        "   Value: " & varAttributes(I).textString & "    "
3 P, K1 Z0 z# T- c* I    Next
    MsgBox "The attributes for blockReference " & blockRefObj.name & " are: " & strAttributes, , "GetAttributes Example"
( A4 v" }! ?  R2 L( a3 R% n, z/ N   
" m2 `  p' ~: X) `! q: l- Y    ' Change the value of the attribute
  W# i' |' k) c: N% P    ' Note: There is no SetAttributes. Once you have the variant array, you have the objects.
. w- I7 b4 I0 p1 N/ N    ' Changing them changes the objects in the drawing.
    varAttributes(0).textString = "NEW VALUE!"

maoyangmy

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

, h: @* e- m8 T3 L$ K[ 本帖最后由 maoyangmy 于 2008-7-8 10:37 编辑 ]

maoyangmy

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

nanisan

建议用VB弄，可以选择的项目比较多，控制性更好些。
在CAD的帮助文件里有例子，可以参考，我当初就是利用那个例子实现的自动编号。