再提钢筋对齐

sunshinejwt

原来的在我们论坛发布了一个提问，当时有论坛同仁给写了一个，现在想用简单LISP格式的，麻烦论坛同仁给解决一下。
原来请人写了一个，但是现在运行出问题了。也不知道怎么回事，在家里的电脑上用的时候可以，到公司电脑上就不能对齐钢筋了。
请用另外的方法做一个。
(defun c:gja ()
  (setvar "cmdecho" 0)
        (setq old-osmode (getvar "osmode"))
        (setvar "osmode" 0)
  (while(= (setq endate(car(entsel "选择对齐的基准钢筋："))) nil))
  (setq datelst(entget endate))
  (setq jptlst(get10date datelst))
  (setq ang(angle(car jptlst)(car (reverse jptlst))))
  (setq pta(car jptlst))
  (while(= 1 1)
    (print "选择需要对齐的钢筋（包括文字）：")
    (setq ass(ssget))
    (setq enss(mapcar 'cadr (cdr(reverse(ssnamex ass)))))
    (setq n 0)
    (repeat (length enss)
      (setq en(nth n enss))
      (if(equal "LWPOLYLINE" (cdr(assoc 0 (entget en))))
        (setq qptlst(get10date (entget en)))
                        )
      (setq n(1+ n))
                )
    (if(or(equal ang 0 0.001)(equal ang (* 1 pi) 0.001))
      (progn
        (command "_.move" ass "" (car qptlst) (list(car(car qptlst))(cadr(car jptlst))))
                        )
      (progn
        (command "_.move" ass "" (car qptlst) (list(car(car jptlst))(cadr(car qptlst))))
                        )
                );if结束
        )
  (setvar "osmode" old-osmode)
  (prin1)
)
(defun get10date( datelst / ptlst x )
  (setq ptlst '())
  (mapcar '(lambda(x)
                                                 (if(= 10 (car x))(setq ptlst(cons (cdr x) ptlst)))
                                         )
                datelst
        )
  (reverse ptlst)
)

(defun *error* (msg)
  (setvar "osmode" old-osmode)
)

sunshinejwt

该怎么操作才能去掉附件下载需要积分的？让人解决问题附件还收费就太不好了。请管理员给取消了吧。或者告诉我方法。在别的论坛上也可以下载附件，不收费。http://bbs.mjtd.com/thread-178223-1-1.html

ray7891

看着挺不错的。