zzc83 发表于 2013-5-9 20:28:07

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

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

zzc83 发表于 2013-5-13 13:04:44

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

YANGF85 发表于 2013-5-13 13:50:04

标注格式里不能修改么

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

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

)

zzc83 发表于 2013-5-13 17:35:19

本帖最后由 zzc83 于 2013-5-13 17:36 编辑

Gu_xl 发表于 2013-5-13 16:33 http://bbs.mjtd.com/static/image/common/back.gif


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

Gu_xl 发表于 2013-5-13 19:04:24

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

修饰完美，请自己动手！

dingtiedt 发表于 2015-5-26 22:13:44

Gu_xl 发表于 2013-5-13 16:33 static/image/common/back.gif


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

dingtiedt 发表于 2015-5-30 17:26:03

今天测试能用。只是对已经在标注样式里设置了偏移固定值的标注无效，对尺寸界线的两个不同长度不能调整为一个长度。
页: [1]
查看完整版本: 求助：批量修改尺寸线长度