【源码分享】无聊了模仿天正逐点标注

wowan1314

如题；尝试模仿天正逐点标注。
          程序基本实现连续标注的目的
        缺点：1、标注中无法UNDO                  2、点到已经标注的中间时候不能更新（修正为可更新最后一个标注）。
                  3、尺寸不能实时自动避让。(这个论坛有程序标完后处理下即可)                                                                                    
                   9楼更新了增补尺寸配套程序。配套程序可单独使用也可编辑进双击反应器
               关于后面两点我在“工具插件”板块已经发布解决后的程序。               第一点的话测试用INITGET来达到UNDO。不过UNDO会记录平移与缩放，导致程序无法准确运行。
                不知道天正是怎么解决第一点的。也许思路不同？！有兴趣的可以尝试完善.


;;加尺寸避让可以这样写。尺寸避让没研究过，我也不引用了。我提供个思路，有兴趣的自己调整
(defun T6 ( / ENT ss)
  (SETQ ENT (ENTLAST))
  (C:T1);逐点标注主程序
  (SETQ SS (LAST-ENT ENT));;取得刚才标注的选择集 last-ent为自定义函数论坛有
  (CCBR SS);;CCBR为尺寸避让的程序
)
    最终版“逐点标注”源码地址：http://bbs.mjtd.com/forum.php?mo ... 1084&fromuid=282351

    最终版“增补尺寸”源码地址：http://bbs.mjtd.com/forum.php?mo ... 0786&fromuid=282351

wowan1314

试用了下YAD的程序。
他的逐点标注程序第一点：也没满足。 第二点：能回头标一次。第三点：双击可以增补。

qazxswk

clh521 发表于 2013-3-29 15:01
正好我昨天也编了一个连续标注（水平不高，用Command实现的）

这个没有实现标注引线对齐。

akon2001

特定用户下载   微笑脸   有什么意思？

注册

这个可以偶

tianyi1230

期待已久的插件，希望高手们修改后晚上后公布出来，

xshrimp

2. ;;;连续尺寸对齐标注
   
