cad函数 ：沿着Z轴拷贝

;;;;ZC---- Z AXIS COPY沿着Z轴拷贝---------lxx.2001.3
(DEFUN C:ZC ()
(princ "\nZC---- Z AXIS COPY沿着Z轴拷贝---------lxx.2001.3")
(setq ss (ssget) dza 0)
(command "copy" ss "")
(while (setq dz (getdist "\n间距："))
(setq dza (+ dza dz) z (strcat "0,0," (rtos dza)))
(command z "" "copy" "p" "")
)
(command)
(princ)
)
(princ "\nZC---- Z AXIS COPY沿着Z轴拷贝---------lxx.2001.3")