求助：批量修改尺寸线长度

zzc83

可以批量修改尺寸边界线长度，具体如图，谢谢

zzc83

自顶一下，这功能很有用啊

YANGF85

标注格式里不能修改么

Gu_xl

1. (defun c:tt ()
   
2.   (initget 7)
   
3.   (setq d (getreal "\n输入距离:"))
   
4.   (setq ss (ssget '((0 . "DIMENSION"))))
   
5.   (if ss
   
6.     (repeat (setq n (sslength ss))
   
7.       (setq obj (vlax-ename->vla-object (setq e (ssname ss (setq n (1- n)))))
   
8.             el (entget e)
   
9.             )
   
10.       (if (or (= (setq objname (vla-get-ObjectName obj)) "AcDbAlignedDimension")
    
11.               (= objname "AcDbRotatedDimension")
    
12.               )
    
13.         (progn
    
14.       (setq p10 (cdr (assoc 10 el))
    
15.             p14 (cdr (assoc 14 el))
    
16.             )
    
17.       (if (and p10 p14)
    
18.         (progn
    
19.           (setq pt (polar p14 (angle p14 p10) d))
    
20.           (entmod (subst (cons 10 pt) (assoc 10 el) el))
    
21.           )
    
22.         )
    
23.       )
    
24.         )
    
25.     )
    
26.     )
    
27.   
    
28.   )

(defun c:tt ()<br />   (initget 7)<br />   (setq d (getreal "\n输入距离:"))<br />   (setq ss (ssget '((0 . "DIMENSION"))))<br />   (if ss<br />     (repeat (setq n (sslength ss))<br />       (setq obj (vlax-ename->vla-object (setq e (ssname ss (setq n (1- n)))))<br />             el (entget e)<br />             )<br />       (if (or (= (setq objname (vla-get-ObjectName obj)) "AcDbAlignedDimension")<br />               (= objname "AcDbRotatedDimension")<br />               )<br />         (progn<br />       (setq p10 (cdr (assoc 10 el))<br />             p14 (cdr (assoc 14 el))<br />             )<br />       (if (and p10 p14)<br />         (progn<br />           (setq pt (polar p14 (angle p14 p10) d))<br />           (entmod (subst (cons 10 pt) (assoc 10 el) el))<br />           )<br />         )<br />       )<br />         )<br />     )<br />     )<br />   <br />   )

zzc83

Gu_xl 发表于 2013-5-13 16:33

长度数值不能记忆，但功能非常好用，谢谢G版主

Gu_xl

zzc83 发表于 2013-5-13 17:35
长度数值不能记忆，但功能非常好用，谢谢G版主

修饰完美，请自己动手！

dingtiedt

Gu_xl 发表于 2013-5-13 16:33

出现错误，请教
输入距离:500
Select objects: 1 found
Select objects:
; error: no function definition: VLAX-ENAME->VLA-OBJECT

dingtiedt

今天测试能用。只是对已经在标注样式里设置了偏移固定值的标注无效，对尺寸界线的两个不同长度不能调整为一个长度。