如何从世界坐标系切换到相对坐标系？

pxt2001

command:
ucs→r→输入你定义好的ucs名称。

tm20038175

pxt2001 发表于 2012-3-31 10:10
command:
ucs→r→输入你定义好的ucs名称。

就是这个，高人，哈哈，估计你是论坛上回答这个的第一个人！！！

rzy8lxy

2011版的
defun c:u0 ();切回世界坐标系
  (command "ucs" "")
  (princ)
)
(defun c:u1 ();切回用户坐标系aa
  (command "ucs" "na" "r" "aa")
  (princ)
)

tm20038175

rzy8lxy 发表于 2012-3-31 12:34
2011版的
defun c:u0 ();切回世界坐标系
  (command "ucs" "")

好的，谢谢。。。。

革天明

(COMMAND "UCS" "M" FPdy)可转成用户坐标，(COMMAND "UCS" "W")转成世界坐标

tgl121

1. (vl-load-com)
   
2. ;本程序实现世界坐标系和所设置用户坐标系之间的循环切换
   
3. (defun c:qh (/ x n)                        ;zbxLst坐标系名称表
   
4.   (if zbxLst
   
5.     (progn
   
6.       (setq n (length zbxLst))
   
7.       (if (= iii n)
   
8.         (progn (command "ucs" "")
   
9.                (command "plan" "")
   
10.                (setq iii 0)
    
11.         )
    
12.         (progn (command "ucs" "NA" "R" (nth iii zbxLst))
    
13.                (command "plan" "")
    
14.                (setq iii (+ 1 iii))
    
15.         )
    
16.       )
    
17.     )
    
18.     (progn
    
19.       (vlax-for        x
    
20.                   (vla-get-UserCoordinateSystems
    
21.                     (vla-get-ActiveDocument (vlax-get-acad-object))
    
22.                   )
    
23.         (setq zbxLst (cons (vla-get-name x) zbxLst))
    
24.       )
    
25.       (if zbxLst
    
26.         (progn
    
27.           (setq iii 0)
    
28.           (command "ucs" "NA" "R" (nth iii zbxLst))
    
29.           (command "plan" "")
    
30.           (setq iii (+ 1 iii))
    
31.         )
    
32.         (princ "当前CAD图形未建立用户坐标系！")
    
33.       )
    
34.     )
    
35.   )
    
36.   (princ)
    
37. )

(vl-load-com)<br /> ;本程序实现世界坐标系和所设置用户坐标系之间的循环切换<br /> (defun c:qh (/ x n)                        ;zbxLst坐标系名称表<br />   (if zbxLst<br />     (progn<br />       (setq n (length zbxLst))<br />       (if (= iii n)<br />         (progn (command "ucs" "")<br />                (command "plan" "")<br />                (setq iii 0)<br />         )<br />         (progn (command "ucs" "NA" "R" (nth iii zbxLst))<br />                (command "plan" "")<br />                (setq iii (+ 1 iii))<br />         )<br />       )<br />     )<br />     (progn<br />       (vlax-for        x<br />                   (vla-get-UserCoordinateSystems<br />                     (vla-get-ActiveDocument (vlax-get-acad-object))<br />                   )<br />         (setq zbxLst (cons (vla-get-name x) zbxLst))<br />       )<br />       (if zbxLst<br />         (progn<br />           (setq iii 0)<br />           (command "ucs" "NA" "R" (nth iii zbxLst))<br />           (command "plan" "")<br />           (setq iii (+ 1 iii))<br />         )<br />         (princ "当前CAD图形未建立用户坐标系！")<br />       )<br />     )<br />   )<br />   (princ)<br /> )

其中      (vlax-for  x   (vla-get-UserCoordinateSystems  (vla-get-ActiveDocument (vlax-get-acad-object)))
        (setq zbxLst (cons (vla-get-name x) zbxLst))
      )
这段代码根据Gu_xl写的程序改了一下，谢谢Gu_xl

87282374

留名以便日后学习！

czcxxx

xxwz

tgl121 发表于 2013-12-27 18:36
其中      (vlax-for  x   (vla-get-UserCoordinateSystems  (vla-get-ActiveDocument (vlax-get-acad- ...

很好用，但是如果坐标系列表比较多，切换起来就麻烦了，要是能手动选择就好了

qazxswk

pxt2001 发表于 2012-3-30 23:02
请试试这个，自编自用的。

;; u1 转到用户坐标系

不错，方便，谢谢。