冲压模具设计,跪求一个画图带属性的lisp，或者外挂
冲压模具设计,跪求一个画图带属性的lisp，或者外挂：因本人之前在FOX，用的冲模一厂的FOXPRESS-2012,里面的图元都不是块但是都带有属性的。今年辞职，在小厂做，没外挂，冲压模具结构图都是自己一个一个画的，也无法自动拆图,最主演是画的图形没属性,老是加工厂问,跪求大家给发个能定义图元加工属性的外挂，下面是我用的打开图层的代码:图层指令(defun c:N()(command "layer" "T" "*" "on" "*" ""))
(defun c:OP3()
(command "layer" "S" "HH" "OFF" "*" "N" ""))
(defun c:OP4()
(command "layer" "S" "BP" "OFF" "*" "N" ""))
(defun c:OP5()
(command "layer" "S" "PP" "OFF" "*" "N" ""))
(defun c:OP6()
(command "layer" "S" "PPLEAD" "OFF" "*" "N" ""))
(defun c:OS1()
(command "layer" "S" "SP" "OFF" "*" "N" ""))
(defun c:OS2()
(command "layer" "S" "SB" "OFF" "*" "N" ""))
(defun c:P5B()
(command "layer" "S" "UD" "OFF" "*" "N" ""))
(defun c:OD5()
(command "layer" "S" "DB" "OFF" "*" "N" ""))
(defun c:OD4()
(command "layer" "S" "CB" "OFF" "*" "N" ""))
(defun c:OD3()
(command "layer" "S" "DD" "OFF" "*" "N" ""))
(defun c:OD2()
(command "layer" "S" "CC" "OFF" "*" "N" ""))
(defun c:OD1()
(command "layer" "S" "DH" "OFF" "*" "N" ""))
(defun c:OP()
(command "layer" "S" "PPLEAD" "OFF" "*" "N" ""))
(defun c:OS4()
(command "layer" "S" "SPLEAD" "OFF" "*" "N" ""))
(defun c:OD()
(command "layer" "S" "DBLEAD" "OFF" "*" "N" ""))
(defun c:TP3()
(command "layer" "T" "HH" "S" "HH" ""))
(defun c:TP4()
(command "layer" "T" "BP" "S" "BP" ""))
(defun c:TP5()
(command "layer" "T" "PP" "S" "PP" ""))
(defun c:TS1()
(command "layer" "T" "SP" "S" "SP" ""))
(defun c:TS2()
(command "layer" "T" "SB" "S" "SB" ""))
(defun c:TS4()
(command "layer" "T" "SPLEAD" "S" "SPLEAD" ""))
(defun c:TP5B()
(command "layer" "T" "UD" "S" "UD" ""))
(defun c:TD5()
(command "layer" "T" "DB" "S" "DB" ""))
(defun c:TD4()
(command "layer" "T" "CB" "S" "CB" ""))
(defun c:TD3()
(command "layer" "T" "DD" "S" "DD" ""))
(defun c:TD2()
(command "layer" "T" "CC" "S" "CC" ""))
(defun c:TD1()
(command "layer" "T" "DH" "S" "DH" ""))
(defun c:TP()
(command "layer" "T" "PPLEDA" "S" "PPLEAD" ""))
(defun c:TD()
(command "layer" "T" "DDBLEAD" "S" "DBLEAD" ""))
(defun c:O2()
(command "layer" "S" "MATER" "OFF" "*" "N" ""))
(defun c:OUB()
(command "layer" "T" "*" "OFF" "*" "Y" "" "")
(command "layer" "on" "HP,UE,BB,BP,PP,PPLEAD,SB,SP,SPLEAD,UD" ""))
(defun c:ODB()
(command "layer" "T" "*" "OFF" "*" "Y" "" "")
(command "layer" "on" "DH,DE,CC,DD,CB,DB,OB,OP,DBLEAD,CBLEAD" ""))
(defun c:T2()
(command "layer" "T" "MATER" "S" "MATER" ""))
(defun c:ZE()
(COMMAND "ZOOM" "A" "" ))
(defun c:ODM()
(command "layer" "S" "DIM" "OFF" "*" "N" ""))
(defun c:TDM()
(command "layer" "T" "DIM" "S" "DIM" ""))
(defun c:T0()
(command "layer" "T" "0" "S" "0" ""))
(defun c:O0()
(command "layer" "S" "0" "OFF" "*" "N" ""))
**********************
(defun c:1 ()
(command "dimlinear")
)
(defun c:2 ()
(command "dimaligned")
)
(defun c:4 ()
(command "dimradius")
)
(defun c:5 ()
(command "dimdiameter")
)
(defun c:6 ()
(command "dimangular")
)
(defun c:8 ()
(command "dimordinate")
)
(defun c:9 ()
(command "QLEADER")
)
请各位不吝赐教，跪谢大家了.
cshimao 发表于 2016-1-11 11:33
师傅，能用2D设计出好的模具那才叫NB，当然用3D设计效率会高很多，用于模具设计的3D软件UG是最方便的。仅 ...
有些机箱类的模具反而2D效率更好，因为工艺都比较规则，反而是手机类，汽车模具类，必须用3D，因为2D压根都标示不出来那结构。感觉很失败，现在都不敢说我做冲压十几年，丢人啊。 pressCAD 和TPpress这我都用过，他们都是每个图层都是分什么线割层，铣床层，还有标注层，还有主层，有点高不懂。我现在也没用什么外挂，效率低点，其实也就那样。毕竟冲压模板就那些孔，要不就铣，要不就割。每次打开FOX图档提示缺少COREAPP,还有一个。没办法，这也是我永远的痛。 图元属性,是CAD二次开发的一个关键,这会是行业应用的一个重要节点.不是一般二次开发的人可以搞定的事情.
FOX的东西,外面厂用的很少,建议你用商用开发程度更高的PRESSCAD,或者个人版开发的TASIPRESSCAD,后者是前者的个人开发民用版,风格很像. (DEFUN C:SS(/ N1 N2 N3 N4 N5 N ENT)
(SETQ N1 (SSGET))
(SETVAR "CMDECHO" 0)
(COMMAND "_.UNDO" "BE")
;;; (SETQ N1 (SSGET))
(SETQ N2 (SSLENGTH N1))
(COMMAND "LAYER" "OFF" "*" "Y" "")
(SETQ N 0)
(WHILE (> N2 N)
(SETQ ENT (SSNAME N1 N))
(SETQ N3 (ASSOC 8 (SETQ N4 (ENTGET ENT))))
(SETQ N5 (CDR N3))
(COMMAND "LAYER" "ON" N5 "")
(COMMAND "LAYER" "SET" N5 "")
(SETQ N (+ 1 N))
)
(COMMAND "_.UNDO" "E"))
(defun C:GF(/ l9_ss l9_ent l9_lay l9_clay ii)
(princ "\n选取隐藏图层参考对象: ")
(setq l9_ss (ssget))
(setq l9_clay (getvar "clayer"))
(setq ii 0)
(command "-layer")
(repeat (sslength l9_ss)
(setq l9_ent (ssname l9_ss ii))
(setq l9_lay (cdr (assoc 8 (entget l9_ent))))
(if (/= l9_lay l9_clay)
(command "off" l9_lay)(command "off" l9_lay"y")
);end if
(setq ii (1+ ii))
);end repeat
(command "")
);end defun layoff
(defun c:cu(/ dq ss)
(setq dq (getvar "clayer"))
(setq ss (ssget))
(command "change" ss "" "p" "la" dq "")
(princ)
)
我就是靠这些来设计模具的，还请各位大侠帮忙，谢谢. F4164789 发表于 2015-6-16 18:12 static/image/common/back.gif
(DEFUN C:SS(/ N1 N2 N3 N4 N5 N ENT)
(SETQ N1 (SSGET))
(SETVAR "CMDECHO" 0)
这些都只是图层控制管理而已 fox-那天套东西，似乎外面有流传的。 外面有一个版本／我们用的是FoxPress／外挂是连着服务器的／服务器不开外挂就用不了／请问楼上／外挂是通过什么使图元带加工属性的／不是通过自定义块一一因为图元都可以单独删除的／有没有什么程序可以使我画的图元带加工属性/谢谢 用统赢也行呀!比你那个好用些.不过我现在都是全3D画模具了,2d只是拆图,所以统赢也不用了 请问楼上的,3D画模具用的什么软件，自己安装方便吗，软件收费贵吗，请指点一二,谢谢了 F4164789 发表于 2015-6-23 07:42 static/image/common/back.gif
请问楼上的,3D画模具用的什么软件，自己安装方便吗，软件收费贵吗，请指点一二,谢谢了
3D软件十几万的有，几万块的也有 F4164789 发表于 2015-6-23 07:42 static/image/common/back.gif
请问楼上的,3D画模具用的什么软件，自己安装方便吗，软件收费贵吗，请指点一二,谢谢了
我现在开始怀疑你是不是做模具设计的了
大致和你说下吧! 一般3D结构设计用UG 的最多,当然还有其他的 比喻 CATIA TopSolidVISI
2D现在画模具的少了,毕竟现在都流行汽车模,3D才是主流
钣金成型分析一般用 AutoForm 和 DynaForm 开玩笑,一毕业就开始搞,快10年了，在FOX做服务器机箱模i具的的,我们都用2D,能不用3D就不用3D