明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 616|回复: 0

[函数] 根据一点及横向宽度纵向宽度返回西安80坐标系标准图幅的图幅号与对角点

[复制链接]
发表于 2019-1-22 13:04 | 显示全部楼层 |阅读模式
  • ;;[功能]根据一点及横向宽度纵向宽度返回西安80坐标系标准图幅的图幅号与对角点
  • ;;[用法](LC:Xian80-tfx pt 50 50)
  • ;;[作者]BY 大海
  • ;;返回:(图幅号 左下 右上)
  • ;(car(LC:Xian80-tfx (getpoint "\n 输入测区一角:") 50 50))
  • (defun LC:Xian80-tfx (pt ydis xdis / USERR1-BAK PTYMULTIPLE PTXMULTIPLE ZXJ X Y X1 Y1 TF TFX A TFH YSJ)
  •   (setq userr1-bak (getvar "userr1"));备份比例尺系统变量
  •   (if (= userr1-bak 0.0)
  •     (progn
  •       (setq *biLiChi* (getint "\n 绘图比例尺 1:<500>:"))
  •       (if (null *biLiChi*) (setq *biLiChi* 500))
  •       (setvar "userr1" *biLiChi*)
  •       (setq *biLiChi-Scale-factor* (/ *biLiChi* 1000.0))
  •     )
  •     (progn
  •       (setq *biLiChi-Scale-factor* (/ userr1-bak 1000.0))
  •       (setq *biLiChi* userr1-bak)
  •     )
  •   )
  •   (setq ptymultiple (fix (/ (car pt) (*  *biLiChi-Scale-factor* ydis 10.0))))
  •   (setq ptxmultiple (fix (/ (cadr pt) (* *biLiChi-Scale-factor* xdis 10.0))))
  •   (setq zxj (list (* ptymultiple (* *biLiChi* *biLiChi-Scale-factor*)) (* ptxmultiple (* *biLiChi* *biLiChi-Scale-factor*))))
  •   (setq x(rem (car zxj) 400000.);去带号
  •     y(rem(cadr zxj)2500000.0 );去带号
  •     x1(/ x (* 1000.(+ *biLiChi-Scale-factor* *biLiChi-Scale-factor*)));取左下角号
  •     y1(/ y (* 1000.(+ *biLiChi-Scale-factor* *biLiChi-Scale-factor*)));取左下角号(*  *biLiChi-Scale-factor* *biLiChi-Scale-factor*)
  •     tf(list x1 y1);
  •     tfx(mapcar '(lambda(x / a)(setq a(rtos x 2 2))(if(< x 10)(strcat "0"a)a))tf);转字符串补0
  •     tfh(strcat (cadr tfx)"-"(car tfx));图幅号
  •     ;zxj (mapcar '(lambda (k j l) (+ (- k l) (* 1000 j))) pt tf (list x y)) ;计算左下角坐标
  •     zxj (list (* ptymultiple (*  *biLiChi-Scale-factor* ydis 10.0)) (* ptxmultiple (* *biLiChi-Scale-factor* xdis 10.0))) ;计算左下角坐标
  •     ysj(mapcar '+ zxj (list (*  *biLiChi-Scale-factor* ydis 10) (* *biLiChi-Scale-factor* xdis 10)))
  •   )
  •   (setvar "userr1" userr1-bak)
  •   (list tfh zxj ysj)
  • )
"觉得好,就打赏"
还没有人打赏,支持一下
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 14:30 , Processed in 0.365829 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表