[求助]：请高手帮我改改

wbsab

;;;;线反向
(defun massoc (key alist / x nlist)
  (foreach x alist
    (if (eq key (car x))
      (setq nlist (cons (cdr x) nlist))
    )
  )
  (reverse nlist)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;反向
(defun c:fx( / fx_1 fx_3 n fx_4 fx_5 fx_6 fx_7 fx_8 fx_9 fx_10)
  (setvar "cmdecho" 0)
  (setq fx_10(getvar "osmode"))
  (setq fx_1(ssget))
  (setq n 0)
  (setvar "osmode" 0)
  (while (> (sslength fx_1) n)
      (setq fx_3 (ssname fx_1 n ))
               (setq rendata (entget fx_3))
               
               (setq fx_4(cdr(assoc 0 rendata)))
                 (if (= fx_4 "LWPOLYLINE")
                   (progn
                   (setq fx_5(massoc 10 rendata))
                   (setq fx_7(list (cdr(assoc -1 rendata)) (car fx_5)))
                  (setq fx_5 (reverse fx_5))
                    (setq fx_6 (car fx_5))
                    (command ".pline" fx_6)
                    (foreach X fx_5
                     (command X)
                       );foreach
                    (command "")
                   (setq fx_8(entlast))
                  ;( dd_f fx_7 6 "未加固陡坎")
                   (command ".MATCHPROP" fx_7 (list fx_8 (car fx_5))"")
                   (setq fx_9(cdr (assoc 40 rendata)))
                   (command ".pedit" (entlast) "w" fx_9 "")
                   (command ".erase" fx_3 "")
                   );progn
                   );if
                    (setq n(+ n 1))
                )
  (setvar "osmode" fx_10)
  (princ)
  )
;;;我这也可以用，不过我希望的是不用matchprop达到和原线一样的层、线型比例、线宽、有不有好点的办法，请赐教！

Underway

check here:
http://discussion.autodesk.com/thread.jspa?messageID=1187389
Reverse a Pline

P.M.F.

用entmake来画pline就可以了

wbsab

最初由 P.M.F. 发布
[B]用entmake来画pline就可以了 [/B]

呵呵，我就是不会用ENTMAKE才问的
谢谢二楼的朋友，我慢慢研究先！