[LISP程序]：请版主帮忙看看,此线形反向程序该怎么处理?

gcb998

**线形反向***
(defun c:fx()
　　　　(setq ss(ssget) mun 0)
(repeat (sslength ss)
　　　　(setq entl-y (ssname ss mun))
　　　　(command "pedit" entl-y "d" "")
　　　　(setq entl(entget entl-y))
　　　 (if (= "POLYLINE" (cdr(assoc 0 entl))) (command "pedit" entl-y

"lt" "on" "x"))
　　　 (if (= 10 (car (nth 13 entl)))　(setq nn 13))
　　　 (if (= 10 (car (nth 12 entl)))　(setq nn 12))
　　　 (setq lt-name(cdr(assoc 6 entl)) la-name (cdr (assoc 8 entl)))　　
　　　　(setq W_list '())
　　　　(setq elem (cdr (nth nn entl)))
　　　　(setq w_list (append w_list (list elem)))　
　　　(while (not (null elem))　　　　　　　　　
　　(setq nn(+ nn 4))
　　(setq elem (cdr (nth nn entl)))　
　　　 (if (= (car (nth nn entl)) 10)
　　　　(setq w_list (append w_list (list elem)))　;构建实体坐标表　　
　　　 )
　　　)
　　　　(setq w_list (reverse w_list))
　　　　(s
t1 (car W_list))
　　　　(command "pline" pt1)
　　　(while w_list
　　　　(setq w_list(cdr w_list))
　　　　(setq pt (car w_list))
　　　　(command pt)
　　　)
　　　　(command "")
　　　　(command "chprop" (entlast) "" "lt" lt-name "la" la-name "")
　　　　(command "pedit" (entlast) "lt" "on" "s" "")
　　　　(command "erase" entl-y "")
　　　　(setq mun (+ mun 1))
)
)

由于是网上下的程序,此段 (s
t1 (car W_list)), 被别人修改
可能还有其它问题,希望得到各位大虾的指点,谢谢!

fengjianwei

(setq pt1 (car W_list))
晓东里面有 何必从别的地方下载呢

jiayu1983

这个加载后的命令是什么啊  谢谢了