[求助]修改Ｚ坐标

wengsg

如图所示，在第一次输入Ｚ坐标高度时为用户自定200，每选一次Ｚ坐标递增一个数，增加多少由用户输入。 这是一个Ｚ坐标输入程序，该如何修改，请指教！ (defun c:ZQ ()
(setvar "cmdecho" 0)
(setq elev (getreal "输入归位的高度[/0]: "))
(if (= elev nil)
(setq elev 0)
)
(setq ss (ssget))
(if (= ss nil)
(princ "0 个对象被执行。")
(progn
(setq Num1 (sslength ss))
(command "change" ss "" "p" "E" elev "")
(setq i 0)
(while (setq ent (ssname ss i))
(setq entlist (entget ent))
(setq entlist (change_point entlist 10 elev))
(cond
((or (eq (cdr (assoc 0 entlist)) "3DFACE")
(eq (cdr (assoc 0 entlist)) "SOLID")
)
(setq entlist (change_point entlist 11 elev))
(setq entlist (change_point entlist 12 elev))
(setq entlist (change_point entlist 13 elev))
)
((eq (cdr (assoc 0 entlist)) "LINE")
(setq entlist (change_point entlist 11 elev))
)
((eq (cdr (assoc 0 entlist)) "POLYLINE")
(cond
((eq 8 (boole 1 (cdr (assoc 70 entlist)) 8))
(while
(eq
"VERTEX"
(cdr (assoc
0
(setq entlist (entget (setq ent (entnext ent))))
)
)
)
(setq entlist (change_point entlist 10 elev)) )
)
)
)
)
(setq i (1+ i))
)
(princ Num1)
(princ "个对象被执行")
)
)
(command "regenall")
(setvar "cmdecho" 1)
) (defun change_point (elist point el)
(setq xyz (assoc point elist))
(setq elist
(subst
(list point (nth 1 xyz) (nth 2 xyz) el)
(assoc point elist)
elist
)
)
(entmod elist)
(setq elist elist)
) (princ)

wengsg

怎么还没人进来关心一下呢？

ccaaz

[I]我也很想关心你，可是俺也不懂啊         哈哈[/I]

flfcegu168

很好 只能 顶一下