【已解决】图纸左下角自动移动到 0,0点

宏光 · 发表于 2018-7-26 21:32:18

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

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

×

本帖最后由宏光于 2018-9-27 06:49 编辑

图纸从总图分图后想用左下角自动移动到 0,0点，由于分出的图数量非常大，请各位高手帮忙给看看

spp_wall · 发表于 2018-8-21 11:10:53

[Actionscript3] 纯文本查看 复制代码

(defun c:KX-TKBYD(/ dimscaley dimlfacy)
(princ "nMove all from extmin to 0,0")
(setvar "cmdecho" 0);;暂时在命令函数运行时关闭回显提示和输入
(setq dimscaley (getvar"dimscale") dimlfacy (getvar"dimlfac"));;获取原图当前使用的标注样式的全局比例因子和测量单位比例因子
(setvar "dimscale" 1);;把当前标注样式的全局比例改为1
(setvar "dimlfac" 1);;把当前标注样式的测量单位比例因子改为1
(command "-layer" "u" "*" "")
(command "-layer" "on" "*" "")
(command "-layer" "t" "*" "")
(command "-purge" "a" "" "n")
(command "zoom" "e" "regen")
(command "move" "all" "" (list (car (getvar"extmin")) (cadr (getvar
"extmin")) 0.0) (list 0.0 0.0 0.0))
(command "zoom" "e" "regen")
(command "ucs" "o" (list (car (getvar"extmin")) (cadr (getvar"extmin")) 0.0))
(setvar "dimscale" dimscaley);;恢复原标注样式的全局比例
(setvar "dimlfac" dimlfacy);;恢复原标注样式的测量单位比例因子
(setvar "cmdecho" 1)
(princ)
)

newer · 发表于 2018-8-21 11:34:01

一个DWG里面有几张带图框的？
你想把所有带图框的，最左下的图框的角点移动到0，0？其他图框都跟着相对移动？

宏光 · 发表于 2018-9-27 06:50:03

多谢回复，spp_wall已经解决，谢谢

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

[已解决] 【已解决】图纸左下角自动移动到 0,0点

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