我需要一个自动标注尺寸公差的程序。

neteasy · 发表于 2003-9-18 19:57:00

我需要一个好用的自动标注尺寸公差的程序。我在明经通道下载的，使用起来感觉不太方便。

liyuwen · 发表于 2003-9-20 14:11:00

您可以登录到http://xrsoft.nease.net下载XRCAD,试一试其中的工具。

岁月无身 · 发表于 2003-10-21 13:21:00

有xrcad的注册码吗？

zd81 · 发表于 2003-10-21 17:10:00

http://www.szty.com.cn/gmsoft/tools/DGJ.zip

simon06618 · 发表于 2003-10-31 15:18:00

注册码不能下，楼上的能不能直接贴出来！

typ · 发表于 2003-11-1 14:39:00

本论坛下载中心有的

fishyu · 发表于 2003-12-9 19:01:00

下载机械工程师2003,这个比较好用

yutianweidi · 发表于 2010-12-5 19:01:35

(defun c:g1()
(setq ss (entsel "\n请输入对称公差的尺寸:"))
(setq ss (car ss))
(setq en (entget ss '("*")))
(setq lt1 (assoc 1 en))
(setq lt11 (cdr lt1))
(setq lt33 (getstring "请输入对称公差值:"))
(cond ((= lt11 "") (setq lt22 (strcat "<>%%p" lt33)))
         (t (setq lt22 (strcat lt11 "%%p" lt33)))
)
(setq lt2 (cons 1 lt22))
(setq en (subst lt2 lt1 en))
(entmod en)

(PRINC "    -------OK-------")
  (PRINC)
)

;-----------------------------------------------
;---------------------------------------------------
(defun c:g2()
(setq ss (entsel "\n请输入不对称公差的尺寸:"))
(setq ss (car ss))
(setq en (entget ss '("*")))
(setq lt1 (assoc 1 en))
(setq lt11 (cdr lt1))
(setq lt33 (getstring "请输入上公差值:"))
(setq lt44 (getstring "请输入下公差值:"))
(cond ((= lt11 "") (setq lt22 (strcat "<>\\H.68x\\S" lt33 "^" lt44)))
         (t (setq lt22 (strcat lt11 "\\H.68x\\S" lt33 "^" lt44)))
)
(setq lt2 (cons 1 lt22))
(setq en (subst lt2 lt1 en))
(entmod en)

(PRINC "    -------OK-------")
  (PRINC)
)

;----------------------------------------------------------------------
;-----------------------------------------------------------------------
(defun c:g3()
  (COMMAND "_.UNDO" "M")
  (setq ss (entsel "\n请输入有公差的尺寸:"))
  (setq ss (car ss))
(setq en (entget ss '("*")))
(setq lt1 (assoc 1 en))
(setq lt22 (cdr lt1))
(PROMPT "\n请选择修改区域:")
  (SETQ ENTGRP (SSGET))
  (SETQ COUNT 0)
  (REPEAT (SSLENGTH ENTGRP)
(SETQ ENTNAME (SSNAME ENTGRP COUNT))
(SETQ ENT (ENTGET ENTNAME))
(setq lt01 (assoc 1 ent))
(setq lt011 (cdr lt01))
(cond ((= lt011 "") (setq lt022 lt22))
         (t (exit))
)
(setq lt02 (cons 1 lt022))
(setq ent (subst lt02 lt01 ent))
(entmod ent)
(SETQ COUNT (1+ COUNT))
  )
  (PRINC "\n共计修改尺寸")(PRINC COUNT) (PRINC "!!!")
  (PRINC "    -------OK-------")
  (PRINC)
)

hgf876 · 发表于 2010-12-5 21:34:09

我来一个给大家看看：
(defun c:htol
(/ dVal-tp dVal-tm ss1)

(setq dVal-tp (getreal "\nUpper value +<0.00>: ")) ;setq

(if
(not dVal-tp)

(setq dVal-tp 0.0)

)

(setq dVal-tm (getreal "\nLower value -<0.01>: ")) ;setq

(if
(not dVal-tm)

(setq dVal-tm 0.01)

)
;;;

(setq ss1 (ssget))

(if
(not ss1)

(exit)

)
;;;

(setvar "dimtol" 1)

(setvar "dimtp" dVal-tp)

(setvar "dimtm" dVal-tm)

(if
(< (abs (- (abs dVal-tp) (abs dVal-tm))) 0.0001) ;<

(progn (if (< (abs dVal-tm) 0.001)

(progn
(setvar "dimtp" 0.0)

(setvar "dimtm" 0.0)

(setvar "dimtol" 0)

) ;progn

) ;if

(setvar "dimtfac" 1.0)

) ;progn

(setvar "dimtfac" 0.8)

) ;if

(command "-dimstyle" "apply" ss1 "")

(setvar "dimtp" 0.0)

(setvar "dimtm" 0.0)

(setvar "dimtol" 0)

(princ)
)
;defun

669423907 · 发表于 2011-3-6 11:31:51

大师们真厉害！

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