设置属性文字锁定、解锁失败

xinxirong

1. ;解锁块属性位置固定
   
2. ;其中e为块参照图元名
   
3. ;unLock=T时解锁 用dxf修改的方式有问题
   
4. ;|
   
5. (defun BY:unLockAttrib ( e unLock / el tf ent elist old_dxf70 )
   
6.   (while
   
7.     (and
   
8.       (setq e (entnext e))
   
9.       (/= (cdr (assoc 0 (setq elist (entget e)))) "SEQEND")
   
10.       )
    
11.     (setq old_dxf70 (cdr (assoc 70 elist)))
    
12. 
    
13.     (if unLock
    
14.       ;解锁,and old_dxf70 (1+4+8)
    
15.       ;1=属性不可见 2=固定属性 4=输入属性时要求进行验证 8=属性为预置（插入时无提示）
    
16.       (progn
    
17.         (setq elist (subst (cons 70 (boole 1 13 old_dxf70)) (assoc 70 elist) elist))
    
18.         (setq elist (subst (cons 280 0) (assoc 280 elist) elist))
    
19.         )
    
20.       ;else 锁定
    
21.       (progn
    
22.         (setq elist (subst (cons 70 (boole 7 2 old_dxf70)) (assoc 70 elist) elist))
    
23.         (setq elist (subst (cons 280 1) (assoc 280 elist) elist))
    
24.         )
    
25. 
    
26.       )
    
27.     (entmod elist)
    
28. 
    
29.     )
    
30.   (princ)
    
31.   )|;
    
32. 
    
33. ;解锁块属性位置固定
    
34. ;其中e为块参照图元名
    
35. ;unLock=T时解锁
    
36. (defun BY:unLockAttrib ( e unLock / blkref x  )
    
37.   (setq blkref (vlax-Ename->vla-Object e))
    
38.   (foreach x (vlax-safearray->list (vlax-variant-value (vla-GetAttributes blkref)))
    
39.     (if unLock
    
40.       ;解锁
    
41.       (vla-put-lockposition x :vlax-false)
    
42.       ;else 锁定
    
43.       (vla-put-lockposition x :vlax-true)
    
44.       )
    
45.     )
    
46.   (princ)
    
47.   )
    

;解锁块属性位置固定<br /> ;其中e为块参照图元名<br /> ;unLock=T时解锁 用dxf修改的方式有问题<br /> ;|<br /> (defun BY:unLockAttrib ( e unLock / el tf ent elist old_dxf70 )<br />   (while<br />     (and<br />       (setq e (entnext e))<br />       (/= (cdr (assoc 0 (setq elist (entget e)))) "SEQEND")<br />       )<br />     (setq old_dxf70 (cdr (assoc 70 elist)))<br /> <br />     (if unLock<br />       ;解锁,and old_dxf70 (1+4+8)<br />       ;1=属性不可见 2=固定属性 4=输入属性时要求进行验证 8=属性为预置（插入时无提示）<br />       (progn<br />         (setq elist (subst (cons 70 (boole 1 13 old_dxf70)) (assoc 70 elist) elist))<br />         (setq elist (subst (cons 280 0) (assoc 280 elist) elist))<br />         )<br />       ;else 锁定<br />       (progn<br />         (setq elist (subst (cons 70 (boole 7 2 old_dxf70)) (assoc 70 elist) elist))<br />         (setq elist (subst (cons 280 1) (assoc 280 elist) elist))<br />         )<br /> <br />       )<br />     (entmod elist)<br /> <br />     )<br />   (princ)<br />   )|;<br /> <br /> ;解锁块属性位置固定<br /> ;其中e为块参照图元名<br /> ;unLock=T时解锁<br /> (defun BY:unLockAttrib ( e unLock / blkref x  )<br />   (setq blkref (vlax-Ename->vla-Object e))<br />   (foreach x (vlax-safearray->list (vlax-variant-value (vla-GetAttributes blkref)))<br />     (if unLock<br />       ;解锁<br />       (vla-put-lockposition x :vlax-false)<br />       ;else 锁定<br />       (vla-put-lockposition x :vlax-true)<br />       )<br />     )<br />   (princ)<br />   )<br />

newer

可以看看这个  http://bbs.xdcad.net/thread-704668-1-1.html

HLCAD

可能要再刷新一下实体

yangjian001

感谢………………………………