坐标系的切换问题

刘炎华

两个命令可以合在一起吗,如下:
先判断当前坐标系
如果是绝对坐标系,则建立用户坐标系;
(command "ucs" "ob")
如果是用户坐标系,则返回为绝对坐标系;
(command "ucs" "w")
这两种状态需要经常切换;
且外挂里有些命令会把用户坐标系变到绝对坐标系
感谢!

start4444

(if (= (getvar "WORLDUCS" ) 0) (command "ucs" "w") (command "ucs" "ob"))

pzweng

start4444 发表于 2020-11-25 23:53
(if (= (getvar "WORLDUCS" ) 0) (command "ucs" "w") (command "ucs" "ob"))

当前视图为“*俯视*”时其实是与WCS重合，可以认作为WCS，特别是画三维图时直接点工具栏“*俯视*”按钮，所以这种写法不完美。
(defun c:tt nil
  (if (equal (trans '(1.0 0.0 0.0) 1 0) '(1.0 0.0 0.0) 1.0e-4)
    (command "ucs" "ob")
    (command "ucs" "w")
  )
  (princ)
)