[编程申请]：再次申请：条件有变化：如果X、Y轴比例不一致？夹角A及R、L、E、T这五要

Andyamy

条件有变化：如果X、Y轴比例不一致？由一点引出两直线a、b,如何求两线a、b的夹角A及R、L、E、T这五要素？  

由一点引出两直线a、b,如何求两线a、b的夹角A及R、L、E、T这五要素？R由用户输入。
在X、Y轴比例一致的情况下即都是1：1的条件下求得的A角度即为实际角度，如果X轴比例为1：2000，Y轴比例为1：100，那么该如何计算A角的实际角度？
谁能提供算法？

yshf

;请将下载的“rtl.fas”存入G盘中，并试用以下程序
(defun c:cc()
   (if (null rtl)(load "g:rtl.fas"));如存入其它地方，请更改相应的路径名
   (setq xsca (getreal "\n请输入X轴比例尺分母<1>:")
         ysca (getreal "\n请输入Y轴比例尺分母<1>:")
   )
   (if (= xsca nil) (setq xsca 1))
   (if (= ysca nil) (setq ysca 1))
   (setq xybl (list (/ xsca 1000.0) (/ ysca 1000.0)))
   (while (setq r (getreal "\n请输入实际的转角半径R:"))
      (initget "L A")
      (setq fhb nil
            nbz (getkword "\n指定两直线(L)/指定圆弧(A)[L/A]:")
      )
      (cond ((= nbz "L")
             (if (and (setq en1  (car (entsel "\n请指定直线a:")))
                      (setq en2  (car (entsel "\n请指定直线b:")))
                 )
                 (setq fhb (rtl1 en1 en2 r xybl));fhb=(转角 半径 切线长 曲线长 外矢距 要素字符串)
                 (alert "只指定了一条直线或者两条直线均未指定！")
              )
            )
            ((= nbz "A")
             (if (setq en1  (car (entsel "\n请指定圆弧:")))
                 (setq fhb (rtl2 en1 r xybl));fhb=(转角 半径 切线长 曲线长 外矢距 要素字符串)
                 (alert "未指定圆弧！")
              )
               )
      )
      (if fhb (alert (last fhb)))
   )            
)