【e派】ccgj(尺寸工具大全)－逐步放出所有代码

328302216

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

Singular_Bo

谢谢 对块操作好方便

爱汉阳造

支持院长啊，要花钱买吗

sxm121233

只能看看了，没机会实战

adc

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

冒个烟圈

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

czcxxx

谢谢院长！！！！1

xyp1964

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

2. ;; ccpy(尺寸平移)
   
3. (defun c:ccpy (/ ss s1 p1 i pt p14 p13 rad pt1)
   
4.   (xyp-Start)
   
5.   (princ "\n选择标注尺寸: ")
   
6.   (while (setq ss (ssget '((0 . "DIMENSION"))))
   
7.     (setq p1 (xyp-dxf 11 (ssname ss 0))
   
8.           i  -1
   
9.     )
   
10.     (if        (setq pt (getpoint p1 "\n移动位置<退出>: "))
    
11.       (progn
    
12.         (while (setq s1 (ssname ss (setq i (1+ i))))
    
13.           (setq        p14 (xyp-dxf 14 s1)
    
14.                 p13 (xyp-dxf 13 s1)
    
15.                 rad (xyp-dxf 50 s1)
    
16.                 pt1 (polar pt (+ rad (* pi 0.5)) 100)
    
17.                 pt  (inters p14 (polar p14 rad 100) pt pt1 nil)
    
18.           )
    
19.           (if (< (distance p13 pt) (distance p14 pt))
    
20.             (xyp-SUBUPD s1 13 pt)
    
21.             (xyp-SUBUPD s1 14 pt)
    
22.           )
    
23.         )
    
24.       )
    
25.     )
    
26.   )
    
27.   (xyp-End)
    
28. )

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

adc

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

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

杜阳

xyp1964 发表于 2012-6-20 07:20
尺寸工具之批标角度:

院长   这个尺寸工具之 批标角度   的伪代码   什么时候  发放啊    期待着呢