设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [LISP函数]：一个无聊的时钟LISP程序，不影响图形 ...
返回列表 发新帖
查看: 2103|回复: 5

[LISP函数]：一个无聊的时钟LISP程序，不影响图形

[复制链接]
snoopychen
发表于 2005-8-26 14:00:46 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
看了前几天一个朋友作的时钟程序，用scr的，挺有趣
又学习了一下扫雷.lsp，编了一个无聊的时钟程序，如下图所示。
在现有图形中用grdraw绘制，按ESC退出，对原图形没有什么影响。纯粹无聊程序。自己编着玩：）

  3. (defun c:sz ()
  4.   (setq 123err *error*
  5.         *error* abcderr
  6.   )
  7.   (command "redraw")
  8.   (setq vc (getvar "viewctr"))
  9.   (setq vs (getvar "viewsize"))
  10.   (setq r (* 0.5 vs))
  11.   (setq color1 20)
  12.   (draw12)
  13.   (draw3)
  14.   (draw6)
  15.   (draw9)
  16.   (drawcircleandline)
  17.   (setq i 0)
  18.   (setq p2 vc
  19.         pfz2 p2
  20.         psz2 p2
  21.   )
  22.   (setq temp (cadr (grread 5)))
  23.   (while (< i 10000)
  24.     (setq time (menucmd "m=$(edtime,$(getvar,date),hh:mm:ss)"))
  25.     (setq timelen (strlen time))
  26.     (setq stime (atof (substr time 1 2)))
  27.     (if (>= stime 12)
  28.       (setq stime (- stime 12))
  29.     )
  30.     (setq ftime (atof (substr time 4 2)))
  31.     (setq mtime (atof (substr time (- timelen 1) 2)))
  32.     (setq p0 vc)
  33.     (setq ang (- (* 0.5 pi) (/ (* mtime pi) 30)))
  34.     (setq angfz (- (* 0.5 pi) (/ (* ftime pi) 30)))
  35.     (setq angsz (- (* 0.5 pi) (/ (* stime pi) 6)))
  36.     (setq angsz (- angsz (/ (* ftime pi) 360)))
  37.     (grdraw p0 p2 0)
  38.     (grdraw p0 pfz2 0)
  39.     (grdraw p0 psz2 0)
  40.     (setq p1 (polar p0 ang (* r 0.68)))
  41.     (setq pfz1 (polar p0 angfz (* r 0.58)))
  42.     (setq psz1 (polar p0 angsz (* r 0.50)))
  43.     (grdraw p0 p1 1)
  44.     (grdraw p0 pfz1 4)
  45.     (grdraw p0 psz1 3)
  46.     (setq p2 p1)
  47.     (setq pfz2 pfz1)
  48.     (setq psz2 psz1)
  49.     (princ)
  50.     (std-sleep 1)
  51.     (setq i (1+ i))
  52.   )
  53.   (setq *error* 123err)
  54. )

  56. (defun draw12 (/ pa p12-1 p12-2 p12-3 p12-4 p12-5 p12-6 p12-7 p12-8)
  57.   (setq pa (polar vc (* 0.5 pi) (* vs 0.4)))
  58.   (setq p12-1 (polar pa pi (* 0.05 r)))
  59.   (setq p12-2 (polar p12-1 (* 1.5 pi) (* 0.2 r)))
  60.   (setq p12-3 (polar pa 0 (* 0.01 r)))
  61.   (setq p12-4 (polar p12-3 0 (* 0.1 r)))
  62.   (setq p12-5 (polar p12-4 (* 1.5 pi) (* 0.1 r)))
  63.   (setq p12-6 (polar p12-5 pi (* 0.1 r)))
  64.   (setq p12-7 (polar p12-6 (* 1.5 pi) (* 0.1 r)))
  65.   (setq p12-8 (polar p12-7 0 (* 0.1 r)))
  66.   (grdraw p12-1 p12-2 color1)
  67.   (grdraw p12-3 p12-4 color1)
  68.   (grdraw p12-4 p12-5 color1)
  69.   (grdraw p12-5 p12-6 color1)
  70.   (grdraw p12-6 p12-7 color1)
  71.   (grdraw p12-7 p12-8 color1)
  72. )

  74. (defun draw3 (/ pb p12-1 p12-2 p12-3 p12-4 p12-5 p12-6)
  75.   (setq pb (polar vc 0 (* vs 0.37)))
  76.   (setq p12-6 pb)
  77.   (setq p12-3 (polar pb pi (* 0.1 r)))
  78.   (setq p12-4 (polar pb (* 1.5 pi) (* 0.1 r)))
  79.   (setq p12-1 (polar pb (* 0.5 pi) (* 0.1 r)))
  80.   (setq p12-2 (polar p12-1 pi (* 0.1 r)))
  81.   (setq p12-5 (polar p12-4 pi (* 0.1 r)))
  82.   (grdraw p12-6 p12-3 color1)
  83.   (grdraw p12-1 p12-2 color1)
  84.   (grdraw p12-4 p12-5 color1)
  85.   (grdraw p12-1 p12-6 color1)
  86.   (grdraw p12-6 p12-4 color1)
  87. )

  89. (defun draw6 (/ pb p12-1 p12-2 p12-3 p12-4 p12-5 p12-6)
  90.   (setq pc (polar vc (* 1.5 pi) (* vs 0.4)))
  91.   (setq p12-1 (polar pc 0 (* 0.05 r)))
  92.   (setq p12-2 (polar p12-1 (* 0.5 pi) (* 0.1 r)))
  93.   (setq p12-3 (polar p12-2 pi (* 0.1 r)))
  94.   (setq p12-4 (polar p12-3 (* 1.5 pi) (* 0.1 r)))
  95.   (setq p12-5 (polar p12-3 (* 0.5 pi) (* 0.1 r)))
  96.   (setq p12-6 (polar p12-5 0 (* 0.1 r)))
  97.   (grdraw p12-1 p12-2 color1)
  98.   (grdraw p12-2 p12-3 color1)
  99.   (grdraw p12-4 p12-1 color1)
  100.   (grdraw p12-4 p12-5 color1)
  101.   (grdraw p12-5 p12-6 color1)
  102. )

  104. (defun draw9 (/ pb p12-1 p12-2 p12-3 p12-4 p12-5 p12-6)
  105.   (setq pd (polar vc pi (* vs 0.37)))
  106.   (setq p12-1 pd)
  107.   (setq p12-2 (polar p12-1 (* 0.5 pi) (* 0.1 r)))
  108.   (setq p12-3 (polar p12-2 0 (* 0.1 r)))
  109.   (setq p12-4 (polar p12-3 (* 1.5 pi) (* 0.1 r)))
  110.   (setq p12-5 (polar p12-4 (* 1.5 pi) (* 0.1 r)))
  111.   (setq p12-6 (polar p12-5 pi (* 0.1 r)))
  112.   (grdraw p12-1 p12-2 color1)
  113.   (grdraw p12-2 p12-3 color1)
  114.   (grdraw p12-4 p12-1 color1)
  115.   (grdraw p12-3 p12-5 color1)
  116.   (grdraw p12-5 p12-6 color1)
  117. )

  119. (defun drawcircleandline (/ i pe pf p1 p2)
  120.   (setq i 1)
  121.   (repeat 11
  122.     (setq pe (polar vc (* i (/ pi 6)) (* vs 0.38)))
  123.     (setq pf (polar vc (* i (/ pi 6)) (* vs 0.35)))
  124.     (if (and
  125.           (/= i 3)
  126.           (/= i 6)
  127.           (/= i 9)
  128.         )
  129.       (grdraw pe pf 31)
  130.     )
  131.     (setq i (1+ i))
  132.   )                                       
  133.   
  134.   (cc (* r 0.86) 42)
  135.   (cc (* r 0.9) 31)
  136.   
  137.   )


  140. (defun cc(a b)
  141.   (setq i 0)
  142.   
  143.   (while (< i (* 2 pi))
  144.     (setq p1 (polar vc i a))
  145.     (setq i (+ i (/ (* 2 pi) 180)))
  146.     (setq p2 (polar vc i a))
  147.     (grdraw p1 p2 b)
  148.     )
  149. )


  152. (defun abcderr (st)
  153.   (if (/= st "Function cancelled")
  154.     (princ (strcat "\nerror:" s))
  155.   )
  156. )


  159. (defun STD-SLEEP (secs / endt)
  160.   (setq endt (+ (getvar "DATE") (/ secs 86400.0))) ; fixed
  161.   (while (< (getvar "DATE") endt)
  162.     T
  163.   )
  164. )
