[LISP函数]：见鬼的问题~请高手指点

wangyi168

(setq osmode (getvar "osmode"))

(setq b(getpoint "\n指定基点:"))

(setvar "osmode" 4);捕捉目标点时只开圆心

(setq b(getpoint "\n指定目标点:"))
(setvar "osmode" 0)            
(command "point" b)

(setvar "osmode" osmode)
                    (setq c(angle o b))；A

                    (setq dist(distance o b));B
                    (setq f(angle o o1))
                    (setq dist(rtos (/ dist q) 2 2))
                    (setq c(angtos (- (+ pi pi) (- c f)) 1 4))
                     
       这是我的一个LISP程序中一个循环的一部分，目的是连续计算从图中捕捉到的点坐标到一个固定基点的距离，

然而突然发现在批量计算时，结果出现错误！并不是经常出现，而是极偶然的，我核对后发现，出错时总是代入 A和B行的目标点坐标值并不是现捕捉到的坐标值，而是前面捕捉过的某个点的坐标值的X值与现捕捉到的点坐标的Y值组成的一个非特征点的坐标，于是出现错误！！！

请问，这是怎么回事？应该不是锁点干扰吧，我已经关闭了对象捕捉！只是在计算前开启对象捕捉了，没道理导致计算混乱吧？？？而且出现这种情况的机会很少！请高手指点迷津！给出确切解释及处理办法，不胜感激！！！   
出现这种错乱机会大概是500点连续出现5，6个点，而且没有规律，痛苦！

zml84

注意z坐标

gysjy

(setq f(angle o o1))
中的o1是什么？
(setq dist(rtos (/ dist q) 2 2))中的q是什么？
你最好把程序全部贴出来。

wangyi168

zml84 版主，能否给小弟说得明白一点啊
我认为这与Z坐标没关系啊，求距离函数与Z没关系啊
我上面说的很清楚啊，出错时代入距离函数计算的坐标并不是捕捉到的坐标，而是前面捕捉过的某点坐标的X值与现在捕捉的坐标的Y值构成的一个新坐标，而且并不是特征点
请问这是哪里出错了？谢谢

apollone

c，dist 一会儿数值，一会儿字符串，干嘛这样做？

估计这条也有问题
(setvar "osmode" osmode)

zml84

楼主是测绘专业吧， 1楼的程序只是个片段，不明白是什么功能。
获取方位角？

zml84

[php]

(setq OSMODE (getvar "osmode"))
(if (and (setq PT0 (getpoint "\n指定基点:"))
         (setvar "osmode" 4) ;_捕捉目标点时只开圆心
         (setq PT1 (getpoint PT0 "\n指定目标点:"))
    )
    (progn
        (setq ANG (angle PT0 PT1))
        (setq DIST (distance PT0 PT1))
        ;;计算方位角
        (if (> ANG (* 0.5 pi))
            (setq ANG (- (* 2.5 pi) ANG))
            (setq ANG (- (* 0.5 pi) ANG))
        )
        (setq
            STR_ANG  (angtos ANG 1 6)
            STR_DIST (rtos DIST 2 4)
        )
        ;;显示输出
        (princ "\n>>>>方位角：")
        (princ STR_ANG)
        (princ "\n>>>>  距离：")
        (princ STR_DIST)
    )
)
(setvar "osmode" OSMODE)
[/php]

wangyi168

zml84版主，谢谢您的回答。你说的对，就是你上面的程序功能，我的问题就是distance函数计算的结果出错了，坐标捕捉的对，就是代入distance后计算的结果不对，我按照错误的结果反算到点坐标后发现，代入的点坐标不是捕捉到的点，而是捕捉点坐标的X值和前面捕捉过的某个点坐标Y值组成的一个非特征点的坐标，请问这是属于对象捕捉干扰引起的坐标错乱吗？再次感谢
还有，您说的对象追踪开着也影响程序运行结果吗？谢谢

zml84

可能你在指定点位时没有注意对象追踪。

欢迎交流，相互学习，共同进步。