，尺寸线性标注800远 各位版主大人~~~速度来赚钱了

davide888

               

cgmacby

xyp1964 发表于 2013-10-26 16:23

多谢院长， 高端大气上档次~~灰常好用，向院长学习，lsp编程~~~~

cgmacby

xyp1964 发表于 2013-10-26 16:23

院长 能否  点完第一点 第二点 方向点后   标出标注后命令不退出，接着点下一点，它就连续标下去 跟已经标过的对齐 就像连续标注似的~~~~~~~~~~

xyp1964

cgmacby 发表于 2014-3-14 10:37
院长 能否  点完第一点 第二点 方向点后   标出标注后命令不退出，接着点下一点，它就连续标下去 跟已经标 ...

2. (defun c:tt ()
   
3.   (if (and (setq p1 (getpoint "\n第一点: "))
   
4.            (setq p2 (getpoint p1 "\n第二点: "))
   
5.            (setq p3 (getpoint p2 "\n方向点: "))
   
6.       )
   
7.     (progn
   
8.       (setq rad        (angle p1 p2)
   
9.             r1        (+ rad (* pi 0.5))
   
10.             p4        (inters p1 p2 p3 (polar p3 r1 10) nil)
    
11.             p3        (polar p4 (angle p4 p3) 800)
    
12.       )
    
13.       (command "_dimaligned" "non" p1 "non" p2 "non" p3)
    
14.       (while (setq p4 (getpoint "\n下一点<退出>: "))
    
15.         (setq p4 (inters p1 p2 p4 (Polar p4 r1 100) nil))
    
16.         (command "_dim" "con" "non" p4 "")
    
17.       )
    
18.       (command "_dim" "e")
    
19.     )
    
20.   )
    
21.   (princ)
    
22. )

(defun c:tt ()<br />   (if (and (setq p1 (getpoint "\n第一点: "))<br />            (setq p2 (getpoint p1 "\n第二点: "))<br />            (setq p3 (getpoint p2 "\n方向点: "))<br />       )<br />     (progn<br />       (setq rad        (angle p1 p2)<br />             r1        (+ rad (* pi 0.5))<br />             p4        (inters p1 p2 p3 (polar p3 r1 10) nil)<br />             p3        (polar p4 (angle p4 p3) 800)<br />       )<br />       (command "_dimaligned" "non" p1 "non" p2 "non" p3)<br />       (while (setq p4 (getpoint "\n下一点<退出>: "))<br />         (setq p4 (inters p1 p2 p4 (Polar p4 r1 100) nil))<br />         (command "_dim" "con" "non" p4 "")<br />       )<br />       (command "_dim" "e")<br />     )<br />   )<br />   (princ)<br /> )

小灰345

太强大了，学习了！
请问院长能否改成800远可以自己输入指定，指定一次后按照这个值来标注，直到下一次修改这个值后按照新的值再标注

小灰345

xyp1964 发表于 2014-3-14 12:31

太强大了，学习了！
请问院长能否改成800远可以自己输入指定，指定一次后按照这个值来标注，直到下一次修改这个值后按照新的值再标注

xyp1964

小灰345 发表于 2014-3-14 12:45
太强大了，学习了！
请问院长能否改成800远可以自己输入指定，指定一次后按照这个值来标注，直到下一次修 ...

2. (defun c:tt (/ p1 p2 p3 rad r1 p3 p4)
   
3.   (setq dist (Udist 5 "" "离开距离<输入或鼠标直接量取>" dist nil))
   
4.   (if (and (setq p1 (getpoint "\n第一点: "))
   
5.            (setq p2 (getpoint p1 "\n第二点: "))
   
6.            (setq p3 (getpoint p2 "\n方向点: "))
   
7.       )
   
8.     (progn (setq rad (angle p1 p2)
   
9.                  r1  (+ rad (* pi 0.5))
   
10.                  p4  (inters p1 p2 p3 (polar p3 r1 10) nil)
    
11.                  p3  (polar p4 (angle p4 p3) dist)
    
12.            )
    
13.            (command "_dimaligned" "non" p1 "non" p2 "non" p3)
    
14.            (while (setq p4 (getpoint "\n下一点<退出>: "))
    
15.              (setq p4 (inters p1 p2 p4 (Polar p4 r1 100) nil))
    
16.              (command "_dim" "con" "non" p4 "")
    
17.            )
    
18.            (command "_dim" "e")
    
19.     )
    
20.   )
    
21.   (princ)
    
22. )

(defun c:tt (/ p1 p2 p3 rad r1 p3 p4)<br />   (setq dist (Udist 5 "" "离开距离<输入或鼠标直接量取>" dist nil))<br />   (if (and (setq p1 (getpoint "\n第一点: "))<br />            (setq p2 (getpoint p1 "\n第二点: "))<br />            (setq p3 (getpoint p2 "\n方向点: "))<br />       )<br />     (progn (setq rad (angle p1 p2)<br />                  r1  (+ rad (* pi 0.5))<br />                  p4  (inters p1 p2 p3 (polar p3 r1 10) nil)<br />                  p3  (polar p4 (angle p4 p3) dist)<br />            )<br />            (command "_dimaligned" "non" p1 "non" p2 "non" p3)<br />            (while (setq p4 (getpoint "\n下一点<退出>: "))<br />              (setq p4 (inters p1 p2 p4 (Polar p4 r1 100) nil))<br />              (command "_dim" "con" "non" p4 "")<br />            )<br />            (command "_dim" "e")<br />     )<br />   )<br />   (princ)<br /> )

小灰345

xyp1964 发表于 2014-3-14 14:17

院长，加载之后出现这个no function definition: UDIST
我用的是cad2012 64位的

xyp1964

小灰345 发表于 2014-3-14 18:40
院长，加载之后出现这个no function definition: UDIST
我用的是cad2012 64位的

2. (defun udist (bit kwd msg def bpt / inp)
   
3.   (if def
   
4.     (setq msg (strcat "\n" msg "<" (rtos def) ">: ")
   
5.           bit (* 2 (fix (/ bit 2)))
   
6.     )
   
7.     (setq msg (strcat "\n" msg ": "))
   
8.   )
   
9.   (initget bit kwd)
   
10.   (setq        inp (if        bpt
    
11.               (getdist msg bpt)
    
12.               (getdist msg)
    
13.             )
    
14.   )
    
15.   (if inp
    
16.     inp
    
17.     def
    
18.   )
    
19. )

(defun udist (bit kwd msg def bpt / inp)<br />   (if def<br />     (setq msg (strcat "\n" msg "<" (rtos def) ">: ")<br />           bit (* 2 (fix (/ bit 2)))<br />     )<br />     (setq msg (strcat "\n" msg ": "))<br />   )<br />   (initget bit kwd)<br />   (setq        inp (if        bpt<br />               (getdist msg bpt)<br />               (getdist msg)<br />             )<br />   )<br />   (if inp<br />     inp<br />     def<br />   )<br /> )

小灰345

xyp1964 发表于 2014-3-14 21:15

谢谢院长，能用了！