[LISP]广州scas的实地坐标与图纸坐标转换关系

shmily1023 · 发表于 2005-4-15 22:11:00

(defun SD2TZ (listxy / scale dx dy blc x y)
(setq scale (getvar "Userr1"))
(setq dx (getvar "Userr2"))
(setq dy (getvar "Userr3"))
(setq blc (/ scale 1000.0))
(setq y (car listxy))
(setq x (cadr listxy))
(setq x (+ (/ (* (- x dx) 1000) scale) 100))
(setq y (+ (/ (* (- y dy) 1000) scale) 100))
(setq listxy (list x y))
) (defun TZ2SD (listxy / scale dx dy blc x y)
(setq scale (getvar "Userr1"))
(setq dx (getvar "Userr2"))
(setq dy (getvar "Userr3"))
(setq blc (/ scale 1000.0))
(setq y (car listxy))
(setq x (cadr listxy))
(setq x (+ dx (/ (* (- x 100) scale) 1000)))
(setq y (+ dy (/ (* (- y 100) scale) 1000)))
(setq listxy (list x y))
)

shmily1023 · 发表于 2005-4-15 22:14:00

实地坐标与图纸坐标的变量保存在useri5中,useri5 的值为666时为图纸模式为888时是实地模式

njcknfy · 发表于 2005-4-17 21:56:00

你认为广州开思的图纸和实地两个模式有什么意义?

yelong · 发表于 2006-7-5 08:25:00

我认为广州开思的简直是多此一举，我们现在在做接边，老是要两个模式换来换去。

Wich · 发表于 2012-6-7 09:46:15

初学者，请问那实地的是39和2开头的那种么？不是的话算法要怎么写啊？

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

[LISP]广州scas的实地坐标与图纸坐标转换关系

相关帖子