zhb236623 发表于 2011-7-12 01:32:26

南方cass比例尺判断应用，简单应用。

本帖最后由 zhb236623 于 2011-7-12 01:33 编辑


(defun c:blc8()
(setq blc_cass7 (getvar "userr1"))
(cond(( = blc_cass7 500)
         (princ "比例尺,,,,,为500")
         (princ)
         )
   
   
      (( = blc_cass7 200)
   (princ "比例尺,,,,,为200")
   (princ)
   )
   
   
   (( = blc_cass7 1000)
   (princ "比例尺,,,,,为1000")
   (princ)
   )
   
((and ( /= blc_cass7 500)( /= blc_cass7 200)( /= blc_cass7 1000))
    (princ "比例尺不为1：500，1：200，1：1000请检查比例尺设置，程序将退出。")
    (exit)
)

)
(princ "程序正常运行")
(princ)
)

Student 发表于 2011-7-12 08:07:26

"userr1"的值是可以随意重置的
所以(setq blc_cass7 (getvar "userr1"))的结果只能做参考。

zhb236623 发表于 2011-7-12 15:44:29

本帖最后由 zhb236623 于 2011-7-12 15:45 编辑

我一般用CASS软件只用到的比例尺1：200.500，1000，判定是这三个中的哪个就执行相应的操作。比如批量坐标标注。不同的比例尺下参数设置不同。

c735023723 发表于 2012-10-25 07:34:25

请问，在cass中怎样进行图像的纠正啊

soly2006 发表于 2012-10-25 12:48:50

我草，那么多的测量苦逼。不错！帮顶。

xiabin68 发表于 2012-10-25 17:50:42

我顶你楼上老儿2，我就搞测量的

我来看MM的 发表于 2013-5-22 10:54:06

谢楼主了。代码我参考了。测量狗飘过！！！
页: [1]
查看完整版本: 南方cass比例尺判断应用，简单应用。