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

关于标注的修改问题

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


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


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


说得有点麻烦, sorry

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

上个图说明不就简单多了

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

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

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

用 stretch 命令。

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

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

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

本帖最后由 作者 于 2004-8-7 6:06:38 编辑 <br /><br /> ;;;恢复尺寸 hfcc.lsp



;;;c:hfcc


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

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

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


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


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


希望能窗选修改能

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

;;;恢复尺寸 hfcc.lsp





;;;c:hfcc


(defun c:hfcc (/ SS1)<BR>       (setq num (ureal 1 "" "\n\t输入剪短距离" num))<BR>       (setvar "DIMEXO" num)<BR>       (setvar "dimtxsty" (getvar "textstyle"))<BR>       ;(setq ss1 (ssget "X" (LIST (CONS 0 "dimension"))))<BR>       (setq ss1 (ssget (LIST (CONS 0 "dimension"))))<BR>       (if ss1<BR>                       (command "dim" "UPD" ss1 "" "Exit")<BR>                       (princ "\n\t未找到尺寸元素.")<BR>       )<BR>       (princ)<BR>)<BR>(defun ureal (bit kwd msg def / inp)<BR>       (if def<BR>                       (setq msg (strcat "\n" msg "&lt;" (rtos def 2) "&gt;: ")<BR>                                                                       bit (* 2 (fix (/ bit 2)))<BR>                       )<BR>                       (setq msg (strcat "\n" msg ": "))<BR>       )<BR>       (initget bit kwd)<BR>       (setq inp (getreal msg))<BR>       (if inp inp def)<BR>       )
页: [1]
查看完整版本: 关于标注的修改问题