模具設計的幫手CAD外挂不斷增加中,請密切關注

zqvip · 发表于 2005-5-9 09:37:00

第一個﹐排料外挂件,加載lisp程序后﹐ 輸入PY命今方可運行。 注意>>>CAD設計外挂件不斷增加中﹐請密切關注﹐大伙想要什么功能就下什么功能。哈哈﹐多多支持

[此贴子已经被作者于2005-5-16 8:53:33编辑过]

zqvip · 发表于 2005-5-9 09:39:00

第二個>>坐标自动标注程序﹐加栽lisp后﹐ 輸入命今PDIM﹐方可運行

zqvip · 发表于 2005-5-9 09:44:00

第三個>>繪圖小工具﹐加載四個lisp。 注意方法。<簡體版> 1﹑ 備注﹕以上1--3樓的挂件為<<簡體版>

zqvip · 发表于 2005-5-9 09:45:00

第四個>>像似PressCAD的軟件備注﹕<<CAD英文版>> 安装方法一：把KOH文件夹COPY到C盘下。。把其他文件COPY到 CAD2000或者CAD2002的 SUPPORT文件夹里覆盖文件（建议先备份SUPPORT文件夹）然后打开CAD。键盘打MENU ----选ACAD。MNS------OK 安裝方法二﹕只要用记事本打开acad.mns.然后把路径"G:/SUPPORD/ACAD.MNU",改成你的ACAD.MNU的实际位置就行了. 安裝方法三﹕开启cad，在命令行输入menu后回车，然后在下载的文件里找.mnc文件 加载就ok 注意>>>如果有安裝不成功的朋友﹐請說明問題提示﹐俺在線幫助處理 1﹑

[此贴子已经被作者于2005-7-12 16:53:44编辑过]

zqvip · 发表于 2005-5-9 09:58:00

第五個>>> 這是一套设计端子模的展开LISP程序很方便很好用, 你只要选取内R角和线段它会自己列出角度,R角大小, 展开长度和总长 安裝方法>>>加载到LISP后,重开CAD,会看到AR2.lsp以装载完毕的字样就可以用啦,輸入命令ZC,会提示你怎么做呀,

[此贴子已经被作者于2005-7-12 16:54:33编辑过]

星雨 · 发表于 2005-5-9 11:58:00

优化排样运算功能太强大了！爽！！！

zqvip · 发表于 2005-5-9 15:04:00

不行的話就到TOOLS---------LOAD APPLICATION 里加載COPY過去的LISP。

zqvip · 发表于 2005-5-9 16:59:00

第四的功能可強了﹐全部具備啊﹐ 第五的功能是展開計算﹐很准

zqvip · 发表于 2005-5-9 17:14:00

<DIV class=quote>以下是引用hzy58在2005-5-9 17:11:46的发言： 谢谢,要能说下支持的版本就好了</DIV>
我都有說明啊﹐有>>>簡體版>>>>繁體版>>>英文版>>>>>CAD2000-2006都能安裝

succeed · 发表于 2005-5-14 22:04:00

健哥，你真伟大！！！ 第四楼的我已下载安装，但不会用，望健哥赐教。

332888 · 发表于 2005-5-18 16:23:00

