AutoCAD二次开发AutoLISP实战：绘制和的平方、极坐标四叶曲线、阿基米德螺旋线

写入下列三道题的LISP程序，并在实习报告中对运行结果截图，简略描述程序思路。

1、 有的两位数具有一种有趣的性质：该数的平方分成两个两位数，它们的和等于该数本身。例如：552=3025，而55=30+25，编程，找出具有这样性质的全部两位数

(defun c:xinzhi ( / n n1 n2 s)      ;该数的平方分成两个两位数，它们的和等于该数本身。
  (setq n 10)
  (while (<= n 99) (setq n1 (/ ( * n n ) 100))
   (setq n2 ( - ( * n n ) (* n1 100)))
  (setq s (+ n1 n2))
  (if (= s n) (princ (strcat "\n" (rtos n)))
         )                      ;if_end
   (setq n (+ n 1))
  )                             ;while_end
    (princ)
)                             ;end

效果：

2、 编程，画极坐标方程R=1+2cos(2θ)在[0, 2π]内的曲线

(command "pline" )      ;画极坐标方程R=1+2cos(2θ)在[0, 2π]内的曲线
(setq n 0)
(repeat 3600
(command (polar (list 0 0) (/ n 57.3) ( + 1 ( * 2 ( cos ( * 2 (/ n 57.3) ) ) ) ) ))
(setq n ( + 0.1 n))
)
(command) 

3、 编程，绘制阿基米德螺旋线

(command "pline" )          ;绘制阿基米德螺旋线
(setq n 0)
(repeat 1000
(command (polar (list 0 0) (/ n 57.3) n))
(setq n (1+ n))
)
(command) 

免责声明：本文系网络转载或改编，未找到原创作者，版权归原作者所有。如涉及版权，请联系删

武汉格发信息技术有限公司，格发许可优化管理系统可以帮你评估贵公司软件许可的真实需求，再低成本合规性管理软件许可,帮助贵司提高软件投资回报率，为软件采购、使用提供科学决策依据。支持的软件有: CAD,CAE,PDM,PLM,Catia,Ugnx, AutoCAD, Pro/E, Solidworks ,Hyperworks, Protel,CAXA,OpenWorks LandMark,MATLAB,Enovia,Winchill,TeamCenter,MathCAD,Ansys, Abaqus,ls-dyna, Fluent, MSC,Bentley,License,UG,ug,catia,Dassault Systèmes,AutoDesk,Altair,autocad,PTC,SolidWorks,Ansys,Siemens PLM Software,Paradigm,Mathworks,Borland,AVEVA,ESRI,hP,Solibri,Progman,Leica,Cadence,IBM,SIMULIA,Citrix,Sybase,Schlumberger,MSC Products...