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

maoyangmy

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

liuwei_83

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

sealive_leafage

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

maoyangmy

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

sealive_leafage

lisp可以尝试调用acad命令：-attedit来编辑属性；
. A) j& P1 a9 w' x) m1 L& X; R& a可以试试下面的代码：
(defun c:test ()
' e8 z' ^+ \3 ?* D  n; K6 I; {(vl-load-com)
" k1 u. G% U  v5 ]# {  L(setq att (getstring "\nChange attribute [Angle/Color/Height/Layer/Position/Style/Value/Tagstring]: "))
(setq obj (car (nentsel "\nSelect an Attribute: ")))
( ?  H+ k1 V% V3 c(setq obj (vlax-ename->vla-object obj))
(cond
((= (strcase att) "A")
(setq ang (getstring t "\nNew Angle: "))
(vlax-put-property obj 'rotation ang))
((= (strcase att) "C")
(setq col (getstring "\nNew Color Number: "))
( q' T9 S4 n" P, j7 J3 V  y(vlax-put-property obj 'color col))
. h( B* Q9 }( P( }8 r1 q((= (strcase att) "H")
+ b& k' [: @7 M3 v(setq ohei (vlax-get-property obj 'height))
(setq hei (getdist (strcat "\nNew Height <" (rtos oh 2 2) ">:")))
(if (= hei "")(setq hei ohei))
(vlax-put-property obj 'height hei))
((= (strcase att) "L")
4 U, g$ u/ L$ `% r9 a3 t3 @(setq lay (getstring "\nNew Layer:"))
. b0 s# z; v6 r(if (not (tblsearch "LAYER" lay))
3 d9 T* K, A  c. _' z9 ]3 i(alert (strcat "\nLayer " (strcase lay) " doesn't exist!"))
* U  b! k" U+ O) S: d  b(vlax-put-property obj 'layer lay)
))
7 k  T& z. `( d5 U9 t8 u$ S0 b# @((= (strcase att) "P")
(setq pos (getpoint "\nNew Position:"))
(vlax-put-property obj 'textalignmentpoint (vlax-3d-point pos)))
0 j9 f9 U6 c( L4 a7 K* V0 M  C((= (strcase att) "S")
(setq sty (getstring "\nNew Style: "))
3 j* _, W  T9 A* \$ e  u(if (not (tblsearch "STYLE" sty))
(alert (strcat "\nThe style " (strcase sty) " doesn't exist!"))
# X9 h  ~" B% y% K  |# U(vlax-put-property obj 'stylename sty)
))
((= (strcase att) "V")
(setq val (getstring t "\nNew value: "))
(vlax-put-property obj 'textstring val))
9 {% e: Y: `0 `" x);c
(princ)
);defun
. S3 `. s% s! h7 i! Q8 iVBA完成属性编辑相对来说操作更方便，VBA可以按下面的代码获得和编辑属性
# y5 I" x) r2 I, |3 o6 x' Get the attributes for the block reference
9 b% d6 K) [* j8 @3 P# J  r    Dim varAttributes As Variant
: H; s% J  p/ u. k, ^    varAttributes = blockRefObj.GetAttributes
   
    ' Move the attribute tags and values into a string to be displayed in a Msgbox
    Dim strAttributes As String
    Dim I As Integer
1 d. X5 Q) U& f: U    For I = LBound(varAttributes) To UBound(varAttributes)
' T8 L5 m! ?7 u( a2 u        strAttributes = strAttributes & "  Tag: " & varAttributes(I).TagString & _
                        "   Value: " & varAttributes(I).textString & "    "
    Next
    MsgBox "The attributes for blockReference " & blockRefObj.name & " are: " & strAttributes, , "GetAttributes Example"
1 K% a* l# t9 P   
    ' 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.
6 l0 y9 U' v& Y$ E4 w; }# }    varAttributes(0).textString = "NEW VALUE!"

maoyangmy

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

9 ~6 R7 t* q! p$ @% S, x[ 本帖最后由 maoyangmy 于 2008-7-8 10:37 编辑 ]

maoyangmy

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

nanisan

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