[转贴]弧长标注程序
(DEFUN *ERROR* (ERROR) (SETVAR "cmdecho" OLDCMD) (SETVAR "osmode" OLDOSMODE) (PRINC "\n 函数被取消") )
;;;弧长标注 (DEFUN C:DS (/ LFAC DEC ENT VENT LS LS1 LS2 STAPT ENDPT CENTER P1 P2 ANG OLDCMD OLDOSMODE ARC FLAG FLAGF pickpt PARAM2 PARAM entname PS1 ) (SETQ OLDCMD (GETVAR "cmdecho")) (SETQ OLDOSMODE (GETVAR "osmode")) (SETQ LFAC (GETVAR "dimlfac")) (SETQ DEC (GETVAR "DIMDEC")) (SETVAR "cmdecho" 0) (SETVAR "osmode" 15359) (if (not ps) (setq ps "N") ) (INITGET "O F N") (setq PS1 (getkword (strcat "\n 弧长标志的位置[文字上方<O>/文字前面<F>/无<N>]<" ps ">:" ) ) ) (if (= ps1 nil) (setq ps1 ps) (setq ps ps1) ) (SETQ FLAGF T) (WHILE FLAGF (SETQ ENT (ENTSEL "\n请选取要标注的圆弧<退出>:")) (IF (/= NIL ENT) (PROGN (setq pickpt (cadr ent)) (setq entname (car ent)) (SETQ CENTER (OSNAP (CADR ENT) "cen")) (SETQ ARC (CDR (ASSOC 0 (ENTGET entname)))) (IF (= ARC "ARC") (PROGN (SETQ VENT (VLAX-ENAME->VLA-OBJECT (CAR ENT))) (SETQ CENTER (OSNAP (CADR ENT) "cen")) (SETQ STAPT (VLAX-CURVE-GETSTARTPOINT VENT)) (SETQ ENDPT (VLAX-CURVE-GETENDPOINT VENT)) (SETQ FLAG T) (WHILE FLAG (SETQ P1 (GETPOINT "\n弧线第一点<标全长>:")) (IF (/= NIL P1) (PROGN (IF (VLAX-CURVE-GETPARAMATPOINT VENT P1) (PROGN (SETQ LS1 (* LFAC (VLAX-CURVE-GETDISTATPARAM VENT (VLAX-CURVE-GETPARAMATPOINT VENT P1) ) ) ) (WHILE FLAG (SETQ P2 (GETPOINT "\n弧线第二点<标全长>:")) (IF (/= NIL P2) (PROGN (IF (VLAX-CURVE-GETPARAMATPOINT VENT P2) (PROGN (SETQ LS2 (* LFAC (VLAX-CURVE-GETDISTATPARAM VENT (VLAX-CURVE-GETPARAMATPOINT VENT P2 ) ) ) ) (SETQ LS (ABS (- LS2 LS1))) (SETQ LS (RTOS LS 2 DEC)) (cond ((= ps "N") (setq Ls LS)) ((= ps "O") (setq Ls (StrCat "\{\\Fgdt.shx|c0;^\}\\P" ls ) ) ) ((= ps "F") (setq Ls (StrCat "\{\\Fgdt.shx|c0;^\}" ls ) ) ) ) (COMMAND "DIMANGULAR" "" CENTER P1 P2 "T" LS ) (SETQ FLAG NIL) (SETQ FLAGF NIL) ) (PRINC "\n 请确认所选择的点在对应的圆弧上！" ) ) ) (PROGN (SETQ LS1 (* LFAC (VLAX-CURVE-GETDISTATPARAM VENT PARAM ) ) ls2 (* LFAC (VLAX-CURVE-GETDISTATPARAM VENT PARAM2 ) ) ) (SETQ LS (ABS (- LS2 LS1))) (SETQ LS (RTOS LS 2 DEC)) (cond ((= ps "N") (setq Ls LS)) ((= ps "O") (setq Ls (StrCat "\{\\Fgdt.shx|c0;^\}\\P" ls) ) ) ((= ps "F") (setq Ls (StrCat "\{\\Fgdt.shx|c0;^\}" ls) ) ) ) (COMMAND "DIMANGULAR" "" CENTER STAPT ENDPT "T" LS ) (SETQ FLAG NIL) (SETQ FLAGF NIL) ) ) ) (SETQ FLAG NIL) (SETQ FLAGF NIL) ) (PRINC "\n 请确认所选择的点在对应的圆弧上！") ) ) (PROGN (SETQ LS (* LFAC (VLAX-CURVE-GETDISTATPARAM VENT (VLAX-CURVE-GETENDPARAM VENT) ) ) ) (SETQ LS (RTOS LS 2 DEC)) (cond ((= ps "N") (setq Ls LS)) ((= ps "O") (setq Ls (StrCat "\{\\Fgdt.shx|c0;^\}\\P" ls)) ) ((= ps "F") (setq Ls (StrCat "\{\\Fgdt.shx|c0;^\}" ls)) ) ) (COMMAND "DIMANGULAR" "" CENTER STAPT ENDPT "T" LS) (SETQ FLAG NIL) (SETQ FLAGF NIL) ) ) ) (SETVAR "cmdecho" OLDCMD) (SETVAR "osmode" OLDOSMODE) ) (IF (and (or (= ARC "LIGHTWEIGHTPOLYLINE") (= ARC "POLYLINE") (= ARC "LWPOLYLINE") ) (checkarc ENTNAME) CENTER ) (PROGN (SETQ VENT (VLAX-ENAME->VLA-OBJECT (CAR ENT))) (SETQ pickpt (OSNAP (CADR ENT) "nea")) (setq PARAM (fix (VLAX-CURVE-GETPARAMATPOINT VENT pickpt)) ) (setq PARAM2 (+ 1 PARAM)) (SETQ STAPT (vlax-curve-getPointAtParam VENT param)) (SETQ ENDPT (vlax-curve-getPointAtParam VENT PARAM2)) (SETQ FLAG T) (WHILE FLAG (SETQ P1 (GETPOINT "\n弧线第一点<标全长>:")) (IF (/= NIL P1) (PROGN (IF (and (>= (VLAX-CURVE-GETPARAMATPOINT VENT P1) PARAM) (<= (VLAX-CURVE-GETPARAMATPOINT VENT P1) PARAM2 ) ) (PROGN (SETQ LS1 (* LFAC (VLAX-CURVE-GETDISTATPARAM VENT (VLAX-CURVE-GETPARAMATPOINT VENT P1) ) ) ) (WHILE FLAG (SETQ P2 (GETPOINT "\n弧线第二点<标全长>:")) (IF (/= NIL P2) (PROGN (IF (and (>= (VLAX-CURVE-GETPARAMATPOINT VENT P2) PARAM ) (<= (VLAX-CURVE-GETPARAMATPOINT VENT P2) PARAM2 ) ) (PROGN (SETQ LS2 (* LFAC (VLAX-CURVE-GETDISTATPARAM VENT (VLAX-CURVE-GETPARAMATPOINT VENT P2 ) ) ) ) (SETQ LS (ABS (- LS2 LS1))) (SETQ LS (RTOS LS 2 DEC)) (cond ((= ps "N") (setq Ls LS)) ((= ps "O") (setq Ls (StrCat "\{\\Fgdt.shx|c0;^\}\\P" ls ) ) ) ((= ps "F") (setq Ls (StrCat "\{\\Fgdt.shx|c0;^\}" ls ) ) ) ) (COMMAND "DIMANGULAR" "" CENTER P1 P2 "T" LS ) (SETQ FLAG NIL) (SETQ FLAGF NIL) ) (IF (and (< (VLAX-CURVE-GETPARAMATPOINT VENT P2 ) PARAM ) (/= nil (VLAX-CURVE-GETPARAMATPOINT VENT P2 ) PARAM ) ) (PROGN (SETQ LS2 (* LFAC (VLAX-CURVE-GETDISTATPARAM VENT PARAM ) ) ) (SETQ LS (ABS (- LS2 LS1))) (SETQ LS (RTOS LS 2 DEC)) (cond ((= ps "N") (setq Ls LS)) ((= ps "O") (setq Ls (StrCat "\{\\Fgdt.shx|c0;^\}\\P" ls ) ) ) ((= ps "F") (setq Ls (StrCat "\{\\Fgdt.shx|c0;^\}" ls ) ) ) ) (COMMAND "DIMANGULAR" "" CENTER P1 STAPT "T" LS ) (SETQ FLAG NIL) (SETQ FLAGF NIL) ) (IF (> (VLAX-CURVE-GETPARAMATPOINT VENT P2 ) PARAM2 ) (PROGN (SETQ LS2 (* LFAC (VLAX-CURVE-GETDISTATPARAM VENT PARAM2 ) ) ) (SETQ LS (ABS (- LS2 LS1))) (SETQ LS (RTOS LS 2 DEC)) (cond ((= ps "N") (setq Ls LS)) ((= ps "O") (setq Ls (StrCat "\{\\Fgdt.shx|c0;^\}\\P" ls ) ) ) ((= ps "F") (setq Ls (StrCat "\{\\Fgdt.shx|c0;^\}" ls ) ) ) ) (COMMAND "DIMANGULAR" "" CENTER P1 endpt "T" LS ) (SETQ FLAG NIL) (SETQ FLAGF NIL) ) (if (= nil (VLAX-CURVE-GETPARAMATPOINT VENT P2 ) ) (PRINC "\n 请确认所选择的点在对应的圆弧上！" ) ) )
 )
 ) ) (PROGN (SETQ LS (* LFAC (VLAX-CURVE-GETDISTATPARAM VENT (VLAX-CURVE-GETENDPARAM VENT) ) ) ) (SETQ LS (RTOS LS 2 DEC)) (cond ((= ps "N") (setq Ls LS)) ((= ps "O") (setq Ls (StrCat "\{\\Fgdt.shx|c0;^\}\\P" ls ) ) ) ((= ps "F") (setq Ls (StrCat "\{\\Fgdt.shx|c0;^\}" ls) ) ) ) (COMMAND "DIMANGULAR" "" CENTER STAPT ENDPT "T" LS ) (SETQ FLAG NIL) (SETQ FLAGF NIL) ) ) ) (SETQ FLAG NIL) (SETQ FLAGF NIL) ) (PRINC "\n 请确认所选择的点在对应的圆弧上！") ) ) (PROGN (SETQ LS1 (* LFAC (VLAX-CURVE-GETDISTATPARAM VENT PARAM ) ) LS2 (* LFAC (VLAX-CURVE-GETDISTATPARAM VENT PARAM2 ) ) ) (SETQ LS (ABS (- LS2 LS1))) (SETQ LS (RTOS LS 2 DEC)) (cond ((= ps "N") (setq Ls LS)) ((= ps "O") (setq Ls (StrCat "\{\\Fgdt.shx|c0;^\}\\P" ls)) ) ((= ps "F") (setq Ls (StrCat "\{\\Fgdt.shx|c0;^\}" ls)) ) ) (COMMAND "DIMANGULAR" "" CENTER STAPT ENDPT "T" LS) (SETQ FLAG NIL) (SETQ FLAGF NIL) ) ) ) (SETVAR "cmdecho" OLDCMD) (SETVAR "osmode" OLDOSMODE) ) (PRINC "\n 请确认所选择的是圆弧！") ) ) ) (SETQ FLAGF NIL) ) ) (PRINC) )
 ;;;;连续标注 (DEFUN C:DSC (/ LFAC DEC ENT ENTNAME ENTLIST LS LS1 LS2 PICKPOINT STAPT ENDPT CENTER DPS DPE P1 P2 ANG OLDCMD OLDOSMODE FLAG FILTER TEMPT DIST SSENT VENT COUNT ISIT FLAGF ) (SETQ OLDCMD (GETVAR "cmdecho")) (SETQ OLDOSMODE (GETVAR "osmode")) (SETQ LFAC (GETVAR "dimlfac")) (SETQ DEC (GETVAR "DIMDEC")) (SETVAR "cmdecho" 0) (SETVAR "osmode" 15359) (SETQ FLAGF T) (WHILE FLAGF (SETQ ENT (ENTSEL "\n选择连续标注:")) (IF (/= NIL ENT) (PROGN (SETQ ENTNAME (CAR ENT)) (SETQ PICKPOINT (NTH 0 (CDR ENT))) (SETQ ENTLIST (ENTGET ENTNAME)) (IF (= (CDR (ASSOC 100 (REVERSE ENTLIST))) "AcDb3PointAngularDimension" ) (PROGN (SETQ TEMPT (CDR (ASSOC 10 ENTLIST))) (SETQ CENTER (CDR (ASSOC 15 ENTLIST))) (SETQ DIST (DISTANCE CENTER TEMPT)) (SETQ STAPT (CDR (ASSOC 13 ENTLIST))) (SETQ ENDPT (CDR (ASSOC 14 ENTLIST))) (SETQ DPS (DISTANCE PICKPOINT STAPT) DPE (DISTANCE PICKPOINT ENDPT) ) (COND ((<= DPS DPE) (SETQ P1 STAPT)) ((> DPS DPE) (SETQ P1 ENDPT)) ) (SETQ FLAG T) (WHILE FLAG (SETQ P2 (GETPOINT "\n指定第二条尺寸界线原点<退出>:" ) ) (IF (/= NIL P2) (PROGN (SETQ TEMPT (LIST (/ (+ (CAR P2) (CAR P1)) 2.0) (/ (+ (CADR P2) (CADR P1)) 2.0) ) ) (SETQ TEMPT (POLAR CENTER (ANGLE CENTER TEMPT) DIST)) (SETQ FILTER (LIST (CONS 0 "ARC"))) (SETQ FILTER (APPEND FILTER (LIST (CONS 10 CENTER)))) (SETQ SSENT (SSGET "x" FILTER)) (SETQ COUNT 0 ISIT 0 ) (REPEAT (SSLENGTH SSENT) (SETQ VENT (CDR (CAR (ENTGET (SSNAME SSENT COUNT)))) ) (SETQ VENT (VLAX-ENAME->VLA-OBJECT VENT)) (IF (VLAX-CURVE-GETPARAMATPOINT VENT P1) (SETQ ISIT COUNT) ) (SETQ COUNT (1+ COUNT)) ) (SETQ VENT (CDR (CAR (ENTGET (SSNAME SSENT ISIT))))) (SETQ VENT (VLAX-ENAME->VLA-OBJECT VENT)) (IF (VLAX-CURVE-GETPARAMATPOINT VENT P2) (PROGN (SETQ LS1 (* LFAC (VLAX-CURVE-GETDISTATPARAM VENT (VLAX-CURVE-GETPARAMATPOINT VENT P1) ) ) ) (SETQ LS2 (* LFAC (VLAX-CURVE-GETDISTATPARAM VENT (VLAX-CURVE-GETPARAMATPOINT VENT P2) ) ) ) (SETQ LS (ABS (- LS2 LS1))) (SETQ LS (RTOS LS 2 DEC)) (cond ((= ps "N") (setq Ls LS)) ((= ps "O") (setq Ls (StrCat "\{\\Fgdt.shx|c0;^\}\\P" ls)) ) ((= ps "F") (setq Ls (StrCat "\{\\Fgdt.shx|c0;^\}" ls)) ) ) (COMMAND "DIMANGULAR" "" CENTER P1 P2 "T" LS TEMPT ) (SETQ P1 P2) ) ) (PRINC "\n 请确认所选择的点在对应的圆弧上！") ) (IF (= NIL P2) (SETQ FLAG NIL) ) ) ) (SETQ FLAGF NIL) (SETVAR "cmdecho" OLDCMD) (SETVAR "osmode" OLDOSMODE) (PRINC) ) (PRINC "\n 请确认所选择的是弧长标注！") ) ) ) ) (PRINC) )
