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-forx   (vla-get-UserCoordinateSystems(vla-get-ActiveDocument (vlax-get-acad- ...

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

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

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

学习了！:handshake

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 static/image/common/back.gif
好像不是直接转换呀，u1我已经设置好了，只需要切换下就行了，但是就是无法切换。

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

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

切换坐标系u1，效果如图



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

Gu_xl 发表于 2012-3-31 08:47 static/image/common/back.gif
你把ucs命令各参数用法搞懂了先！

能提示下吗？
我是用命令建立了很多新的坐标系，用原点，X方向，Y方向，并且命名。
但是这很多坐标系如何用lisp命令切换，我就不会了。。。
页: [1] 2 3
查看完整版本: 如何从世界坐标系切换到相对坐标系？