lt77887788 发表于 2012-2-8 13:17:57

新人没钱，只有口水··············

cjjh8301 发表于 2012-2-9 15:58:15

看中了尺寸避让功能。

zgssd 发表于 2012-4-17 11:17:08

不能用，显示版本太旧。

xujinhua 发表于 2012-4-17 12:03:59

哇..不是一般强啊

wowan1314 发表于 2012-4-17 12:22:33

要是院长能分享下他的源码，估计很多人会在编程上进一大步。我又做梦了！ 呵呵

革天明 发表于 2012-4-17 12:36:18

谢谢楼主分享

xyp1964 发表于 2012-4-17 12:37:13

尺寸工具已合并到e派工具箱内，最新界面：

xyp1964 发表于 2012-4-17 12:38:01

本帖最后由 xyp1964 于 2012-4-17 12:44 编辑




;; 尺寸位置调整之伪源码
(defun c:tt (/ i ss s1 p14 p10 la pt)
(CMDLA0)
(setq i -1)
(princ "\n选择标注实体: ")
(if (setq ss (ssget '((0 . "DIMENSION") (8 . "DIM,TK")))) ;图层DIM和TK可根据需要调整
    (while (setq s1 (ssname ss (setq i (1+ i))))
      (setq p14        (xyp-get-dxf 14 s1)
          p10        (xyp-get-dxf 10 s1)
          la        (xyp-get-dxf 8 s1)
          pt        (cond ((= la "DIM") (polar p14 (angle p14 p10) 1600)) ;外侧总尺寸
                      ((= la "TK") (polar p14 (angle p14 p10) 800)) ;内侧分尺寸
                )
      )
      (xyp-SubUpd s1 10 pt)
    )
)
(CMDLA1)
)

男人的诱惑 发表于 2012-4-17 18:46:42

很好的东西

xyp1964 发表于 2012-4-17 18:52:05

;; 尺寸位置调整之伪源码
(defun c:tt (/ i ss s1 p14 p10 la pt)
(CMDLA0)
(setq        i   -1
        la1 "DIM"                        ;外侧总尺寸图层名，可根据需要调整
        la2 "TK"                        ;内侧分尺寸图层名，可根据需要调整
        la(strcat la1 "," la2)
)
(princ "\n选择标注实体: ")
(if (setq ss (ssget (list '(0 . "DIMENSION") (cons 8 la))))
    (while (setq s1 (ssname ss (setq i (1+ i))))
      (setq p14        (xyp-get-dxf 14 s1)
          p10        (xyp-get-dxf 10 s1)
          la        (xyp-get-dxf 8 s1)
          pt        (cond ((= la la1) (polar p14 (angle p14 p10) 1600))
                      ((= la la2) (polar p14 (angle p14 p10) 800))
                )
      )
      (xyp-SubUpd s1 10 pt)
    )
)
(CMDLA1)
)
页: 1 2 [3] 4 5 6 7 8 9 10 11
查看完整版本: 【e派】ccgj(尺寸工具大全)－逐步放出所有代码