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

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

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


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

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

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

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

初学者，请问那实地的是39和2开头的那种么？不是的话算法要怎么写啊？
页: [1]
查看完整版本: [LISP]广州scas的实地坐标与图纸坐标转换关系