用autolisp画一个太极图样 编出来的程序总是加载不出来 求大神指点

(defun C:tes ( / #os1 a1 cp1 cp2 p1 p2 p3 p4 p5 p6)

 (setvar "cmdecho" 0)

 (setvar "blipmode" 0)

 (setq #os1 (getvar "osmode"))

 (setq a1 (getpoint "\n指定大圆圆心"))

 (setq cp1 (getdist 基卖a1 "\n指定大圆半径"))

 (setq cp2 (getdist a1 "\n小圆半径"))

 (setq p1 (polar a1 (/ pi 2) cp1))

 (setq p2 (polar a1 (/ pi 2) (/ cp1 2)))

 (setq p3 (polar p2 pi (/ cp1 4)))

 (setq p6 (polar a1 (/ pi -2) (/ cp1 2)))

 (setq p5 (polar a1 (/ pi -2) cp1))

 (setq p4 (polar p6 0 (/ cp1 4)))

 羡消(setvar "osmode" 0)

 (command "circle" a1 cp1)

 (command "circle" p2 cp2)

 (command "circle" p6 cp2)

 (command "arc" p1 p3 a1)

 (command "arc" a1 p4 p5)

 (setvar "osmode" #os1)

 (prin1)

)复兄锋知制到记事本，以【.lsp】为后缀命名。autoLISP加载后，命令为：TES

首先getlist不对，应当getdist

(/pi格式不对，中间少了一个空，应当:(/ pi

(setq p2 (polar p2 pi (/cp1 4))里面的p2没有给定，所以错误

(setq p6 (polar a1 (/p1 -2) (/cp1 2)) 里面的(/p1 2)不对，角度弧应当(/ pi 2)90°

刮弧数量不对应如(setq cp2 (getlist "小圆半径:")少了一个")"这样的情况很多

乾卦、坤卦、离卦、坎卦的自然产生

一、“乾卦”的自然产生

昼阳在“雷卦”一阳生起为“阳始极”，运行到一阴生起的“巽卦”为“伍”步，经“阳始、阳盛、阳终”为“叁”。

开始模拟：以“阳爻”模拟昼阳性质。首先在“太极图”上端中心点的太阳中午“盛极”处画出第一个阳爻“一”，请注意！这就是伏羲氏“一画开天”的由来。在连续三次画爻中，因中午都是“阳”性质。所以，三个阳爻“一”就组成了太阳中午的“乾为天”卦，为“中午老阳”，形成了“天定位”。

二、“坤卦”的自然产生

夜阴在“巽卦”一阴生起，运行到一阳升起的“雷卦”为“伍”步。经“阴始、阴盛、阴终”为“叁”。

开始模拟：以“阴爻”模拟“夜阴”性质。首先在“太极图”下端中心点深夜的“阴盛极”处画出第一个阴爻“——”。请注意！这就是伏羲氏“两画定乾坤”的由来。在连续三次阙爻中，因深夜都是“阴”性质。所以，三个阴爻“——”组成了“坤为地”卦，为“深夜老阴”，形成了“地定位”。

这就是伏羲氏以阴阳爻模拟昼夜阴阳创造的“天乾”、“地坤”两卦，形成了“天地定位”而“乾坤定矣”。

三、黎明“离卦”的自然产生

黎明，是昼阳运行“伍”步中，“阳始极”后的第二个状态，呈现着昼夜阴阳各半，因黎明走向昼的光明而定义为“阳性质”。

开始模拟，因黎明为阳，就在“太极图”左侧东方黎明处画出第一个阳爻“一”，黎明是从夜阴而来，第二爻画阴爻“——”，黎明随之进人昼阳，第三爻画阳爻“一”。在三次画爻中就自然组成了“离为火”卦，为“黎明少阳”。

四、黄昏“坎卦”的自然产生

黄昏，是夜阴运行“伍”步中，“阴始极”后的第二个自然态，呈现着昼夜阴阳各半，因夜走向黑暗而定义为“阴性质”。

开始模拟，因黄昏为夜阴，就在“太极图”右侧西方黄昏处出

第一个阴爻“--”，因黄昏是从昼“阳”而来，第二爻凼阳爻

“一”，黄昏随之进人“夜阴”，第三爻画阴爻“——”。三次画爻就自然组成了“坎为水”卦，为“黄昏少阴”。

这就是在昼夜“三极之道”和各“伍”个自然态的“叁伍以变”中，组成地球上昼、夜、黎明、黄昏的乾、坤、离、坎四卦象的原理和程序。

五、“四隅”卦象的自然产生

“四隅”是地球的上午与上半夜对应，下午与下半夜对应，与“四象”组卦是同一个原理和程序，就自然产生了“兑、山、雷、巽”的四个卦象而形成了地球八个地域的“本宫卦”，即“三爻八经卦”组成的，单层卦象的“太极八卦图”，俗称“八卦”。由于昼夜八个自然状态是相异的，卦象就呈现着“错综其数”。《周易》在《说卦传》中解释说：“天地定位，山泽通气，雷风相搏，水火不相射，八卦相错……”

其真实涵义是：昼南与夜北为“天地定位”；西北“山卦”与东南“泽卦”为“山泽通气”；东北“雷卦”与西南“巽卦”为“雷风相搏”；西方黄昏“坎卦”与东方黎明“离卦”为“水火不相射”。地球八个地域的“三爻八经卦”，即“通其变，遂成天下之文，极其数，遂定镇启天下之象”。

由于伏羲氏在“太极图”上创造了“三爻八经卦”，“太极图”即刻变成了单层卦象的“太极八卦图”。芦氏从中可以看到，卦象与数的本源原理和程序，是顺昼夜fl然状态的程序自然生成，与传统观念产生“八卦”的模式有着本源和本质的区别。

“三爻八经卦”自然产生的过程与《周易》“叁伍御哗如以变，错综其数”的解释是对应的。伏羲氏是模拟太阳运行路线创造了“三爻八经卦”，由于太阳昼夜与地球反向运行，地球自转的卦象是与此反向的

---