[求助]如何给地形线增加Ｚ坐标？

wengsg

在ＣＡＤ里如何给圆弧＼样条曲线增加Ｚ坐标？

席恩蒂

可在PROPERTIES栏中修改。

wengsg

这我知道，我是想知道有什么更快的方法．

席恩蒂

这就是最快的吧？要再想快就只能靠编程序啦？

xiagood

可以参考一下。记得在Vhcad 4.1.1中也有。 (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

非常感谢，送你一支鲜花！

wengsg

请问如何才能实现每个节点的动态Ｚ坐标输入？比如说样条曲线，它有多个节点，每个节点的标高不一样，如何在命令提示窗口中动态操作？

席恩蒂

在控制栏选拟合点修改坐标。

wengsg

我需要的是LISP程序．