[LISP程序]：批处理恢复显示尺寸标注隐藏的尺寸界限

lsjjm

批处理恢复显示尺寸标注隐藏的尺寸界限

2. <normalfont>
   
3. (defun c:test ()
   
4.   (vl-load-com)
   
5.   (princ "\nSelect Dimension:")
   
6.   (setq ents (ssget) n 0)
   
7.   (while (< n (sslength ents))
   
8.     (setq ent (vlax-ename->vla-object (ssname ents n)))
   
9.     (if (/= T (vlax-get-property b 'extLine1Suppress))
   
10.       (vlax-put-property ent 'extLine1Suppress 0)
    
11.     )
    
12.     (if (/= T (vlax-get-property ent 'extLine2Suppress))
    
13.       (vlax-put-property ent 'extLine2Suppress 0)
    
14.     )
    
15.     (setq n (1+ n))
    
16.   );
    
17.   (princ)
    
18. )
    
19. </normalfont>
    

<normalfont><br /> (defun c:test ()<br />   (vl-load-com)<br />   (princ "\nSelect Dimension:")<br />   (setq ents (ssget) n 0)<br />   (while (< n (sslength ents))<br />     (setq ent (vlax-ename->vla-object (ssname ents n)))<br />     (if (/= T (vlax-get-property b 'extLine1Suppress))<br />       (vlax-put-property ent 'extLine1Suppress 0)<br />     )<br />     (if (/= T (vlax-get-property ent 'extLine2Suppress))<br />       (vlax-put-property ent 'extLine2Suppress 0)<br />     )<br />     (setq n (1+ n))<br />   );<br />   (princ)<br /> )<br /> </normalfont><br />

e2002

注意在打开了一个object后要用vlax-release-object函数释放

lsjjm

谢谢补充，这只是基本功能的小程序，其他诸如保存和恢复环境变量等都没写，
另第七行 b 应为 ent.

xiaochongcn

lsjjm说得太有道理了。
完善就好。
另外是否可以增加逆过程即：可以去掉隐藏的尺寸界限？