坐标归零

pengl86

在画图的过程中，能否有一个代码，能使图形A某一点为零软件 CAD 2007
功能：B为 图形A 某一点。打开插件后，提示   选择对像A---选择某点B------然后自动B为坐标零点位置（X,Y,Z均为零，）


大佬们，帮忙看一下这个，谢谢

KO你

快捷键  za  Z轴归零
(defun c:za ()
(setvar "cmdecho" 0)
(princ "\n正在处理图形数据,请稍候...")
(command "_.UCS" "")
(command "_.move" "_all" "" '(0 0 1e99) "" "_.move" "_p" "" '(0 0 -1e99) "")
(princ "\nOK,已将所有图元的标高值即Z坐标归零.")
(setvar "cmdecho" 1)
(princ)
)end

pengl86

wowan1314 发表于 2019-1-21 13:00
CAD命令UCS

UCS是相 对坐标吧，我想移动到绝对坐标那呢，能否码上一段lsp.   大佬，功能：B为 图形A 某一点。打开插件后，提示   选择对像A---选择某点B------然后自动B为坐标零点位置（X,Y,Z均为零，）

pengl86

wowan1314 发表于 2019-1-21 14:55
是要移动A？
(command "move" pause "" pause (trans '(0 0 0) 0 1))   
这样，好久没看代码了~   都不会 ...

感觉有时候加载还是不行哦，咋回事呢 能加个命令吗

20060510412

很多常用插件都有这个功能的吧

pengl86

20060510412 发表于 2019-1-21 09:23
很多常用插件都有这个功能的吧

大佬，那个有呢，能否码上一个lsp     

wowan1314

CAD命令UCS

pengl86

走过路过发大佬们，帮忙看一下呀，这个用的比较多，谢谢各位大佬了

wowan1314

是要移动A？
(command "move" pause "" pause (trans '(0 0 0) 0 1))   
这样，好久没看代码了~   都不会了

20060510412

pengl86 发表于 2019-1-21 12:57
大佬，那个有呢，能否码上一个lsp

常青藤里面，有一个坐标归零选项

pengl86

20060510412 发表于 2019-1-21 15:17
常青藤里面，有一个坐标归零选项

能写一个吗 ，