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

tm20038175 · 发表于 2012-3-30 16:38:26

我都是在CAD下用UCSMAN图形化窗口切换的，在lisp里好像不能调用ucsman,
请问如果我想切换到一个设置好的相对坐标系ucs1,在lisp下如何实现呢？

pxt2001 · 发表于 2012-3-30 23:02:28

请试试这个，自编自用的。

;; u1 转到用户坐标系
;; u0 转到世界坐标系

;;-------------------------------------
;;----------设置ucs--------------------
(defun c:u1 (/ HIGH pt)
  (COMMAND "undo" "be")
  (prompt "\n请选择ucs对象:")
  (setq high (/ (getvar "VIEWSIZE") 1)) ;屏幕的高度的倍数
  (command "ucs" "ob" pause)
  (setq pt (cadr (grread 3)))  ;取得光标处坐标
  (command "plan" "")
  (command "zoom" "c" pt high)
  (COMMAND "undo" "e")
  (princ)
)
(defun c:u0 ()
  (command "ucs" "")
  (command "plan" "")
  (princ)
)
;;----------设置ucs--------------------
;;-------------------------------------

xxwz · 发表于 2018-5-16 16:05:49

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

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

青冥 · 发表于 2024-9-25 11:28:44

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

学习了！

tm20038175 · 发表于 2012-3-30 16:39:25

从相对坐标系到世界坐标系可以用(command "ucs" "")，但是反过来如何实现呢？

tm20038175 · 发表于 2012-3-30 19:00:54

没有想到遇到这个问题了，无法用命令切换到世界坐标系。

tm20038175 · 发表于 2012-3-30 19:50:49

这个问题在论坛好像搜不到答案，以前没人讨论过。

tm20038175 · 发表于 2012-3-30 21:10:19

有没有高手熟悉vba，录制个宏，然后把代码转化成lisp，谢谢了。

tm20038175 · 发表于 2012-3-31 06:26:11

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

;; u1 转到用户坐标系

好像不是直接转换呀，u1我已经设置好了，只需要切换下就行了，但是就是无法切换。

Gu_xl · 发表于 2012-3-31 08:47:17

tm20038175 发表于 2012-3-31 06:26
好像不是直接转换呀，u1我已经设置好了，只需要切换下就行了，但是就是无法切换。

你把ucs命令各参数用法搞懂了先！

pxt2001 · 发表于 2012-3-31 09:37:53

切换坐标系u1，效果如图

tm20038175 · 发表于 2012-3-31 09:42:04

Gu_xl 发表于 2012-3-31 08:47
你把ucs命令各参数用法搞懂了先！

能提示下吗？
我是用命令建立了很多新的坐标系，用原点，X方向，Y方向，并且命名。
但是这很多坐标系如何用lisp命令切换，我就不会了。。。

账号		自动登录	找回密码
密码			注册

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

相关帖子

点评

本帖子中包含更多资源

点评