;;;判断多段线是否有圆弧(凸度/=0)的子段 (defun checkarc (ename / bu obj plist n) (setq obj (vlax-ename->vla-object ename)) (setq plist (vlax-safearray->list (vlax-variant-value (vla-get-coordinates obj) ) ) ) (setq n 0 bu nil ) (repeat (/ (length plist) 2) (if (/= (vla-getbulge obj n) 0) (setq bu T) ) (setq n (+ n 1)) ) bu ) ;;;;; (PRINC "\n 弧长标注 启动命令:DS 连续标注:DSC" )

zqvip · 发表于 2005-5-23 12:29:00

回33288﹐好像CAD里面不能加載FAS格式哦﹐請告知安裝方法

332888 · 发表于 2005-5-23 15:43:00

<DIV class=quote>以下是引用zqvip在2005-5-23 12:29:40的发言： 
回33288，好像CAD里面不能加载FAS格式哦，请告知安装方法</DIV>
 健哥： 基本上CAD除了可加载常见的LSP、VLX、ARX档之外，尚可加载FAS、DVB、 DBX等格式应用程序。 我上传一张图片供参考。

332888 · 发表于 2005-5-24 10:31:00

<DIV class=quote>以下是引用zqvip在2005-5-23 16:03:48的发言： 您自己有没有测试过，</DIV>
 测试过了。先载入FAS程序

