2004有没有改Ｚ轴坐标值为0的插件？

[求助]：2004有没有改Ｚ轴坐标值为0的插件？ 我下载的，也忘了谁写的了，昨天就想给你，怕侵权，你复制后回个帖子，我再删除。 最初由 TLHMQH 发布 (defun C:GL (/ SS CE HL OS) (cond ((setq SS (ssget)) (setq CE (getvar "cmdecho") HL (getvar "highlig... 谢谢楼上的朋友，这段程序该怎么来用，给个使用说明吧？ 这是我自编的，很好用，你试试看。 ;;;;;;;;高程归零;;;;;;;;; (defun c:gcgl () ;——————确定初始参数—————— (setvar "osmode" 0) ;关闭捕捉 (setvar "cmdecho" 0) ;关闭命令行回显 (command "UCS" "w") ;设为世界坐标系 (setq tt "y") (while (/= tt "n") (setq pa (getpoint "\n请按坡向确定线选等高线的起点：") ;按坡向确定线选等高线的起点 pb (getpoint "\n请按坡向确定线选等高线的终点：") ;按坡向确定线选等高线的终点 ) (setq ac (angle pa pb) p0p (Polar Pa (+ ac pi) 100) ;屏幕左角坐标 pnp (Polar Pb ac 100) ;屏幕右角坐标 ) (vla-zoomwindow (vlax-get-acad-object) (vlax-3d-point p0p)(vlax-3d-point pnp));;缩放以使所选取充满屏幕 (setq ss (ssadd) ;建立一个新选择集 ss (ssget "f" (list pa pb) '((0 . "*line"))) ;将pa至pb间的等高线放入选择集ss n (sslength ss) ;求选择集ss里等高线的条数 z2 0 m -1 ;确定计数器的起始值 z0 3 ) (command "_zoom" "p") (command "chprop" "f" pa pb "" "" "c" "byblock" "") ;修改为颜色随块 ;——————从选择集里取出单条曲线赋予新的高程并根据高程值确定颜色—————— (repeat n (setq m (+ m 1) ;计数 sl (ssname ss m) ;从SS选择集里按计数器的顺序取出单条等高线 ) (if (= (cdr (nth 1 (entget sl))) "LWPOLYLINE") ;如果等高线是多段线 (setq pzz0 (* -1 (cdr (assoc 38 (entget sl))))) ;提取多段线的z值 ) (if (= (cdr (nth 1 (entget sl))) "SPLINE") ;如果等高线是样条曲线 (setq pzz0 (* -1 (nth 3 (assoc 10 (entget sl))))) ;提取样条曲线的z值 ) (if (= (cdr (nth 1 (entget sl))) "POLYLINE") ;如果等高线是多段线改成的样条曲线 (setq pzz0 (* -1 (nth 3 (assoc 10 (entget sl))))) ;提取样条曲线的z值 ) (setq pzz (list 0 0 pzz0)) ;根据原等高线的z值组合新的坐标 (command "_move" sl "" pzz "") ;用相对法将已赋高程值的等高线归0 (vla-put-Color (vlax-ename->vla-object sl) 50) ;将等高线改为指定的色号 ) (command "chprop" ss "" "c" "bylayer" "") ;将等高线颜色恢复为随层 (setq tt (getstring "\n还要继续吗？(Y/N) :")) ) (setvar "osmode" 35) ;打开捕捉 (princ "所选的等高线高程归零己完成!") (prin1) ) (prompt "<<高程归零>>启动命令:gcgl") (princ) “C：”后面的就是命令。本例GL。 最初由 TLHMQH 发布 “C：”后面的就是命令。本例GL。 时区: GMT北京时间. 现在时间: 21:57. 原文网址: http://www.xdcad.net/forum/showthread.php?postid=3151286 由弘一网童保存，尚未注册。注册