还是Z轴归零问题

独角斗士

石埠十三少发表于2004-7-22 2:04:00不行吖

当然不行，因为R14不能使用*.fas 为什么不用3楼的第二个方法？

xyp1964

快看： ☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;zzgl.lsp Z轴(坐标)归零
;;;-- XYP@bsedi.com
;;;2004.07.28
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(prompt "\n\r 加载Z轴坐标归零程序。") (DEFUN C:ZZGL (/ SSS1 n s1 old1 new1 s2 old2 new2 )
(cmdla0)
(princ"\n\t将线Z轴坐标归零。")
(princ"\n\t选择实体: ")
(while(not(SETQ SSS1 (ssget))))
(setq n 0)
(while (setq s1 (ssname SSS1 n))
(SETQ OLD1 (ASSOC 10 (entget S1)))
(SETQ NEW1 (list 10 (cadr old1)(caddr old1) 0))
(SETQ S1 (SUBST NEW1 OLD1 (entget S1)))
(setq s2 (ENTMOD S1))
(setq s1 (dxf -1 s2))
(SETQ OLD2 (ASSOC 11 (entget S1)))
(SETQ NEW2 (list 11 (cadr old2)(caddr old2) 0))
(SETQ S1 (SUBST NEW2 OLD2 (entget S1)))
(ENTMOD S1)
(setq n (+ 1 n))
)
(cmdla1)
(pxyp"ZZGL (Z轴坐标归零)")
);defun (defun CMDLA0 ()
(setq cmdech (GETVAR "CMDECHO"))
(setq oom (getvar "orthomode"))
(setq osm (getvar "osmode"))
(SETQ LA (getvar "clayer"))
(setvar "regenmode" 1)
(SETVAR "CMDECHO" 0)
);defun
(defun CMDLA1 ();(/ cmdech oom osm la)
(SETVAR "CMDECHO" cmdech)
(setvar "orthomode" oom)
(setvar "osmode" osm)
(setvar "clayer" LA)
(setvar "regenmode" 1)
);defun (defun dxf (code elist) (cdr (assoc code elist))) ;;;* 显示命令简写
(DEFUN PXYP (TXT1)
(SETQ TXT1 (STRCAT "\n\r 程序命令: " TXT1 " -- XYP@bsedi.com"))
(PRINC TXT1)
(Princ)
);defun (pxyp"ZZGL (Z轴坐标归零)") ☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★ 搞定？！

独角斗士

把所有对象MOVE到很远的地方然后再MOVE回来。 (defun c:Z0(/sset)
(setq sset(ssget))
(command "move" sset "" "0,0,0" "0,0,1e99")
(command "move" sset "" "0,0,1e99" "0,0,0")
) 简单不？

xyp1964

绝对简单！高手！佩服！

shenhung

关於图元物件不在Z=0面上..我都以下方式解决.当然也程序也可以


使用CHANGE指令


select object: 选择所有物件


Specify change point or [Properties]: 选P


Enter property to change [Color/Elev/LAyer/LType/ltScale/LWeight/Thickness]:


选Elev


输入0..........就可以了~

独角斗士

是个方法，只是只对特殊情况有效。

lingppp

错误: AutoCAD 变量设置被拒绝: "CMDECHO" nil

lingppp

错误: AutoCAD 变量设置被拒绝: "CMDECHO" nil

king0711

我已经加载了zzgl.fas，然后按照提示操作了，可怎么还是不行啊？下面是我操作后的提示，请问下，为什么还是不能面域啊…………

命令: zzgl
 将线Z轴坐标归零。
 选择实体:
选择对象: 指定对角点: 找到 141 个
选择对象:  ; 错误: AutoCAD 变量设置被拒绝: "CMDECHO" nil。

dunkel

用 12 或 13 楼朋友提供的 lsp 格式的代码吧. 将它们复制下来, 保存为 .lsp 类的文件, 然后将该 lsp 文件拖到 ACAD 的图形窗口松开, 会加载这个 lsp 程序的, 根据提示输入命令运行就是了.
上面提供的 .fas 程序, 由于没有源码, 除了作者恐怕难以解决些出现的错误.