请大家帮个大忙....公差

sxy · 发表于 2004-3-21 17:35

编个公差的程序,

比如

1.    +0.039

     0

2.    0

          -0.039

3.    +0.039

   +0.020

4.    -0.039

     -0.020

都能用,,    要用lsp编的

meflying · 发表于 2004-3-22 08:27

不明白你想做什么

BDYCAD · 发表于 2004-3-22 09:45

這樣可以 (defun c:gc (/ PC p1 p2)
(SETQ PC (RTOS (- 0 (getvar "dimtm"))))
(setq p1 (getreal (strcat "\n上偏差" "<" (rtos (getvar "dimtp")) ">:")))
(setq p2 (- 0(getreal (strcat "\n上偏差" "<" PC ">:"))))
(IF (= p1 nil) (setq p1 (getvar "dimtp")))
(IF (= p2 nil) (setq p2 (getvar "dimtm")))
(if (>(strlen (rtos p1))(strlen (rtos p2)))
(setvar "dimtdec" (- (strlen (rtos p1))2))
(setvar "dimtdec" (-(strlen (rtos p2))2)))
(SETVAR "CMDECHO" 0)
(COMMAND "dimtol" "on")
(SETVAR "CMDECHO" 1)
(setvar "dimtzin" 0)
(setvar "dimtp" p1)
(setvar "dimtm" p2)
(SETVAR "dimtfac" 0.5)
(PRINC)
)

sxy · 发表于 2004-3-22 20:33

大哥,不是这们的,,

标注时

+0。039

-0。000

这样是不行的,,,,,,,,,,,,,,,

要符合1楼的要求才行

meflying · 发表于 2004-3-23 17:32

你想做什么，那样怎么不行？

sxy · 发表于 2004-3-23 18:25

我是机械行业的,,

公差不能这样标的..

要去掉负号和后面的零.......

可以编吗？,,,

meflying · 发表于 2004-3-23 19:09

为什么总想到编？CAD现成的东西不用？

多琢磨一下标注部分内容。。。

sxy · 发表于 2004-3-23 21:09

这个不好用，帮个忙.....

用lsp能不能实现上面的公差标注..??

meflying · 发表于 2004-3-23 21:39

不好？不明白你要做什么，这是CAD自带的，怎么说比用LISP编出来的强，而且LISP不能建立自定义图元对象，所以用LISP做，最后结果也是它。。。就是说，用LISP拐了个弯，还是要回到这个东西上来。

建议你多看一些关于CAD使用及技巧、习惯方面的资料，你说这个不好用，肯定是你用得不熟，因为大家都没有说它不好用，包括一些自己开发程序来方便自己使用的用户，也不会再去开发这个功能

gzy · 发表于 2004-3-29 12:26

在源码共享那里有个公差编辑工具，你去看看吧，什么样式都能实现。

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

请大家帮个大忙....公差

本帖子中包含更多资源

本帖子中包含更多资源