接着载入VLX程序

载入载入成功后版权说明(简体版)

zqvip · 发表于 2005-5-24 11:16:00

哈﹐太感謝了﹐加載成功﹐但它是簡體版 ﹐健哥的電腦是繁體版 ﹐朋友您有沒有好用的CAD外挂件﹐健哥的QQ﹕107734875﹐可以分享嗎﹐TKS!

332888 · 发表于 2005-5-24 16:31:00

再上传一个DWG档加密程序。 DWG档经过加密后只能查询无法修改。 ****执行此程序前请先将原图档备份，否则后果自行负责。**** ****因为目前还未找到解密方法**** 
<DIV class=quote>以下是引用zqvip在2005-5-24 11:16:05的发言： 哈，太感谢了，加载成功，但它是简体版，健哥的电脑是繁体版，朋友您有没有好用的CAD外挂件，健哥的QQ：107734875，可以分享吗，TKS!</DIV> 我不用QQ，刚开始收集CAD外挂件，如有好的程序我会贴上来和大家分享

abcsdp · 发表于 2005-7-12 17:17:00

健哥,“第四個>>像似PressCAD的軟件 ” 有无中文版式,是否扶持CAD2005 版本啊？

yanxizao00 · 发表于 2005-9-27 10:51:00

建哥
这些外挂有的要英文CAD有的又是简体外挂,
1)可以同时安装在英文CAD2005下么??
急切等待回复!!!![em01][em01]

tony268c · 发表于 2005-10-10 22:00:00

键哥,先谢了! 好是好,第五个展开弧长时同83楼,105楼朋友一样有问题,如何解呀?
一并谢过140楼332888的标注贴,我找了好久.
强顶...!

zoushengbin123 · 发表于 2006-1-4 09:45:00

谢谢。不过我发现展开（ｚｃ）程序好像对Ｒ角有限制，能否改进一下啊？谢谢先

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

申请者注册名：		*默认获取当前用户名
性别：	男女
年龄：		*请填写您的真实年龄
职业：		*请填写您当前的职业
申请版区名称：		*请选择您申请的版区
联系电话：		*请填写您的联系电话，此项必填！
我的QQ：		*请填写您的QQ，此项必填！
我的专业特长：		*请填写您的特长领域
申请理由：		*请填写您为什么要申请的理由
管理措施：		*您准备以何种措施管理申请的版块？

模具設計的幫手CAD外挂不斷增加中,請密切關注

本帖子中包含更多资源

浏览过的版块

招聘信息 /5

求职信息 /5

技术求助 /5

×