[LISP程序]：根据弧长绘制相对的径轴。

YueFeng

在画图偶然发现需要，顺手来了一个LISP程序。
要XD＿API支持。
(Defun C:HCDZ(/ Data CirC CirD DirD Pt10 pt11 dist)
   (SetQ HH (XDRX_EntSel "\n请输入所定弧长的园弧:" "dote"  '((0 . "ARC")))
         BS (XDRX_EntSel "\n请输入所定弧长的基线:" "dote"  '((0 . "LINE")))
         FX (GetPoint "\n请输入所定弧长的方向:")
            HC (GetInt "\n请输入所定弧长的弧长:")
         
   )
   
   (SetQ Data (EntGet (Car HH))
         CirC (Cdr (Assoc 10 Data))
         CirR (Cdr (Assoc 40 Data))
         DirD (/ (* HC 180) (* CirR PI))
   )

   (SetQ Data (EntGet (Car BS))
         Pt10 (Cdr (Assoc 10 Data))
         Pt11 (Cdr (Assoc 11 Data))
   )         

   (SetQ Dist (XDRX_P2LDist FX Pt10 Pt11))

   (If (< Dist 0)  then (SetQ DirD (* -1 DirD)))
         
         
   (Command "._Copy" BS "" "0,0" "0,0")
   (Command "._Rotate" (EntLast) "" CirC DirD)
)

YueFeng

忘记说明了，这个是用于天正绘制轴线时用的。图层与天正有关的。天正的轴线绘制只能按角度定，不能按弧长定。