两个坐标系转换程序
第一个，人家的程序照搬过来的，自定义坐标系
(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)
)
楼主这两天产量很高啊，多谢分享！
页:
[1]