关于标注的修改问题

bios · 发表于 2004-7-6 16:24

修改标注的尺寸线,要剪短一定长度,比如100mm.

由于要求的标注格式一定要求尺寸线的:尺寸界限偏移为0.修改标注格式里面的:缩短尺寸线

长度后有个点,我们要求不能有这种格式,由于标注太多了,请高手编辑一个程序能指定长度剪短尺寸线'

说得有点麻烦, sorry

meflying · 发表于 2004-7-6 16:43

上个图说明不就简单多了

bios · 发表于 2004-7-10 18:02

是我开始说复杂了,其目的就是要指定长度剪短标注尺寸线长度.----窗选批量裁减.

xyp1964 · 发表于 2004-7-27 23:23

用 stretch 命令。

bios · 发表于 2004-7-30 17:31

恩，现在是采用的这种笨办法,由于标注太多了,而且彼此又有角度斜交,做起来很麻烦,一直没有什么方便快捷的办法.大虾帮忙!

xyp1964 · 发表于 2004-8-1 23:57

本帖最后由作者于 2004-8-7 6:06:38 编辑

;;;恢复尺寸 hfcc.lsp ;;;c:hfcc (defun c:hfcc (/ num SS1)
(setq num (getreal "\n\t输入剪短距离 : "))
(setvar "DIMEXO" num)
(setvar "dimtxsty" (getvar "textstyle"))
(setq ss1 (ssget "X" (LIST (CONS 0 "dimension"))))
(if ss1
(command "dim" "UPD" ss1 "" "Exit")
(princ "\n\t未找到尺寸元素.")
)
(princ)
)

bios · 发表于 2004-8-6 19:46

呵呵，修改起来方便多了，3Q

又有这个问题，现在是对图纸中的所有标注对象所修改

我只能导出我是所需要修改的标注到一张新图，修改后再贴回到以前的图中

希望能窗选修改能

xyp1964 · 发表于 2004-8-7 06:05

;;;恢复尺寸 hfcc.lsp ;;;c:hfcc (defun c:hfcc (/ SS1)
(setq num (ureal 1 "" "\n\t输入剪短距离" num))
(setvar "DIMEXO" num)
(setvar "dimtxsty" (getvar "textstyle"))
;(setq ss1 (ssget "X" (LIST (CONS 0 "dimension"))))
(setq ss1 (ssget (LIST (CONS 0 "dimension"))))
(if ss1
(command "dim" "UPD" ss1 "" "Exit")
(princ "\n\t未找到尺寸元素.")
)
(princ)
)
(defun ureal (bit kwd msg def / inp)
(if def
(setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
bit (* 2 (fix (/ bit 2)))
)
(setq msg (strcat "\n" msg ": "))
)
(initget bit kwd)
(setq inp (getreal msg))
(if inp inp def)
)

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