[求助]：2004有没有改Ｚ轴坐标值为0的插件？

lyxm

各位朋友，2004有没有改Ｚ轴坐标值为0的插件啊？？我有个R14的，在2004里加载不能用

hstea

应该有很多,自己搜索一下吧!

lmt112233

实现三唯转2唯,可用下列程序
Move
all entity
base point 0,0,0
to 0,0,9e99
再次把所有移動
Move
all entity
base point 0,0,0
to 0,0,-9e99
完成這兩次移動程序
就可实现三唯转2唯

lyxm

最初由 lmt112233 发布
[B]实现三唯转2唯,可用下列程序
Move
all entity
base point 0,0,0
to 0,0,9e99
再次把所有移動
Move
all entity
base point 0,0,0
to 0,0,-9e99
完成這兩次移動程序
就可实现三唯转2唯 [/B]

请问楼上的朋友是在命令行里输入以上文字吗？

lmt112233

上述程序只是一般autocad命令,
在命令行里输入move,
其他只是一般程序
試試看!

lyxm

我用拷贝、粘贴到命令行，可以用，虽然麻烦点，总是解决了问题，谢谢你！！

0000

还好

nt_cgh

对象特性选取全部，改变在同一平面，Z为0就可以

TLHMQH

论坛里有这个程序，你搜索一下，很好使的。

lyxm

最初由 TLHMQH 发布
[B]论坛里有这个程序，你搜索一下，很好使的。 [/B]

名称不晓得，搜索不到啊，我搜了几次都说找不到匹配的条目。
朋友，知道名字给个提示吧。谢谢！

TLHMQH

我下载的，也忘了谁写的了，昨天就想给你，怕侵权，你复制后回个帖子，我再删除。

内容已删除。

lyxm

最初由 TLHMQH 发布
[B]我下载的，也忘了谁写的了，昨天就想给你，怕侵权，你复制后回个帖子，我再删除。

(defun C:GL (/ SS CE HL OS)
   (cond
    ((setq SS (ssget))
     (setq CE (getvar "cmdecho")
           HL (getvar "highlig... [/B]

谢谢楼上的朋友，这段程序该怎么来用，给个使用说明吧？

真龙天子

这是我自编的，很好用，你试试看。
;;;;;;;;高程归零;;;;;;;;;
(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) <Y>:"))
   )
      (setvar "osmode" 35)                                            ;打开捕捉

  (princ "所选的等高线高程归零己完成!")
(prin1)
)
                 (prompt "<<高程归零>>启动命令:gcgl")
                    (princ)

TLHMQH

复制，制成LSP文件，加载。

lyxm

最初由 TLHMQH 发布
[B]复制，制成LSP文件，加载。 [/B]

加载完了，用什么命令来完成改坐标啊？？