精切尺寸

金鹅起飞

st788796 发表于 2013-12-9 14:52
原尺寸是有的还是在程序中标注

这个可以自己标注，也可以程序生成。
画好矩形后是没有的，是自己标上去的

金鹅起飞

st788796 发表于 2013-12-9 16:56
去掉几个语句就 Ok 了，专业不同理解起来太费劲

太谢谢您了，ST788796大师。

st788796

金鹅起飞 发表于 2013-12-9 16:59
太谢谢您了，ST788796大师。

再试试 1 楼程序

st788796

就是减个尺寸不要这么复杂了，还可以简化下

1 标注方框
2 旁边画框
3 下面文字(减值或原值)
4 图层整理
上面整复杂了

1 楼已更新

金鹅起飞

st788796 发表于 2013-12-9 17:37
就是减个尺寸不要这么复杂了，还可以简化下

1 标注方框

st788796大师：我用您更新后是一楼程序又试了一下，出现：

选择对象: 指定对角点: 找到 5 个
选择对象:
高度<16>: 25
; 错误: 参数类型错误: numberp: (1.0)

请指教。

st788796

金鹅起飞 发表于 2013-12-9 21:04
st788796大师：我用您更新后是一楼程序又试了一下，出现：

选择对象: 指定对角点: 找到 5 个

多删了两行，已添加

金鹅起飞

st788796 发表于 2013-12-9 23:32
多删了两行，已添加

谢谢st788796大师！试用了您的程序，只差一步就成功了，就是精切尺寸和数字太大了，请看图片，其他的都可以了。

金鹅起飞

st788796 发表于 2013-12-9 23:32
多删了两行，已添加

st788796大师：您好！我又试了一下，发现减数值时，减反了，a 应该减0.5，c 减1 用程序出来就不是这样的，请看图片：

st788796

金鹅起飞 发表于 2013-12-10 08:30
st788796大师：您好！我又试了一下，发现减数值时，减反了，a 应该减0.5，c 减1 用程序出来就不是这样的 ...

v1 后面的 List 倒换下位置即可， 1 楼已修改

铸剑001

学习来了。。。。。。。。。。

金鹅起飞

st788796 发表于 2013-12-10 08:54
v1 后面的 List 倒换下位置即可， 1 楼已修改

st788796大师：您好！精切尺寸完全可以了！谢谢您！就只差一个问题：精切尺寸及数字 这几个字很大，请问在哪里改小？拜谢！

st788796

金鹅起飞 发表于 2013-12-10 10:38
st788796大师：您好！精切尺寸完全可以了！谢谢您！就只差一个问题：精切尺寸及数字 这几个字很大，请问 ...

用的是 5 倍 textsize ，自己可以修改程序中的 5 ，也可以自己调整 textsize

金鹅起飞

st788796 发表于 2013-12-10 10:51
用的是 5 倍 textsize ，自己可以修改程序中的 5 ，也可以自己调整 textsize

ST788796：大师好！我改了这里成了1倍

_3pi
                        (+ (* 1 (getvar "textsize")) 10.)

这里也改成了1倍

(* 1 (getvar "textsize")) ;_文字高度

试了试，数字和精切尺寸这几个字还是很大，没有效果，请问st788796大师，在哪里改？我不懂这些，请您指教。

st788796

金鹅起飞 发表于 2013-12-10 11:08
ST788796：大师好！我改了这里成了1倍

_3pi

再高就输入命令 textsize
命令:
TEXTSIZE
输入 TEXTSIZE 的新值 <5.0000>: 2

金鹅起飞

st788796 发表于 2013-12-10 11:12
再高就输入命令 textsize
命令:
TEXTSIZE

st788796大师：输入命令 textsize这个命令可以改，程序里改没有效果：


(polar        (xdrx_line_midp (car box1) (cadr box1))
                        _3pi
                        (+ (* 1 (getvar "textsize")) 10.)
                 )
                 (strcat "精切尺寸: "
                         (rtos (abs (car v1)) 2 2)
                         "x"
                         (rtos (abs (cadr v1)) 2 2)
                         "x"
                         (rtos d 2 2)
                 )
                 (* 1 (getvar "textsize")) ;_文字高度
                 0.