求一个在三维里拉伸成实体后保持原图层的程序！

gaics

在网上找了一个程序，但似乎不能用，请高手帮忙修改或者重编一个，谢谢！

;|extrude拉伸实体,保持原图层-----------陌生人v1.1 2003.12 增加对未封闭的pl线条是否封闭后拉伸的选项增加 undo 处理|;(defun c:ez (/ ss i n2 n ext_h ent entl entn i la e70)  (princ "\n ez=====extrude拉伸实体,保持原图层-----------陌生人.2001.6")  (princ "\n 当前选项 : 对不封闭的实体自动封闭并拉伸;") (princ "     拉伸高度")(princ ext_h)  (command ".undo" "be")  (setq ss (ssget '((0 . "*POLYLINE,CIRCLE,ELLIPSE,region")))i 0n2 0n (sslength ss)cl_key T)  (while (not(setq ext_h (getdist "\n<改变选项: 对不封闭的实体不处理>/拉伸高度:")))         (setq cl_key nil)         (princ "\n 当前选项 : 对不封闭的实体不处理")  )  (repeat n    (setq ent (ssname ss i)  entl (entget ent)  entn (cdr(assoc 0 entl))  i (1+ i)  la (cdr(assoc 8 entl))  e70 (cdr(assoc 70 entl))    )    (if (and (= "LWPOLYLINE" entn) cl_key)        (command ".pedit" ent "Close" "")    )    (command "_.extrude" ent "" ext_h "0")    (setq e (entlast))    (command "_.change" e "" "p" "la" la "")  );end repeat(command ".undo" "e")(princ (strcat "\n选中" (rtos n) "个"))(princ (strcat "\n" (rtos n2) "个不成功."))(princ))(princ "\n ez=====extrude拉伸实体,保持原图层V1.1-----------陌生人.2001.6 2003.12")

gaics

自己已解决感谢原作者，可惜已经联系不上

999999

谢谢大神的分享