两个坐标系转换程序

smartstar

第一个，人家的程序照搬过来的，自定义坐标系
(defun c:ZCS (/ HIGH pt)
  (setvar "UCSICON" 1)
  (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:WCS ()
  (setq high (/ (getvar "VIEWSIZE") 1))        ;屏幕的高度的倍数  
  (setq pt (cadr (grread 3)))                ;取得光标处坐标
  (setq pt (trans pt 1 0));用户坐标转化为世界坐标
  (command "ucs" "")
  (command "plan" "")
  (command "zoom" "c" pt high)
  (COMMAND "undo" "e")
  (princ)
)

vlisp2012

楼主这两天产量很高啊，多谢分享！