angle问题，来个大神告诉我错在哪里了- -

satan421

CQ467959301 发表于 2019-4-22 23:58
图形是我用PL画的点不会有重复点的
命令: !d1
(10 955.612 411.983)

你的点表aa包含组码10呢，你得先去掉组码再用angle求方位角(set (read (strcat "d" (itoa i))) (nth ii aa))
改为
(set (read (strcat "d" (itoa i))) (cdr(nth ii aa)))
或者
    (set (read (strcat "ang" (itoa jiaodu)))
         (angle        (eval (read (strcat "d" (itoa jiaodu))))
                (eval (read (strcat "d" (itoa (1+ jiaodu)))))
         )
    )

改为
    (set (read (strcat "ang" (itoa jiaodu)))
         (angle        (cdr(eval (read (strcat "d" (itoa jiaodu)))))
                (cdr(eval (read (strcat "d" (itoa (1+ jiaodu))))))
         )
    )
早点贴代码，大家就不用这么猜了

CQ467959301

satan421 发表于 2019-4-23 08:57
你的点表aa包含组码10呢，你得先去掉组码再用angle求方位角(set (read (strcat "d" (itoa i))) (nth ii a ...

我去试下 - - 谢谢,...我单独试了(angle d3 d4)(angle d2 d3)是不一样的- -，，，。。所以就看不懂了