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

lt77887788

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

cjjh8301

看中了尺寸避让功能。

zgssd

不能用，显示版本太旧。

xujinhua

哇..不是一般强啊

wowan1314

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

革天明

谢谢楼主分享

xyp1964

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

xyp1964

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

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

男人的诱惑

很好的东西

xyp1964

2. ;; 尺寸位置调整之伪源码
   
3. (defun c:tt (/ i ss s1 p14 p10 la pt)
   
4.   (CMDLA0)
   
5.   (setq        i   -1
   
6.         la1 "DIM"                        ;外侧总尺寸图层名，可根据需要调整
   
7.         la2 "TK"                        ;内侧分尺寸图层名，可根据需要调整
   
8.         la  (strcat la1 "," la2)
   
9.   )
   
10.   (princ "\n选择标注实体: ")
    
11.   (if (setq ss (ssget (list '(0 . "DIMENSION") (cons 8 la))))
    
12.     (while (setq s1 (ssname ss (setq i (1+ i))))
    
13.       (setq p14        (xyp-get-dxf 14 s1)
    
14.             p10        (xyp-get-dxf 10 s1)
    
15.             la        (xyp-get-dxf 8 s1)
    
16.             pt        (cond ((= la la1) (polar p14 (angle p14 p10) 1600))
    
17.                       ((= la la2) (polar p14 (angle p14 p10) 800))
    
18.                 )
    
19.       )
    
20.       (xyp-SubUpd s1 10 pt)
    
21.     )
    
22.   )
    
23.   (CMDLA1)
    
24. )

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