iCAx开思网

标题: 【分享】一个标尺寸公差的小程序！！！！ [打印本页]

作者: kimsem 时间: 2003-8-14 13:42
标题: 【分享】一个标尺寸公差的小程序！！！！
我们在cad中经常要用到公差标注，这个程序能快速的标注公差。
把它放在autucad可以找到的位置support也可
然后打开acad.mnl在最后加上（appload "dtol.lsp")
重新启动cad2000
Command: dtol
请输入上偏差值:0.02
请输入下偏差值0.01
dim
Dim: update
Select objects

选择dim)

作者: ljl 时间: 2003-8-14 17:12
acad2002可以吗?

作者: kimsem 时间: 2003-8-15 07:51
可以。

作者: cpit 时间: 2003-8-15 08:18
谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢
谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢
谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢
谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢
谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢
谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢
谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢
谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢
谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢
谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢
谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢
谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢

作者: Joseph Lin 时间: 2003-8-16 10:40
很實用的東西，尤其是加上公差後整格尺寸仍維持一個object，有助於日後的編輯。如果能在提示輸入上下公差前先選擇公差字体縮小倍率那就更完美了，改天我試著改改看。

作者: 刻录机 时间: 2003-8-17 17:06
不错,建议奖励!

作者: bijrh 时间: 2003-8-17 20:02
还有什么更好的东东，赶紧传上来啊！

作者: cpit 时间: 2003-8-18 07:38

Joseph Lin wrote:
很實用的東西，尤其是加上公差後整格尺寸仍維持一個object，有助於日後的編輯。如果能在提示輸入上下公差前先選擇公差字体縮小倍率那就更完美了，改天我試著改改看。

::y::y::y::y::y::y
::F::F::F::F::F::F

作者: 大康 时间: 2003-8-18 20:40

kimsem wrote:
我们在cad中经常要用到公差标注，这个程序能快速的标注公差。
  把它放在autucad可以找到的位置support也可
  然后打开acad.mnl在最后加上（appload "dtol.lsp")
  重新启动cad2000
  Command: dtol
  请输入上偏差值:0.02
  请输入下偏差值0.01
  dim
  Dim: update
  Select objects选择dim)

我怎么不成功，打开acad.mnl在最后加上（appload "dtol.lsp") 是否包括括号？详细教教我，谢谢。

作者: wayne 时间: 2003-8-19 00:00

大康 wrote:

  
我怎么不成功，打开acad.mnl在最后加上（appload "dtol.lsp") 是否包括括号？详细教教我，谢谢。

是的, 必須加上括號, lisp是由許多括號組合而成, 由內括號運算到外括號, 所以括號實在太煩太複雜了, 最後記得存檔, 並重新啟動AutoCAD.

作者: fang-xp 时间: 2003-8-19 10:26
为什么我设置好了，使用命令时DTOL是未知命令呢？？？？？

作者: Joseph Lin 时间: 2003-8-19 12:52
Comm.

load "dtol")
Comm.:dtol

作者: cpit 时间: 2003-8-19 13:12
或者工具----AutoLIST

如图：

作者: 大康 时间: 2003-8-20 19:52

wayne wrote:

是的, 必須加上括號, lisp是由許多括號組合而成, 由內括號運算到外括號, 所以括號實在太煩太複雜了, 最後記得存檔, 並重新啟動AutoCAD.

我用的是cad2000中文简体版，下面是加入(appload "dtol.lsp" )样式，还是不行，不知那里有错。程序dtol.lsp我也按要求复制到support位置了。
(defun c:vlisp ()
(if (/= nil c:vlide) (c:vlide))
)

(princ "已加载。")
(princ)
(appload "dtol.lsp" )

作者: a7web 时间: 2003-8-21 07:51
太过简单了，不过还是不错的

作者: qm007 时间: 2003-8-21 12:31
程序不成熟!!!

作者: cpit 时间: 2003-8-22 08:21

qm007 wrote:
程序不成熟!!!

那你来一个更好的

作者: 大康 时间: 2003-8-22 20:13

Joseph Lin wrote:
很實用的東西，尤其是加上公差後整格尺寸仍維持一個object，有助於日後的編輯。如果能在提示輸入上下公差前先選擇公差字体縮小倍率那就更完美了，改天我試著改改看。

标注样式--修改--公差--高度比例，选好高度比例即可。程序不错。

作者: s816050 时间: 2003-8-22 21:09
我不會lisp，
但是我提供一個方法，只要是2000以上用戶都可用！

提供一下希望對於不會lisp的用戶有所幫助！
要擅用內部的功能，除非必要在花時間學lisp！
如圖不清楚在這裡
https://home.pchome.com.tw/soho/s816050/pt/92-08-22-02.gif

作者: Joseph Lin 时间: 2003-8-23 16:37
使用DTOL.LSP的心得：
1.在Dimension Toolbar中設計一個稱為 Gen. Tolerance的icon，Macros內容如下
           ^C^C(LOAD "DTOL") _DTOL
2.先以平常方式標註尺寸(基本尺寸)，
3.按Gen. Tolerance icon，進入LISP輸入上下公差及選取基本尺寸，完成公差
  標註，唯此時基本尺寸和公差尺寸字高相同。
4.選取標註的尺寸後按Standard Toolbar中之Properties icon。
5.修改Tolerance部份之Text high值(如0.8)，按右上角之X鈕，便完成公差標註。
6.要重新設定上下公差值時只要再按一次Gen. Tolerance icon即可。
7.此LISP短小精幹，我很喜歡！

作者: puppet 时间: 2003-8-23 18:24
真是好东西　
thank you !

作者: gzxyj 时间: 2003-8-25 10:58
谢谢

作者: ggscut 时间: 2006-8-15 18:43
谢谢了！

作者: jafy 时间: 2006-8-22 10:15
不能多选,作用不大!!

作者: netnib 时间: 2006-8-22 19:21
下了谢谢!看来得好好学学了.

欢迎光临 iCAx开思网 (https://www.icax.org/)