有哪位高手愿意帮我这小女生一个忙？很急

kgd4510

最近领导给了我一个繁重的任务,实在受不了才想到上网求助。任务如下：                                                                       


有一个文件，大概有上万个点，点是有坐标的。与上万个数字，点与数字是对应的。格式如下："．12.356"，但是，这些数字（12.356等）全都统一旋转了30度，现在要求保证这个点位的坐标不变，以这个点为基点，把这些数字（即12.356等）全部都旋转为水平即0度。请问哪位高手可以帮我编写一个有这个功能的lisp程序。小女子在此不胜感激！


谢谢大家。

ljpnb

传个文件上来，这样会更准确些！

ZZXXQQ

试一下下面的程序是否能够满足楼主的要求。

1. (DEFUN C:TXTA_0 ()
2.   (IF (SETQ SS (SSGET "X" '((0 . "TEXT")))) (PROGN
3.    (SETQ SL (SSLENGTH SS) I 0)
4.    (REPEAT SL
5.      (SETQ ENT (ENTGET (SSNAME SS I)) I (1+ I)
6.                  ENT (SUBST (CONS 50 0.0) (ASSOC 50 ENT) ENT))
7.      (ENTMOD ENT)
8.    )
9.   ))
10.   (PRINC)
11. )

复制代码

kgd4510

谢谢，问题已经解决啦。头上的终于落下啦。读多点书就是不一样。呵呵。谢谢。

kgd4510

不过细看了一下，还有点问题，能否把旋转后的字与那个点对处于同一水平线上呢？

ljpnb

所以我叫你先传个图上来！