3. (defun c:gps_dim_dx(/ l1 l2 l3 l4 l5 b c d1 d2 e1 e2 x3 x4 x5 y3 y4 y5 alf)  
   
4.     (setq l1 (getpoint "\n标注偏移开始点:"))   
   
5.     (setq l2 (getpoint l1 "\n标注线位置:"))   
   
6.     (setq l3 (getpoint "\n开始标注点:"))
   
7.     (setq l4 (getpoint l3 "\n<U>ndo...下一个标注点:"))
   
8.     (setq b (- (car l1)  (car l2)))
   
9.     (setq c (- (cadr l1) (cadr l2)))
   
10.     (if (= b 0.0)
    
11.         (progn
    
12.            (command "dim" "_horizontal" (list (car l3) (cadr l1))  (list (car l4) (cadr l1))  l2  "" );command
    
13.            (while
    
14.                  (setq l5 (getpoint l4 "\n<U>ndo...下一个标注点:"))
    
15.                  (command "_continue" (list (car l5) (cadr l1)) "" )
    
16.                  (setq l4 l5)
    
17.            );while
    
18.            (command "_horizontal"
    
19.                     (list (car l3) (cadr l1))
    
20.                     (list (car l4) (cadr l1))
    
21.                     (list (car l2)
    
22.                           (if (> (cadr l1) (cadr l2))
    
23.                               (- (cadr l2) (* (getvar "dimscale") 8))
    
24.                               (+ (cadr l2) (* (getvar "dimscale") 8))
    
25.                           );if
    
26. 
    
27.                     );list
    
28.                     ""
    
29.                     "e"
    
30.           );command
    
31.        );progn
    
32.     );if
    
33.     (if (= c 0.0)
    
34.         (progn
    
35.            (command "dim"
    
36.                     "_vertical"
    
37.                     (list (car l1) (cadr l3))
    
38.                     (list (car l1) (cadr l4))
    
39.                     l2
    
40.                     ""
    
41.            );command
    
42.            (while
    
43.                  (setq l5 (getpoint l4 "\n<U>ndo...下一个标注点:"))
    
44.                  (command "_continue"
    
45.                           (list (car l1) (cadr l5))
    
46.                           ""
    
47.                  );command
    
48. 
    
49.                  (setq l4 l5)
    
50.            );while
    
51.            (command "_vertical"
    
52.                     (list (car l1) (cadr l3))
    
53.                     (list (car l1) (cadr l4))
    
54.                     (list (if (> (car l1) (car l2))
    
55.                               (- (car l2) (* (getvar "dimscale") 8))
    
56.                               (+ (car l2) (* (getvar "dimscale") 8))
    
57.                           );if
    
58.                           (cadr l2)
    
59.                     );list
    
60.                     ""
    
61.                     "e"
    
62.           );command
    
63.        );progn
    
64.     );if
    
65.     (if (and (/= c 0.0) (/= b 0.0))
    
66.         (progn
    
67.           (setq d1 (- (car l1) (car l3)))
    
68.           (setq d2 (- (car l1) (car l4)))
    
69.           (setq e1 (- (cadr l1) (cadr l3)))
    
70.           (setq e2 (- (cadr l1) (cadr l4)))
    
71.           (setq x3 (/ (+ (* b b (car  l1)) (* c c (car  l3)) (* b c e1)) (+ (* b b) (* c c))))
    
72.           (setq y3 (/ (+ (* b b (cadr l3)) (* c c (cadr l1)) (* b c d1)) (+ (* b b) (* c c))))
    
73.           (setq x4 (/ (+ (* b b (car  l1)) (* c c (car  l4)) (* b c e2)) (+ (* b b) (* c c))))
    
74.           (setq y4 (/ (+ (* b b (cadr l4)) (* c c (cadr l1)) (* b c d2)) (+ (* b b) (* c c))))
    
75.           (command "dim"  "aligned"  (list x3 y3) (list x4 y4)  l2 "" );command
    
76.           (while
    
77.                (setq l5 (getpoint l4 "\n<U>ndo...下一个标注点:"))
    
78.                (setq d2 (- (car l1) (car l5)))
    
79.                (setq e2 (- (cadr l1) (cadr l5)))
    
80.                (setq x5 (/ (+ (* b b (car  l1)) (* c c (car  l5)) (* b c e2)) (+ (* b b) (* c c))))
    
81.                (setq y5 (/ (+ (* b b (cadr l5)) (* c c (cadr l1)) (* b c d2)) (+ (* b b) (* c c))))
    
82.                (command "continue"                    (list x5 y5)
    
83.                         ""
    
84.                );command
    
85.                (setq l4 l5)
    
86.            );while
    
87.            (setq alf (atan (/ (- (cadr l2) (cadr l1)) (- (car l2) (car l1)))))
    
88.            (if (< (cadr l1) (cadr l2))
    
89.            (setq x4 (+ (car l2) (* 8 (getvar "dimscale") (sin alf))))
    
90.            (setq x4 (- (car l2) (* 8 (getvar "dimscale") (sin alf)))))
    
91.            (if (< (cadr l1) (cadr l2))
    
92.            (setq y4 (+ (cadr l2) (* 8 (getvar "dimscale") (cos alf))))
    
93.            (setq y4 (- (cadr l2) (* 8 (getvar "dimscale") (cos alf)))))
    
94.                     (command "aligned"
    
95.                     (list x3 y3)
    
96.                     (list x5 y5)
    
97.                     (list x4 y4)
    
98.                     ""
    
99.                     "e"
    
100.            );command
     
101.          );progn
     
102.      );if   
     
103. )
     

