[强烈推荐] 快速定义UCS原点的程序

lescad2005

      在五金模零件标注中，经常要定义坐标原点。如果选点是直角还好，但往往更多的是圆角或C角。这是只能是作辅助线来定义坐标
原点，非常不方便。
   也许这个程序可以帮助到你！但使用过程中坐标原点有时会跑到R圆弧的中点上去，让人很费解！
   请高手们指点一下！[/SIZE] [/COLOR]

2. 
   
3.   [FONT=courier new]
   
4. ;;;快速定义UCS原点程序
   
5. 
   
6. (defun c:QU (/ en1_s en1_e en2_s en2_e)
   
7.   (setvar "cmdecho" 0)
   
8.   (setq en1 (entsel "\n选择第一条线段："))
   
9.   (setq en2 (entsel "\n选择第二条线段："))
   
10.   (setq en1_data (entget (car en1)))
    
11.   (setq en2_data (entget (car en2)))
    
12.   (setq isline1 (cdr (assoc 0 en1_data)))
    
13.   (setq isline2 (cdr (assoc 0 en2_data)))
    
14.   (if (and (= isline1 "LINE") (= isline2 "LINE"))
    
15.     (progn
    
16.       (setq en1_s (assoc 10 en1_data))
    
17.       (setq en1_e (assoc 11 en1_data))
    
18.       (setq en2_s (assoc 10 en2_data))
    
19.       (setq en2_e (assoc 11 en2_data))
    
20.       (setq en1_s (cdr en1_s))
    
21.       (setq en1_e (cdr en1_e))
    
22.       (setq en2_s (cdr en2_s))
    
23.       (setq en2_e (cdr en2_e))
    
24.       (setq intpt (inters en1_s en1_e en2_s en2_e nil))
    
25.       (setq intpt (trans intpt 0 1))
    
26.       (command "ucs" "o" intpt)
    
27.     )
    
28.     (alert "\n 只能选择直线段，请重新选择!")
    
29.   )
    
30.   (princ)
    
31.   (prompt "<<QU.lsp>>快速定义UCS原点程序")
    
32.   (princ)
    
33. )
    
34.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;快速定义UCS原点程序<br /> <br /> (defun c:QU (/ en1_s en1_e en2_s en2_e)<br />   (setvar "cmdecho" 0)<br />   (setq en1 (entsel "\n选择第一条线段："))<br />   (setq en2 (entsel "\n选择第二条线段："))<br />   (setq en1_data (entget (car en1)))<br />   (setq en2_data (entget (car en2)))<br />   (setq isline1 (cdr (assoc 0 en1_data)))<br />   (setq isline2 (cdr (assoc 0 en2_data)))<br />   (if (and (= isline1 "LINE") (= isline2 "LINE"))<br />     (progn<br />       (setq en1_s (assoc 10 en1_data))<br />       (setq en1_e (assoc 11 en1_data))<br />       (setq en2_s (assoc 10 en2_data))<br />       (setq en2_e (assoc 11 en2_data))<br />       (setq en1_s (cdr en1_s))<br />       (setq en1_e (cdr en1_e))<br />       (setq en2_s (cdr en2_s))<br />       (setq en2_e (cdr en2_e))<br />       (setq intpt (inters en1_s en1_e en2_s en2_e nil))<br />       (setq intpt (trans intpt 0 1))<br />       (command "ucs" "o" intpt)<br />     )<br />     (alert "\n 只能选择直线段，请重新选择!")<br />   )<br />   (princ)<br />   (prompt "<<QU.lsp>>快速定义UCS原点程序")<br />   (princ)<br /> )<br />   [/FONT]<br />

dwg001

试试：  修改-------》 (command "ucs" "o" "_non" intpt)

lescad2005

OK！谢谢dwg001
E:\ok.png
我想问一下，"_non"选项是什么意思？[

lcl19811125

UCS O ,然后捕捉，用SHIFT捕捉虚拟交点