[求助]：让z坐标全部变为0.

60dragon · 发表于 2004-10-14 12:14:02

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

以前有老师编过的一个,但有时会出问题

(defun c:ch0(/ s osmo)
  (setq s (ssget) osmo (getvar "osmode"))
  (setvar "osmode" 0)
  (command "move" s "" "0,0,0" "0,0,1e99" "move" s "" "0,0,0" "0,0,-1e99" )
  (setvar "osmode" osmo)(princ)
)

梦断江南 · 发表于 2004-10-15 13:30:11

请说说是什么情况下会出问题好么?

hzzhao · 发表于 2004-10-15 16:18:17

直接Autocad自带的属性编辑器很方便的

litss · 发表于 2004-10-15 21:58:27

在网上有个相应功能的lsp，不知道合适你用不？

xiaoyanyan · 发表于 2004-10-23 11:29:03

;;标高(Z坐标)归零实用程序
(defun C:Z=0 ()
(setvar "cmdecho" 0);关闭命令回显
(princ "\n正在处理图形数据,请稍候...")
(command "_.UCS" "");恢复为默认坐标系
(command "_.move" "_all" "" '(0 0 1e99) "" "_.move" "_p" "" '(0 0 -1e99) "");使Z坐标为0
(princ "\nOK,已将所有图元的标高值即Z坐标归零.")
(setvar "cmdecho" 1)
(princ)
);end (defun C:Z=0 ()

xxxyzxx · 发表于 2004-11-21 08:43:47

恩，这个是我经常用到的，以前在使"贱人"编的程序，
3楼的方法以前我也用，但图形复杂时有时候不能使用：（
4楼（可选物体）虽然不懂LSP，但用多了后，发现此程序中(vmon)无用，我把DEFUN前面的东西去了；由于程序过于复杂，看不懂：（；实际操作---用于大图，好使（但zz命令有重名，还需要改动，累！）
5楼（不可选物体）图形少时，速度飞快（z=0命令无重名）

david96007 · 发表于 2004-11-22 07:01:35

对于3维多义线怎么处理？

madeinchina · 发表于 2004-11-22 19:22:10

好象晓东工具箱里面也有

furthercmx · 发表于 2005-8-14 15:54:46

终于解决了这个难题

csubake · 发表于 2005-8-15 12:14:43

也是，但晓东中间好像有些命令不能用，也不知道为什么？

雄啸 · 发表于 2005-8-15 12:53:14

这里有一个
http://www.xdcad.net/forum/showthread.php?threadid=442248

userzhluserzhl · 发表于 2005-8-15 14:22:02

楼上，你的那个链接中的程序我用了不行的！
我运行后怎么就出错了的：
命令: z0
_.move 找到 5669 个
指定基点或位移:
点无效。
; 错误: 函数被取消
指定基点或位移: 指定位移的第二点或 <用第一点作位移>:
命令: *取消*
我用的是XP+2005

wulongm · 发表于 2005-8-15 15:58:12

我也有一个这样的程序，很好用，我先找一下，找到后再发给大家！

userzhluserzhl · 发表于 2005-8-16 11:13:52

支持楼上，希望尽快发上来，最好是源码！

kill99 · 发表于 2005-8-17 15:50:12

好象晓东工具箱里面也有

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：让z坐标全部变为0.

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

DDD

浏览过的版块