328302216 发表于 2014-4-7 16:51:05

院长你这就算是把所有源码放出来了啊？伪源码部分也都放出来了吗？

Singular_Bo 发表于 2014-8-10 08:34:42

谢谢 对块操作好方便

爱汉阳造 发表于 2015-1-21 00:03:58

支持院长啊，要花钱买吗

sxm121233 发表于 2015-1-28 14:16:22

只能看看了，没机会实战

adc 发表于 2015-8-13 19:29:09

本帖最后由 adc 于 2015-8-13 19:33 编辑

请问院长能不能给看看尺寸平移的代码？自己弄了很久都没搞成，谢啦

冒个烟圈 发表于 2015-10-25 21:01:26

强悍如斯，，啥时候放出源码呀

czcxxx 发表于 2015-10-26 11:20:05

谢谢院长！！！！1

xyp1964 发表于 2015-10-26 19:39:14

adc 发表于 2015-8-13 19:29 static/image/common/back.gif
请问院长能不能给看看尺寸平移的代码？自己弄了很久都没搞成，谢啦

;; ccpy(尺寸平移)
(defun c:ccpy (/ ss s1 p1 i pt p14 p13 rad pt1)
(xyp-Start)
(princ "\n选择标注尺寸: ")
(while (setq ss (ssget '((0 . "DIMENSION"))))
    (setq p1 (xyp-dxf 11 (ssname ss 0))
          i-1
    )
    (if        (setq pt (getpoint p1 "\n移动位置<退出>: "))
      (progn
        (while (setq s1 (ssname ss (setq i (1+ i))))
          (setq        p14 (xyp-dxf 14 s1)
                p13 (xyp-dxf 13 s1)
                rad (xyp-dxf 50 s1)
                pt1 (polar pt (+ rad (* pi 0.5)) 100)
                pt(inters p14 (polar p14 rad 100) pt pt1 nil)
          )
          (if (< (distance p13 pt) (distance p14 pt))
          (xyp-SUBUPD s1 13 pt)
          (xyp-SUBUPD s1 14 pt)
          )
        )
      )
    )
)
(xyp-End)
)

adc 发表于 2015-10-27 09:10:59

xyp1964 发表于 2015-10-26 19:39 static/image/common/back.gif


谢谢院长，但是这个只对线性标注有效，能不能也支持对齐标注？

杜阳 发表于 2015-10-27 19:31:24

xyp1964 发表于 2012-6-20 07:20 static/image/common/back.gif
尺寸工具之批标角度:

院长   这个尺寸工具之 批标角度   的伪代码   什么时候发放啊    期待着呢
页: 1 2 3 4 5 6 7 8 [9] 10 11
查看完整版本: 【e派】ccgj(尺寸工具大全)－逐步放出所有代码