;;;连续尺寸对齐标注<br /> (defun c:gps_dim_dx(/ l1 l2 l3 l4 l5 b c d1 d2 e1 e2 x3 x4 x5 y3 y4 y5 alf)  <br />     (setq l1 (getpoint "\n标注偏移开始点:"))    <br />     (setq l2 (getpoint l1 "\n标注线位置:"))    <br />     (setq l3 (getpoint "\n开始标注点:"))<br />     (setq l4 (getpoint l3 "\n<U>ndo...下一个标注点:"))<br />     (setq b (- (car l1)  (car l2)))<br />     (setq c (- (cadr l1) (cadr l2)))<br />     (if (= b 0.0)<br />         (progn<br />            (command "dim" "_horizontal" (list (car l3) (cadr l1))  (list (car l4) (cadr l1))  l2  "" );command<br />            (while<br />                  (setq l5 (getpoint l4 "\n<U>ndo...下一个标注点:"))<br />                  (command "_continue" (list (car l5) (cadr l1)) "" )<br />                  (setq l4 l5)<br />            );while<br />            (command "_horizontal"<br />                     (list (car l3) (cadr l1))<br />                     (list (car l4) (cadr l1))<br />                     (list (car l2)<br />                           (if (> (cadr l1) (cadr l2))<br />                               (- (cadr l2) (* (getvar "dimscale") 8))<br />                               (+ (cadr l2) (* (getvar "dimscale") 8))<br />                           );if<br /> <br />                     );list<br />                     ""<br />                     "e"<br />           );command<br />        );progn<br />     );if<br />     (if (= c 0.0)<br />         (progn<br />            (command "dim"<br />                     "_vertical"<br />                     (list (car l1) (cadr l3))<br />                     (list (car l1) (cadr l4))<br />                     l2<br />                     ""<br />            );command<br />            (while<br />                  (setq l5 (getpoint l4 "\n<U>ndo...下一个标注点:"))<br />                  (command "_continue"<br />                           (list (car l1) (cadr l5))<br />                           ""<br />                  );command<br /> <br />                  (setq l4 l5)<br />            );while<br />            (command "_vertical"<br />                     (list (car l1) (cadr l3))<br />                     (list (car l1) (cadr l4))<br />                     (list (if (> (car l1) (car l2))<br />                               (- (car l2) (* (getvar "dimscale") 8))<br />                               (+ (car l2) (* (getvar "dimscale") 8))<br />                           );if<br />                           (cadr l2)<br />                     );list<br />                     ""<br />                     "e"<br />           );command<br />        );progn<br />     );if<br />     (if (and (/= c 0.0) (/= b 0.0))<br />         (progn<br />           (setq d1 (- (car l1) (car l3)))<br />           (setq d2 (- (car l1) (car l4)))<br />           (setq e1 (- (cadr l1) (cadr l3)))<br />           (setq e2 (- (cadr l1) (cadr l4)))<br />           (setq x3 (/ (+ (* b b (car  l1)) (* c c (car  l3)) (* b c e1)) (+ (* b b) (* c c))))<br />           (setq y3 (/ (+ (* b b (cadr l3)) (* c c (cadr l1)) (* b c d1)) (+ (* b b) (* c c))))<br />           (setq x4 (/ (+ (* b b (car  l1)) (* c c (car  l4)) (* b c e2)) (+ (* b b) (* c c))))<br />           (setq y4 (/ (+ (* b b (cadr l4)) (* c c (cadr l1)) (* b c d2)) (+ (* b b) (* c c))))<br />           (command "dim"  "aligned"  (list x3 y3) (list x4 y4)  l2 "" );command<br />           (while<br />                (setq l5 (getpoint l4 "\n<U>ndo...下一个标注点:"))<br />                (setq d2 (- (car l1) (car l5)))<br />                (setq e2 (- (cadr l1) (cadr l5)))<br />                (setq x5 (/ (+ (* b b (car  l1)) (* c c (car  l5)) (* b c e2)) (+ (* b b) (* c c))))<br />                (setq y5 (/ (+ (* b b (cadr l5)) (* c c (cadr l1)) (* b c d2)) (+ (* b b) (* c c))))<br />                (command "continue"                    (list x5 y5)<br />                         ""<br />                );command<br />                (setq l4 l5)<br />            );while<br />            (setq alf (atan (/ (- (cadr l2) (cadr l1)) (- (car l2) (car l1)))))<br />            (if (< (cadr l1) (cadr l2))<br />            (setq x4 (+ (car l2) (* 8 (getvar "dimscale") (sin alf))))<br />            (setq x4 (- (car l2) (* 8 (getvar "dimscale") (sin alf)))))<br />            (if (< (cadr l1) (cadr l2))<br />            (setq y4 (+ (cadr l2) (* 8 (getvar "dimscale") (cos alf))))<br />            (setq y4 (- (cadr l2) (* 8 (getvar "dimscale") (cos alf)))))<br />                     (command "aligned"<br />                     (list x3 y3)<br />                     (list x5 y5)<br />                     (list x4 y4)<br />                     ""<br />                     "e"<br />            );command<br />          );progn<br />      );if   <br /> )<br />

sachindkini

xshrimp 发表于 2013-3-29 12:17

dear sir,

great work

bdboy

探索者自带，不知道优势在哪儿

clh521

正好我昨天也编了一个连续标注（水平不高，用Command实现的）

wowan1314

没想到此程序反应还不错。
       所以也进一步做了增补尺寸的配套程序,同样此程序也存在前两个缺点.
      此配套程序可与双击反应器配合使用以便达到双击修改的效果     在尺寸中间增补尺寸有时候不好使，不明白为什么？！

zzc83

增补能在原尺寸 中插入 增补尺寸吗？