setq, 12, polar

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

snoopychen
 楼主| 发表于 2006-5-13 09:21:37 | 显示全部楼层
居然有个老兄比我还无聊
theswamp这里的高手很多,许多程序编的很好,等有空了把它的精彩程序做个小集合
[php]
;;;;;by ElpanovEvgeniy from Moscow
;;;;;Taken from www.theswamp.org by qjchen

(defun c:clo (/ A1 A2 B *error*)
  (setvar "cmdecho" 0)
  (vla-StartUndoMark(vla-get-activedocument (vlax-get-acad-object)))
  (defun *error* (msg)
    (vla-EndUndoMark(vla-get-activedocument (vlax-get-acad-object)))
    (vl-cmdf "_.undo" 1)
    (setvar "cmdecho" 1)
  ) ;_  defun
  (mapcar
    (function
      (lambda (x1 x2)
        (progn
          (vla-copyobjects
            (vla-get-activedocument (vlax-get-acad-object))
            (vlax-make-variant
              (vlax-safearray-fill (vlax-make-safearray '9 (cons 0 0))
                                   (list x1)
              ) ;_  vlax-safearray-fill
            ) ;_  vlax-make-variant
            (vla-add
              (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))
              ) ;_  vla-get-blocks
              (vlax-3d-point 0. 0.)
              x2
            ) ;_  vla-add
          ) ;_  vla-copyobjects
          (vla-delete x1)
        ) ;_  progn
      ) ;_  lambda
    ) ;_  function
    (mapcar (function (lambda (x) (vlax-ename->vla-object (entmakex x))))
            '(((0 . "HATCH")
                (100 . "AcDbEntity")
                (67 . 0)
                (410 . "Model")
                (8 . "0")
                (62 . 2)
                (6 . "Continuous")
                (100 . "AcDbHatch")
                (10 0.0 0.0 0.0)
                (210 0.0 0.0 1.0)
                (2 . "SOLID")
                (70 . 1)
                (71 . 0)
                (91 . 1)
                (92 . 7)
                (72 . 0)
                (73 . 1)
                (93 . 4)
                (10 2.62847e-019 0.00429276 0.0)
                (10 4.81482e-035 -4.81482e-035 0.0)
                (10 -1.83993e-018 -0.00429276 0.0)
                (10 0.361548 -8.8447e-017 0.0)
                (97 . 0)
                (75 . 0)
                (76 . 1)
                (47 . 0.00035409)
                (98 . 1)
                (10 0.0164277 -0.000586246 0.0)
                (450 . 0)
                (451 . 0)
                (460 . 0.0)
                (461 . 0.0)
                (452 . 1)
                (462 . 1.0)
                (453 . 2)
                (463 . 0.0)
                (63 . 5)
                (421 . 255)
                (463 . 1.0)
                (63 . 7)
                (421 . 16777215)
                (470 . "LINEAR")
              )
              ((0 . "HATCH")
               (100 . "AcDbEntity")
               (67 . 0)
               (410 . "Model")
               (8 . "0")
               (62 . 3)
               (6 . "Continuous")
               (100 . "AcDbHatch")
               (10 0.0 0.0 0.0)
               (210 0.0 0.0 1.0)
               (2 . "SOLID")
               (70 . 1)
               (71 . 0)
               (91 . 1)
               (92 . 1)
               (93 . 10)
               (72 . 2)
               (10 0.244405 0.0184507 0.0)
               (40 . 0.00886577)
               (50 . 4.95009)
               (51 . 6.23605)
               (73 . 1)
               (72 . 2)
               (10 0.259805 0.0173538 0.0)
               (40 . 0.00657812)
               (50 . 3.24481)
               (51 . 5.70232)
               (73 . 0)
               (72 . 2)
               (10 0.300645 0.0562006 0.0)
               (40 . 0.0499073)
               (50 . 3.92551)
               (51 . 4.82386)
               (73 . 1)
               (72 . 2)
               (10 0.306797 0.000183004 0.0)
               (40 . 0.00644848)
               (50 . 4.61928)
               (51 . 7.94709)
               (73 . 0)
               (72 . 2)
               (10 0.300645 -0.0558346 0.0)
               (40 . 0.0499073)
               (50 . 1.45933)
               (51 . 2.35767)
               (73 . 1)
               (72 . 2)
               (10 0.259805 -0.0169878 0.0)
               (40 . 0.00657812)
               (50 . 0.580869)
               (51 . 3.03838)
               (73 . 0)
               (72 . 2)
               (10 0.244405 -0.0180825 0.0)
               (40 . 0.00886577)
               (50 . 0.0471312)
               (51 . 1.33309)
               (73 . 1)
               (72 . 2)
               (10 0.13637 -1.05279 0.0)
               (40 . 1.04912)
               (50 . 1.46563)
               (51 . 1.70118)
               (73 . 1)
               (72 . 2)
               (10 -2.7809e-005 -0.000429771 0.0)
               (40 . 0.0121455)
               (50 . 1.5708)
               (51 . 4.71239)
               (73 . 0)
               (72 . 2)
               (10 0.130763 0.996853 0.0)
               (40 . 0.993782)
               (50 . 4.5804)
               (51 . 4.82911)
               (73 . 1)
               (97 . 0)
               (75 . 0)
               (76 . 1)
               (98 . 1)
               (10 -2.7809e-005 -0.000429771 0.0)
               (450 . 0)
               (451 . 0)
               (460 . 0.0)
               (461 . 0.0)
               (452 . 1)
               (462 . 1.0)
               (453 . 2)
               (463 . 0.0)
               (63 . 5)
               (421 . 255)
               (463 . 1.0)
               (63 . 7)
               (421 . 16777215)
               (470 . "LINEAR")
              )
              ((0 . "HATCH")
               (100 . "AcDbEntity")
               (67 . 0)
               (410 . "Model")
               (8 . "0")
               (62 . 3)
               (6 . "Continuous")
               (100 . "AcDbHatch")
               (10 0.0 0.0 0.0)
               (210 0.0 0.0 1.0)
               (2 . "SOLID")
               (70 . 1)
               (71 . 0)
               (91 . 1)
               (92 . 1)
               (93 . 10)
               (72 . 2)
               (10 0.0651676 -0.163583 0.0)
               (40 . 0.152878)
               (50 . 4.31659)
               (51 . 5.05212)
               (73 . 0)
               (72 . 2)
               (10 0.109152 -0.0360516 0.0)
               (40 . 0.0180067)
               (50 . 5.10924)
               (51 . 6.17998)
               (73 . 0)
               (72 . 2)
               (10 0.133606 -0.0335177 0.0)
               (40 . 0.00657812)
               (50 . 3.2448)
               (51 . 5.70231)
               (73 . 1)
               (72 . 2)
               (10 0.195647 -0.0744667 0.0)
               (40 . 0.0677573)
               (50 . 3.72523)
               (51 . 4.87956)
               (73 . 0)
               (72 . 2)
               (10 0.207523 2.7809e-005 0.0)
               (40 . 0.00770464)
               (50 . 4.63426)
               (51 . 7.9321)
               (73 . 1)
               (72 . 2)
               (10 0.195647 0.0745225 0.0)
               (40 . 0.0677573)
               (50 . 7.68681)
               (51 . 8.84115)
               (73 . 0)
               (72 . 2)
               (10 0.133606 0.0335735 0.0)
               (40 . 0.00657812)
               (50 . 0.580874)
               (51 . 3.03838)
               (73 . 1)
               (72 . 2)
               (10 0.109152 0.0361075 0.0)
               (40 . 0.0180067)
               (50 . 6.3864)
               (51 . 7.45714)
               (73 . 0)
               (72 . 2)
               (10 0.0651676 0.163639 0.0)
               (40 . 0.152878)
               (50 . 7.51425)
               (51 . 8.24979)
               (73 . 0)
               (72 . 2)
               (10 -0.00189301 2.7809e-005 0.0)
               (40 . 0.0239706)
               (50 . 1.22517)
               (51 . 5.058)
               (73 . 1)
               (97 . 0)
               (75 . 0)
               (76 . 1)
               (98 . 1)
               (10 -0.000429771 2.7809e-005 0.0)
               (450 . 0)
               (451 . 0)
               (460 . 0.0)
               (461 . 0.0)
               (452 . 1)
               (462 . 1.0)
               (453 . 2)
               (463 . 0.0)
               (63 . 5)
               (421 . 255)
               (463 . 1.0)
               (63 . 7)
               (421 . 16777215)
               (470 . "LINEAR")
              )
              ((0 . "HATCH")
               (100 . "AcDbEntity")
               (67 . 0)
               (410 . "Model")
               (8 . "0")
               (62 . 5)
               (6 . "Continuous")
               (100 . "AcDbHatch")
               (10 0.0 0.0 0.0)
               (210 0.0 0.0 1.0)
               (2 . "SOLID")
               (70 . 1)
               (71 . 0)
               (91 . 78)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 -0.0319336 0.308127 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 -0.063981 0.302482 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 -0.0960067 0.296007 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 -0.128466 0.28858 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 -0.233155 0.25832 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 -0.272194 0.244338 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 -0.314194 0.227426 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 -0.408585 0.180901 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 -0.460651 0.148592 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 -0.513967 0.108099 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 -0.564374 0.0581065 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 -0.604671 -0.0012737 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 -0.625549 -0.0670826 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 -0.619589 -0.133094 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 -0.586318 -0.191969 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 -0.532917 -0.238803 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 -0.404448 -0.295547 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 -0.342382 -0.310081 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 -0.28528 -0.318758 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 -0.23346 -0.323407 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 -0.143655 -0.325239 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 -0.104206 -0.323785 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 -0.0674309 -0.321257 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 -0.0326903 -0.317862 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.000584966 -0.313703 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.0329092 -0.308816 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.0648215 -0.30348 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.0965854 -0.296729 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.128838 -0.289334 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.196485 -0.270907 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.232872 -0.259256 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.271679 -0.245369 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.313446 -0.22858 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.407399 -0.1824 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.45931 -0.150322 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.512567 -0.110099 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.563092 -0.0603945 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.603748 -0.0012737 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.625254 0.0643825 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.620101 0.130409 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.587631 0.189469 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.534852 0.236598 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.406937 0.293959 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.344885 0.308736 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.287703 0.317602 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.235746 0.3224 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.145592 0.324419 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.105954 0.323021 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.0689866 0.320533 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.0340541 0.317162 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.000584966 0.313014 0.0)
               (40 . 0.00654207)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 1)
               (93 . 16)
               (72 . 2)
               (10 0.134479 0.590117 0.0)
               (40 . 0.0284855)
               (50 . 4.84708)
               (51 . 7.85398)
               (73 . 1)
               (72 . 2)
               (10 0.191439 -0.507702 0.0)
               (40 . 1.12774)
               (50 . 1.62133)
               (51 . 1.92975)
               (73 . 1)
               (72 . 2)
               (10 0.16043 -0.470966 0.0)
               (40 . 1.08258)
               (50 . 1.91486)
               (51 . 2.62636)
               (73 . 1)
               (72 . 2)
               (10 -0.511346 -0.0807316 0.0)
               (40 . 0.305848)
               (50 . 2.65437)
               (51 . 3.99598)
               (73 . 1)
               (72 . 2)
               (10 -0.122991 0.313097 0.0)
               (40 . 0.858571)
               (50 . 3.95606)
               (51 . 4.62958)
               (73 . 1)
               (72 . 2)
               (10 -0.0998011 1.08783 0.0)
               (40 . 1.63308)
               (50 . 4.65467)
               (51 . 5.35671)
               (73 . 1)
               (72 . 2)
               (10 0.690719 0.0160323 0.0)
               (40 . 0.301568)
               (50 . 5.39572)
               (51 . 6.76299)
               (73 . 1)
               (72 . 2)
               (10 0.305646 -0.242308 0.0)
               (40 . 0.764143)
               (50 . 0.547146)
               (51 . 1.35372)
               (73 . 1)
               (72 . 2)
               (10 0.455647 0.469224 0.0)
               (40 . 0.0376163)
               (50 . 1.17294)
               (51 . 4.50877)
               (73 . 1)
               (72 . 2)
               (10 0.37606 -0.147949 0.0)
               (40 . 0.584781)
               (50 . 4.83579)
               (51 . 5.89286)
               (73 . 0)
               (72 . 2)
               (10 0.703679 0.00659424 0.0)
               (40 . 0.223748)
               (50 . 5.97457)
               (51 . 7.17655)
               (73 . 0)
               (72 . 2)
               (10 -0.0718577 0.996593 0.0)
               (40 . 1.48133)
               (50 . 0.904327)
               (51 . 1.32013)
               (73 . 0)
               (72 . 2)
               (10 -0.0144553 0.696844 0.0)
               (40 . 1.17686)
               (50 . 1.3042)
               (51 . 2.12408)
               (73 . 0)
               (72 . 2)
               (10 -0.483413 -0.0894849 0.0)
               (40 . 0.261805)
               (50 . 2.17839)
               (51 . 3.65521)
               (73 . 0)
               (72 . 2)
               (10 0.0360669 -0.331511 0.0)
               (40 . 0.834356)
               (50 . 3.60192)
               (51 . 4.03769)
               (73 . 0)
               (72 . 2)
               (10 0.257714 -0.670351 0.0)
               (40 . 1.23801)
               (50 . 4.06885)
               (51 . 4.61579)
               (73 . 0)
               (97 . 0)
               (92 . 17)
               (93 . 16)
               (72 . 2)
               (10 0.0599237 0.468495 0.0)
               (40 . 0.0230732)
               (50 . 4.8897)
               (51 . 8.12592)
               (73 . 1)
               (72 . 2)
               (10 0.226423 -0.696846 0.0)
               (40 . 1.20006)
               (50 . 1.7152)
               (51 . 1.9286)
               (73 . 1)
               (72 . 2)
               (10 0.0891973 -0.406721 0.0)
               (40 . 0.880659)
               (50 . 1.89802)
               (51 . 2.62559)
               (73 . 1)
               (72 . 2)
               (10 -0.465554 -0.0870076 0.0)
               (40 . 0.24043)
               (50 . 2.64376)
               (51 . 4.19471)
               (73 . 1)
               (72 . 2)
               (10 -0.0932699 0.642613 0.0)
               (40 . 1.05934)
               (50 . 4.23017)
               (51 . 4.84688)
               (73 . 1)
               (72 . 2)
               (10 -0.0379196 0.530564 0.0)
               (40 . 0.941727)
               (50 . 4.80457)
               (51 . 5.58801)
               (73 . 1)
               (72 . 2)
               (10 0.471926 0.0701068 0.0)
               (40 . 0.256694)
               (50 . 5.69354)
               (51 . 6.75386)
               (73 . 1)
               (72 . 2)
               (10 0.347574 0.00981512 0.0)
               (40 . 0.394875)
               (50 . 0.463953)
               (51 . 1.09735)
               (73 . 1)
               (72 . 2)
               (10 0.515814 0.333164 0.0)
               (40 . 0.0304693)
               (50 . 1.17294)
               (51 . 4.50877)
               (73 . 1)
               (72 . 2)
               (10 0.382085 0.0338027 0.0)
               (40 . 0.298186)
               (50 . 5.15446)
               (51 . 5.98586)
               (73 . 0)
               (72 . 2)
               (10 0.506424 0.0688856 0.0)
               (40 . 0.16905)
               (50 . 5.96879)
               (51 . 6.92144)
               (73 . 0)
               (72 . 2)
               (10 -0.142008 0.72935 0.0)
               (40 . 1.09287)
               (50 . 0.770502)
               (51 . 1.29216)
               (73 . 0)
               (72 . 2)
               (10 -0.122663 0.713016 0.0)
               (40 . 1.07194)
               (50 . 1.30532)
               (51 . 1.95765)
               (73 . 0)
               (72 . 2)
               (10 -0.431402 -0.0825089 0.0)
               (40 . 0.219188)
               (50 . 2.02252)
               (51 . 3.60827)
               (73 . 0)
               (72 . 2)
               (10 -0.0780073 -0.266166 0.0)
               (40 . 0.617445)
               (50 . 3.6164)
               (51 . 4.09261)
               (73 . 0)
               (72 . 2)
               (10 0.276614 -0.766016 0.0)
               (40 . 1.23031)
               (50 . 4.09397)
               (51 . 4.5387)
               (73 . 0)
               (97 . 0)
               (92 . 1)
               (93 . 6)
               (72 . 2)
               (10 -0.325418 0.750579 0.0)
               (40 . 0.26058)
               (50 . 0.191335)
               (51 . 2.11203)
               (73 . 1)
               (72 . 2)
               (10 -0.275125 0.667675 0.0)
               (40 . 0.357544)
               (50 . 2.11313)
               (51 . 3.44395)
               (73 . 1)
               (72 . 2)
               (10 -0.605569 0.563785 0.0)
               (40 . 0.0111823)
               (50 . 3.37407)
               (51 . 6.58736)
               (73 . 1)
               (72 . 2)
               (10 -0.329319 0.652825 0.0)
               (40 . 0.279063)
               (50 . 2.82948)
               (51 . 4.93912)
               (73 . 0)
               (72 . 2)
               (10 -0.329319 0.652825 0.0)
               (40 . 0.279063)
               (50 . 4.93912)
               (51 . 5.75757)
               (73 . 0)
               (72 . 2)
               (10 -0.0793004 0.79785 0.0)
               (40 . 0.00997217)
               (50 . 3.66721)
               (51 . 6.51426)
               (73 . 1)
               (97 . 0)
               (92 . 1)
               (93 . 9)
               (72 . 2)
               (10 -0.445842 1.01106 0.0)
               (40 . 0.013396)
               (50 . 2.93064)
               (51 . 6.55359)
               (73 . 1)
               (72 . 2)
               (10 -0.279229 1.04859 0.0)
               (40 . 0.157409)
               (50 . 2.92419)
               (51 . 3.359)
               (73 . 0)
               (72 . 2)
               (10 -0.446569 1.08555 0.0)
               (40 . 0.0139635)
               (50 . 6.06578)
               (51 . 7.73337)
               (73 . 1)
               (72 . 2)
               (10 -0.474673 0.977013 0.0)
               (40 . 0.125971)
               (50 . 1.3321)
               (51 . 2.37572)
               (73 . 1)
               (72 . 2)
               (10 -0.500233 1.01647 0.0)
               (40 . 0.0809067)
               (50 . 2.50867)
               (51 . 3.62218)
               (73 . 1)
               (72 . 2)
               (10 -0.561971 0.985786 0.0)
               (40 . 0.0120493)
               (50 . 3.73255)
               (51 . 6.61228)
               (73 . 1)
               (72 . 2)
               (10 -0.499258 1.00895 0.0)
               (40 . 0.0548082)
               (50 . 2.78235)
               (51 . 3.6945)
               (73 . 0)
               (72 . 2)
               (10 -0.50215 1.00413 0.0)
               (40 . 0.055166)
               (50 . 3.79658)
               (51 . 5.22673)
               (73 . 0)
               (72 . 2)
               (10 -0.497869 1.02005 0.0)
               (40 . 0.039416)
               (50 . 5.33105)
               (51 . 6.44076)
               (73 . 0)
               (97 . 0)
               (92 . 1)
               (93 . 9)
               (72 . 2)
               (10 -0.479329 1.12416 0.0)
               (40 . 0.681859)
               (50 . 0.206863)
               (51 . 0.621541)
               (73 . 0)
               (72 . 2)
               (10 0.0920867 0.714887 0.0)
               (40 . 0.021005)
               (50 . 2.52005)
               (51 . 5.33393)
               (73 . 1)
               (72 . 2)
               (10 -0.0675726 0.9378 0.0)
               (40 . 0.295198)
               (50 . 5.33393)
               (51 . 6.39271)
               (73 . 1)
               (72 . 2)
               (10 0.255174 0.974874 0.0)
               (40 . 0.0297086)
               (50 . 2.9791)
               (51 . 4.74002)
               (73 . 0)
               (72 . 2)
               (10 0.253252 1.11459 0.0)
               (40 . 0.110057)
               (50 . 4.73731)
               (51 . 7.4599)
               (73 . 1)
               (72 . 2)
               (10 0.236921 1.07532 0.0)
               (40 . 0.152594)
               (50 . 1.17672)
               (51 . 2.53347)
               (73 . 1)
               (72 . 2)
               (10 0.167805 1.12343 0.0)
               (40 . 0.0683802)
               (50 . 2.53347)
               (51 . 3.74971)
               (73 . 1)
               (72 . 2)
               (10 0.264097 1.19046 0.0)
               (40 . 0.185708)
               (50 . 3.74971)
               (51 . 4.18703)
               (73 . 1)
               (72 . 2)
               (10 0.149927 0.995939 0.0)
               (40 . 0.0398626)
               (50 . 5.26822)
               (51 . 6.58448)
               (73 . 0)
               (97 . 0)
               (92 . 16)
               (93 . 4)
               (72 . 2)
               (10 0.244074 1.11476 0.0)
               (40 . 0.0505225)
               (50 . 4.30698)
               (51 . 7.99271)
               (73 . 1)
               (72 . 2)
               (10 0.28033 0.855106 0.0)
               (40 . 0.312694)
               (50 . 1.70953)
               (51 . 1.91774)
               (73 . 1)
               (72 . 2)
               (10 0.183126 1.12395 0.0)
               (40 . 0.0268221)
               (50 . 1.91774)
               (51 . 4.11669)
               (73 . 1)
               (72 . 2)
               (10 0.482151 1.56509 0.0)
               (40 . 0.559764)
               (50 . 4.11669)
               (51 . 4.23337)
               (73 . 1)
               (97 . 0)
               (92 . 1)
               (93 . 9)
               (72 . 2)
               (10 0.825956 1.00917 0.0)
               (40 . 0.0167135)
               (50 . 1.92043)
               (51 . 5.83581)
               (73 . 1)
               (72 . 2)
               (10 0.906522 0.966807 0.0)
               (40 . 0.0743214)
               (50 . 3.6339)
               (51 . 4.35459)
               (73 . 0)
               (72 . 2)
               (10 0.878864 1.05787 0.0)
               (40 . 0.0215144)
               (50 . 4.78814)
               (51 . 7.25444)
               (73 . 1)
               (72 . 2)
               (10 0.928041 1.1548 0.0)
               (40 . 0.0874017)
               (50 . 2.00837)
               (51 . 2.7818)
               (73 . 0)
               (72 . 2)
               (10 0.797405 1.07298 0.0)
               (40 . 0.0706435)
               (50 . 0.80761)
               (51 . 2.01626)
               (73 . 1)
               (72 . 2)
               (10 0.776594 1.11633 0.0)
               (40 . 0.0225614)
               (50 . 2.01176)
               (51 . 4.85239)
               (73 . 1)
               (72 . 2)
               (10 -0.962404 13.3415 0.0)
               (40 . 12.3708)
               (50 . 4.85369)
               (51 . 4.85658)
               (73 . 1)
               (72 . 2)
               (10 0.821813 1.06735 0.0)
               (40 . 0.032409)
               (50 . 4.50712)
               (51 . 6.71606)
               (73 . 0)
               (72 . 2)
               (10 0.726007 1.15704 0.0)
               (40 . 0.162322)
               (50 . 0.689668)
               (51 . 0.95148)
               (73 . 0)
               (97 . 0)
               (92 . 1)
               (93 . 6)
               (72 . 2)
               (10 0.584508 0.644307 0.0)
               (40 . 0.382663)
               (50 . 3.72465)
               (51 . 5.28912)
               (73 . 0)
               (72 . 2)
               (10 0.576464 0.637828 0.0)
               (40 . 0.392492)
               (50 . 5.2973)
               (51 . 6.63313)
               (73 . 0)
               (72 . 2)
               (10 0.925472 0.509658 0.0)
               (40 . 0.0207079)
               (50 . 0.313974)
               (51 . 3.39374)
               (73 . 0)
               (72 . 2)
               (10 0.57126 0.612092 0.0)
               (40 . 0.348027)
               (50 . 5.99993)
               (51 . 7.91623)
               (73 . 1)
               (72 . 2)
               (10 0.600641 0.539302 0.0)
               (40 . 0.423233)
               (50 . 1.69166)
               (51 . 2.37246)
               (73 . 1)
               (72 . 2)
               (10 0.28199 0.846076 0.0)
               (40 . 0.0191258)
               (50 . 0.706087)
               (51 . 3.62655)
               (73 . 0)
               (97 . 0)
               (92 . 1)
               (93 . 4)
               (72 . 2)
               (10 0.82067 0.520309 0.0)
               (40 . 0.0326059)
               (50 . 4.48394)
               (51 . 7.3509)
               (73 . 1)
               (72 . 2)
               (10 3.06987 6.73496 0.0)
               (40 . 6.57692)
               (50 . 1.91728)
               (51 . 2.00851)
               (73 . 0)
               (72 . 2)
               (10 0.273299 0.756743 0.0)
               (40 . 0.0230789)
               (50 . 1.17858)
               (51 . 4.1431)
               (73 . 1)
               (72 . 2)
               (10 1.6073 2.98964 0.0)
               (40 . 2.62411)
               (50 . 4.17359)
               (51 . 4.40499)
               (73 . 1)
               (97 . 0)
               (92 . 1)
               (93 . 4)
               (72 . 2)
               (10 -0.646015 0.421765 0.0)
               (40 . 0.0326059)
               (50 . 1.20856)
               (51 . 4.07552)
               (73 . 0)
               (72 . 2)
               (10 -1.19832 2.22657 0.0)
               (40 . 1.85673)
               (50 . 5.0035)
               (51 . 5.38817)
               (73 . 1)
               (72 . 2)
               (10 -0.0210388 0.761188 0.0)
               (40 . 0.0230789)
               (50 . 3.95366)
               (51 . 7.15091)
               (73 . 0)
               (72 . 2)
               (10 -1.30437 2.32255 0.0)
               (40 . 2.04417)
               (50 . 0.882657)
               (51 . 1.23691)
               (73 . 0)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 -0.3596 0.206679 0.0)
               (40 . 0.0218069)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 -0.161816 0.280014 0.0)
               (40 . 0.0218069)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.188608 0.324393 0.0)
               (40 . 0.0218069)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.47186 0.270818 0.0)
               (40 . 0.0218069)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.358623 -0.207988 0.0)
               (40 . 0.0218069)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 0.161978 -0.280814 0.0)
               (40 . 0.0218069)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 -0.186488 -0.325292 0.0)
               (40 . 0.0218069)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 1)
               (72 . 2)
               (10 -0.469542 -0.2727 0.0)
               (40 . 0.0218069)
               (50 . 0.0)
               (51 . 6.28319)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 14)
               (72 . 2)
               (10 0.53121 0.0252478 0.0)
               (40 . 0.00661622)
               (50 . 0.634305)
               (51 . 3.66594)
               (73 . 0)
               (72 . 2)
               (10 0.580149 -0.0250934 0.0)
               (40 . 0.0765959)
               (50 . 3.91765)
               (51 . 4.53215)
               (73 . 0)
               (72 . 2)
               (10 0.569723 0.0374837 0.0)
               (40 . 0.0132007)
               (50 . 4.45919)
               (51 . 7.01603)
               (73 . 0)
               (72 . 2)
               (10 0.58675 0.0170136 0.0)
               (40 . 0.0136922)
               (50 . 2.12574)
               (51 . 4.15744)
               (73 . 1)
               (72 . 2)
               (10 0.566849 -0.0153784 0.0)
               (40 . 0.0243252)
               (50 . 5.26108)
               (51 . 6.79516)
               (73 . 0)
               (72 . 2)
               (10 0.556744 -0.00955596 0.0)
               (40 . 0.0359866)
               (50 . 0.515434)
               (51 . 1.89773)
               (73 . 0)
               (72 . 2)
               (10 0.54753 -0.0368626 0.0)
               (40 . 0.00716813)
               (50 . 1.90396)
               (51 . 4.7882)
               (73 . 0)
               (72 . 2)
               (10 0.551178 0.0162787 0.0)
               (40 . 0.0460979)
               (50 . 4.64497)
               (51 . 5.25954)
               (73 . 1)
               (72 . 2)
               (10 0.569586 -0.01407 0.0)
               (40 . 0.0106054)
               (50 . 5.26603)
               (51 . 7.42122)
               (73 . 1)
               (72 . 2)
               (10 0.562274 -0.0269819 0.0)
               (40 . 0.0254247)
               (50 . 1.08995)
               (51 . 2.02295)
               (73 . 1)
               (72 . 2)
               (10 0.547225 0.00126027 0.0)
               (40 . 0.00666354)
               (50 . 0.938164)
               (51 . 4.53162)
               (73 . 0)
               (72 . 2)
               (10 0.541897 0.0311771 0.0)
               (40 . 0.0237229)
               (50 . 4.88736)
               (51 . 6.09452)
               (73 . 1)
               (72 . 2)
               (10 0.557598 0.0283858 0.0)
               (40 . 0.00778184)
               (50 . 6.06826)
               (51 . 8.06535)
               (73 . 1)
               (72 . 2)
               (10 0.561393 0.00860919 0.0)
               (40 . 0.0279181)
               (50 . 1.76648)
               (51 . 2.66864)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 10)
               (72 . 2)
               (10 -0.537774 -0.0471969 0.0)
               (40 . 0.00963333)
               (50 . 2.94647)
               (51 . 6.4371)
               (73 . 1)
               (72 . 2)
               (10 -0.276889 -0.00672325 0.0)
               (40 . 0.254371)
               (50 . 2.98768)
               (51 . 3.29551)
               (73 . 0)
               (72 . 2)
               (10 -0.540526 0.0341778 0.0)
               (40 . 0.0124184)
               (50 . 6.12927)
               (51 . 8.0079)
               (73 . 1)
               (72 . 2)
               (10 -0.529005 -0.0400835 0.0)
               (40 . 0.0875674)
               (50 . 1.72471)
               (51 . 2.34222)
               (73 . 1)
               (72 . 2)
               (10 -0.573581 0.00575685 0.0)
               (40 . 0.0236265)
               (50 . 2.34222)
               (51 . 4.20004)
               (73 . 1)
               (72 . 2)
               (10 -0.568469 0.0148482 0.0)
               (40 . 0.0340563)
               (50 . 4.20004)
               (51 . 4.87755)
               (73 . 1)
               (72 . 2)
               (10 -0.561766 -0.0253638 0.0)
               (40 . 0.00671119)
               (50 . 4.54722)
               (51 . 6.44835)
               (73 . 0)
               (72 . 2)
               (10 -0.522332 -0.0319386 0.0)
               (40 . 0.0332669)
               (50 . 2.97643)
               (51 . 3.30676)
               (73 . 1)
               (72 . 2)
               (10 -0.548762 -0.0363436 0.0)
               (40 . 0.00647186)
               (50 . 3.30676)
               (51 . 4.54722)
               (73 . 1)
               (72 . 2)
               (10 -0.550348 -0.0458493 0.0)
               (40 . 0.00316597)
               (50 . 4.87755)
               (51 . 6.11802)
               (73 . 0)
               (97 . 0)
               (92 . 0)
               (93 . 5)
               (72 . 2)
               (10 -0.555084 0.0189195 0.0)
               (40 . 0.00883139)
               (50 . 3.56384e-015)
               (51 . 1.94435)
               (73 . 1)
               (72 . 2)
               (10 -0.525675 -0.045014 0.0)
               (40 . 0.0791911)
               (50 . 1.9955)
               (51 . 2.41636)
               (73 . 1)
               (72 . 2)
               (10 -0.577478 0.0033799 0.0)
               (40 . 0.00852962)
               (50 . 2.63545)
               (51 . 4.56865)
               (73 . 1)
               (72 . 2)
               (10 -0.571738 0.0249992 0.0)
               (40 . 0.0308585)
               (50 . 4.48483)
               (51 . 5.23623)
               (73 . 1)
               (72 . 2)
               (10 -0.568245 0.0168609 0.0)
               (40 . 0.0220882)
               (50 . 5.28363)
               (51 . 6.3765)
               (73 . 1)
               (97 . 0)
               (92 . 0)
               (93 . 5)
               (72 . 2)
               (10 -0.00528327 -0.285666 0.0)
               (40 . 0.00785012)
               (50 . 3.14159)
               (51 . 5.08594)
               (73 . 1)
               (72 . 2)
               (10 -0.0314233 -0.228837 0.0)
               (40 . 0.0703921)
               (50 . 5.1371)
               (51 . 5.55795)
               (73 . 1)
               (72 . 2)
               (10 0.0146221 -0.271854 0.0)
               (40 . 0.00758189)
               (50 . 5.77705)
               (51 . 7.71025)
               (73 . 1)
               (72 . 2)
               (10 0.00951926 -0.291072 0.0)
               (40 . 0.0274298)
               (50 . 1.34324)
               (51 . 2.09464)
               (73 . 1)
               (72 . 2)
               (10 0.00641396 -0.283837 0.0)
               (40 . 0.019634)
               (50 . 2.14204)
               (51 . 3.2349)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 10)
               (72 . 2)
               (10 -0.00664184 -0.234961 0.0)
               (40 . 0.0172094)
               (50 . 1.45178)
               (51 . 2.98504)
               (73 . 1)
               (72 . 2)
               (10 2.21039 -0.453089 0.0)
               (40 . 2.24493)
               (50 . 3.04307)
               (51 . 3.07225)
               (73 . 1)
               (72 . 2)
               (10 -0.0182235 -0.29923 0.0)
               (40 . 0.0110386)
               (50 . 2.98768)
               (51 . 4.8663)
               (73 . 1)
               (72 . 2)
               (10 -0.0284641 -0.233221 0.0)
               (40 . 0.0778376)
               (50 . 4.8663)
               (51 . 5.48382)
               (73 . 1)
               (72 . 2)
               (10 0.0111591 -0.273967 0.0)
               (40 . 0.0210014)
               (50 . 5.48382)
               (51 . 7.34163)
               (73 . 1)
               (72 . 2)
               (10 0.00661458 -0.282046 0.0)
               (40 . 0.0302721)
               (50 . 1.05845)
               (51 . 1.73596)
               (73 . 1)
               (72 . 2)
               (10 0.000853191 -0.245644 0.0)
               (40 . 0.00658994)
               (50 . 1.45162)
               (51 . 3.98218)
               (73 . 0)
               (72 . 2)
               (10 0.0135819 -0.259871 0.0)
               (40 . 0.02568)
               (50 . 3.98246)
               (51 . 5.28423)
               (73 . 0)
               (72 . 2)
               (10 0.0291345 -0.233894 0.0)
               (40 . 0.00468417)
               (50 . 4.35113)
               (51 . 7.32836)
               (73 . 1)
               (72 . 2)
               (10 -0.0165226 -0.314187 0.0)
               (40 . 0.0970504)
               (50 . 1.05335)
               (51 . 1.44764)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 7)
               (72 . 2)
               (10 -0.0206964 0.227575 0.0)
               (40 . 0.00778448)
               (50 . 3.0731)
               (51 . 6.39927)
               (73 . 1)
               (72 . 2)
               (10 0.156637 0.248252 0.0)
               (40 . 0.170752)
               (50 . 3.02551)
               (51 . 3.3458)
               (73 . 0)
               (72 . 2)
               (10 -0.0229579 0.285446 0.0)
               (40 . 0.0126542)
               (50 . 6.07898)
               (51 . 9.27726)
               (73 . 1)
               (72 . 2)
               (10 0.040232 0.276056 0.0)
               (40 . 0.076537)
               (50 . 2.99408)
               (51 . 3.28911)
               (73 . 1)
               (72 . 2)
               (10 -0.0288676 0.265789 0.0)
               (40 . 0.00668024)
               (50 . 3.28911)
               (51 . 4.38664)
               (73 . 1)
               (72 . 2)
               (10 -0.0357062 0.251442 0.0)
               (40 . 0.00929465)
               (50 . 5.24285)
               (51 . 6.35792)
               (73 . 0)
               (72 . 2)
               (10 5.16117 -0.224648 0.0)
               (40 . 5.20934)
               (50 . 3.05021)
               (51 . 3.05457)
               (73 . 1)
               (97 . 0)
               (92 . 16)
               (93 . 13)
               (72 . 2)
               (10 -0.00015647 0.278719 0.0)
               (40 . 0.00715655)
               (50 . 2.30968)
               (51 . 5.54477)
               (73 . 1)
               (72 . 2)
               (10 -0.0608757 0.333986 0.0)
               (40 . 0.0892633)
               (50 . 5.54477)
               (51 . 5.73071)
               (73 . 1)
               (72 . 2)
               (10 0.0205361 0.283793 0.0)
               (40 . 0.00637926)
               (50 . 3.69407)
               (51 . 7.06219)
               (73 . 0)
               (72 . 2)
               (10 0.125229 0.18043 0.0)
               (40 . 0.140741)
               (50 . 2.36259)
               (51 . 2.65009)
               (73 . 1)
               (72 . 2)
               (10 0.0154813 0.237922 0.0)
               (40 . 0.0168874)
               (50 . 2.58434)
               (51 . 4.59886)
               (73 . 1)
               (72 . 2)
               (10 0.0239968 0.018298 0.0)
               (40 . 0.203113)
               (50 . 4.66102)
               (51 . 4.83462)
               (73 . 0)
               (72 . 2)
               (10 0.0464077 0.229886 0.0)
               (40 . 0.0102645)
               (50 . 4.94378)
               (51 . 7.73199)
               (73 . 1)
               (72 . 2)
               (10 0.0384438 0.200189 0.0)
               (40 . 0.0409346)
               (50 . 1.34379)
               (51 . 1.88146)
               (73 . 1)
               (72 . 2)
               (10 0.023951 0.243812 0.0)
               (40 . 0.00505144)
               (50 . 1.16781)
               (51 . 3.96537)
               (73 . 0)
               (72 . 2)
               (10 -0.134502 0.385263 0.0)
               (40 . 0.207376)
               (50 . 5.55673)
               (51 . 5.69868)
               (73 . 1)
               (72 . 2)
               (10 0.00172111 0.285415 0.0)
               (40 . 0.039513)
               (50 . 5.90528)
               (51 . 6.71483)
               (73 . 1)
               (72 . 2)
               (10 0.0249366 0.297209 0.0)
               (40 . 0.0135295)
               (50 . 0.357751)
               (51 . 2.36234)
               (73 . 1)
               (72 . 2)
               (10 0.208919 0.113328 0.0)
               (40 . 0.273648)
               (50 . 2.35677)
               (51 . 2.4681)
               (73 . 1)
               (97 . 0)
               (92 . 1)
               (93 . 9)
               (72 . 2)
               (10 -0.438042 -0.566951 0.0)
               (40 . 0.0445884)
               (50 . 3.9143)
               (51 . 7.25963)
               (73 . 1)
               (72 . 2)
               (10 -0.582515 -0.79358 0.0)
               (40 . 0.313337)
               (50 . 0.999457)
               (51 . 1.97811)
               (73 . 1)
               (72 . 2)
               (10 -0.516878 -0.922474 0.0)
               (40 . 0.457777)
               (50 . 1.99822)
               (51 . 2.60151)
               (73 . 1)
               (72 . 2)
               (10 -0.884994 -0.701982 0.0)
               (40 . 0.0286787)
               (50 . 2.59521)
               (51 . 4.72218)
               (73 . 1)
               (72 . 2)
               (10 -0.531901 -5.14894 0.0)
               (40 . 4.43234)
               (50 . 4.6327)
               (51 . 4.74779)
               (73 . 0)
               (72 . 2)
               (10 -0.374976 -0.683806 0.0)
               (40 . 0.0355651)
               (50 . 4.71086)
               (51 . 7.91724)
               (73 . 1)
               (72 . 2)
               (10 -0.825972 3.14746 0.0)
               (40 . 3.82221)
               (50 . 1.45312)
               (51 . 1.55832)
               (73 . 0)
               (72 . 2)
               (10 -0.779545 -0.647005 0.0)
               (40 . 0.0274719)
               (50 . 1.52556)
               (51 . 3.63551)
               (73 . 0)
               (72 . 2)
               (10 -0.624271 -0.732976 0.0)
               (40 . 0.204956)
               (50 . 3.64568)
               (51 . 5.56478)
               (73 . 0)
               (97 . 0)
               (92 . 1)
               (93 . 15)
               (72 . 2)
               (10 0.51038 -0.529018 0.0)
               (40 . 0.0285494)
               (50 . 5.96175)
               (51 . 9.77217)
               (73 . 1)
               (72 . 2)
               (10 0.188262 -0.595444 0.0)
               (40 . 0.300672)
               (50 . 6.09345)
               (51 . 6.47292)
               (73 . 0)
               (72 . 2)
               (10 0.520808 -0.665645 0.0)
               (40 . 0.0396397)
               (50 . 2.7942)
               (51 . 5.05978)
               (73 . 1)
               (72 . 2)
               (10 0.779636 -3.45221 0.0)
               (40 . 2.76021)
               (50 . 4.62339)
               (51 . 4.75002)
               (73 . 0)
               (72 . 2)
               (10 0.911634 -0.532091 0.0)
               (40 . 0.164285)
               (50 . 4.54019)
               (51 . 5.10978)
               (73 . 1)
               (72 . 2)
               (10 0.957738 -0.64203 0.0)
               (40 . 0.0450703)
               (50 . 5.11058)
               (51 . 6.85331)
               (73 . 1)
               (72 . 2)
               (10 0.69438 -0.804983 0.0)
               (40 . 0.354761)
               (50 . 0.556129)
               (51 . 1.37454)
               (73 . 1)
               (72 . 2)
               (10 0.66653 -0.909575 0.0)
               (40 . 0.462826)
               (50 . 1.35959)
               (51 . 1.794)
               (73 . 1)
               (72 . 2)
               (10 0.568988 -0.474385 0.0)
               (40 . 0.0168851)
               (50 . 1.86561)
               (51 . 4.71239)
               (73 . 1)
               (72 . 2)
               (10 0.633595 -1.04785 0.0)
               (40 . 0.560316)
               (50 . 4.59683)
               (51 . 5.02959)
               (73 . 0)
               (72 . 2)
               (10 0.743884 -0.702555 0.0)
               (40 . 0.197869)
               (50 . 5.04431)
               (51 . 5.693)
               (73 . 0)
               (72 . 2)
               (10 0.885273 -0.604874 0.0)
               (40 . 0.0261539)
               (50 . 5.78764)
               (51 . 7.97319)
               (73 . 0)
               (72 . 2)
               (10 0.790836 -1.47496 0.0)
               (40 . 0.849039)
               (50 . 1.46302)
               (51 . 1.82662)
               (73 . 1)
               (72 . 2)
               (10 0.564149 -0.618287 0.0)
               (40 . 0.0371989)
               (50 . 1.24682)
               (51 . 3.11578)
               (73 . 0)
               (72 . 2)
               (10 0.79298 -0.612377 0.0)
               (40 . 0.266105)
               (50 . 3.11578)
               (51 . 3.42472)
               (73 . 0)
               (97 . 0)
               (75 . 0)
               (76 . 1)
               (98 . 1)
               (10 -2.7809e-005 -0.000429771 0.0)
               (450 . 0)
               (451 . 0)
               (460 . 0.0)
               (461 . 0.0)
               (452 . 1)
               (462 . 1.0)
               (453 . 2)
               (463 . 0.0)
               (63 . 5)
               (421 . 255)
               (463 . 1.0)
               (63 . 7)
               (421 . 16777215)
               (470 . "LINEAR")
              )
             ) ;_  list
    ) ;_  mapcar
    '("cl_1" "cl_2" "cl_3" "cl_4")
  ) ;_  mapcar
  (setq        a1 (getpoint "\nPick point:   ")
        a2 (distance a1 (getpoint a1 "\nSecond point:  "))
        b  (mapcar
             (function
               (lambda (x)
                 (vla-insertblock (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
                                  (vlax-3d-point a1)
                                  x
                                  a2
                                  a2
                                  a2
                                  0.
                 ) ;_  vla-insertblock
               ) ;_  lambda
             ) ;_  function
             '("cl_1" "cl_2" "cl_3" "cl_4")
           ) ;_  mapcar
  ) ;_  setq

  (repeat 300
    (vl-cmdf "_.Delay" 200)
    (vla-put-Rotation (caddr b)
                      (- (/ pi 2.)
                         (* (/ pi 6.)
                            (+ (atoi (menucmd "M=$(edtime,$(getvar,date),H)"))
                               (/ (atoi (menucmd "M=$(edtime,$(getvar,date),MM)")) 60.)
                            ) ;_  +
                         ) ;_  *
                      ) ;_  -
    ) ;_  vla-put-Rotation
    (vla-put-Rotation (cadr b)
                      (- (/ pi 2.) (* (/ pi 30.) (atoi (menucmd "M=$(edtime,$(getvar,date),MM)"))))
    ) ;_  vla-put-Rotation
    (vla-put-Rotation
      (car b)
      (- (/ pi 2.) (* (/ pi 30.) (atof (menucmd "M=$(edtime,$(getvar,date),SS.MSEC)"))))
    ) ;_  vla-put-Rotation
  ) ;_  repeat

;;;  (mapcar (function (lambda (x) (vla-delete x) (vlax-release-object x))) b)
;;;  (vla-purgeall (vla-get-activedocument (vlax-get-acad-object)))
  (*error* nil)
) ;_  defun
(princ "\n ***   Type CLO for start of the command ***")

;|玍isual LISP?Format Options?
(100 2 2 2 T " " 100 100 0 0 1 T T T T)
;*** DO NOT add text below the comment! ***|;

[/php]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

eachy

已领礼包: 593个

财富等级: 财运亨通
发表于 2006-5-13 10:05:31 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
局部变量还是要收集好，不管写简单还是复杂的程序，良好的习惯很重要。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

littlecong
发表于 2006-5-13 10:36:24 | 显示全部楼层
theswamp是哪里？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

snoopychen
 楼主| 发表于 2006-5-13 11:27:50 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
谢谢版主提醒,以后不管临时lisp,简单或者复杂,都得认真对待局部变量
the swamp 是www.theswamp.org,里面的Mark Thomas,CAB,se7en,daron等都挺厉害的
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

125740513
发表于 2006-10-8 21:46:09 | 显示全部楼层
学习中，谢谢楼主
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-18 06:14 , Processed in 0.218066 second(s), 42 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表