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

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

编个公差的程序,

比如

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:00

不明白你想做什么

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

這樣可以

(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:00

大哥,不是这们的,,

标注时

+0。039

-0。000

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

要符合1楼的要求才行

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

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

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

我是机械行业的,,

公差不能这样标的..

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

可以编吗？,,,

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

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

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

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

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

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

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

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

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

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

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

页: [1]

明经CAD社区's Archiver

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