五金模板图分板程序

540998812@.com

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:ct1.rar 
下载次数:10  文件大小:4.14 KB 
下载权限: 不限 以上  [免费赚D豆]

(defun c:ct1 ()
   (setvar "cmdecho" 0)
   (setq dcl_id (load_dialog "ct1.dcl"))
   (if(< dcl_id 0) (exit))
   (if(not (new_dialog "ct1" dcl_id)) (exit))

     (setq x (dimx_tile "a1"))
     (setq y (dimy_tile "a1"))
     (start_image "a1")
     (fill_image 0 0  x y -2)
     (slide_image 0 0 x y "yx.sld")
     (end_image)

     (setq x (dimx_tile "a2"))
     (setq y (dimy_tile "a2"))
     (start_image "a2")
     (fill_image 0 0  x y -2)
     (slide_image 0 0 x y "fh.sld")
     (end_image)

   (action_tile "a3" "(done_dialog 1)")
   (action_tile "a4" "(done_dialog 2)")

   (setq dd (start_dialog))
    (unload_dialog dcl_id)
    (cond ((= dd 1)(c:cty))  ;
          ((= dd 2)(c:ctf))  ;
       )


  (princ "\n模板分层已完成")
  (princ)
)


功能：分模功能

(defun c:cty ()
  (setvar "cmdecho" 0)  

    (command "layer" "LO" "*" "")

    (command "layer" "U" "AC" "U" "AM" "U" "Af" "")
    (command "copy" "ALL" "" "0,0" "2000,2000");上模座

    (command "layer" "U" "Uf" "U" "UM" "U" "UC" "LO" "AC" "LO" "AM" "LO" "AF" "")
    (command "copy" "ALL" "" "0,0" "2000,1500");上垫板

    (command "layer" "U" "Hf" "U" "HM" "U" "HC" "LO" "UC" "LO" "UM" "LO" "UF" "")
    (command "copy" "ALL" "" "0,0" "2000,1000");固定板

    (command "layer" "U" "Kf" "U" "KM" "U" "KC" "LO" "HC" "LO" "HM" "LO" "HF" "")
    (command "copy" "ALL" "" "0,0" "2000,500");止高板

    (command "layer" "U" "Sf" "U" "SM" "U" "SC" "LO" "KC" "LO" "KM" "LO" "KF" "")
    (command "copy" "ALL" "" "0,0" "2000,0");脱料板

    (command "layer" "U" "Df" "U" "DM" "U" "DC" "LO" "sC" "LO" "sM" "LO" "sF" "")
    (command "copy" "ALL" "" "0,0" "2000,-500");凹模板

    (command "layer" "U" "Bf" "U" "BM" "U" "BC" "LO" "DC" "LO" "DM" "LO" "DF" "")
    (command "copy" "ALL" "" "0,0" "2000,-1000");下垫板

    (command "layer" "U" "Lf" "U" "LM" "U" "LC" "LO" "bC" "LO" "bM" "LO" "bF" "")
    (command "copy" "ALL" "" "0,0" "2000,-1500");下模座

    (command "layer" "U" "Pf" "U" "PM" "U" "PC" "LO" "LC" "LO" "LM" "LO" "LF" "")
    (command "copy" "ALL" "" "0,0" "2000,-2000");冲子层

    (command "layer" "U" "Nf" "U" "NM" "U" "NC" "LO" "pC" "LO" "pM" "LO" "pF" "")
    (command "copy" "ALL" "" "0,0" "2000,-2500");入块层

    (command "layer" "U" "*" "")
   (alert "欢迎您使用模板分层")
(PRINC)
)








(defun c:ctf ()
  (setvar "cmdecho" 0)

   (command "layer" "LO" "*" "")
    (command "layer" "U" "AC" "U" "AM" "U" "Af" "")
    (command "copy" "ALL" "" "0,0" "500,2000");上模座

    (command "layer" "U" "Uf" "U" "UM" "U" "UC" "LO" "AC" "LO" "AM" "LO" "AF" "")
    (command "copy" "ALL" "" "0,0" "500,1500");上垫板

    (command "layer" "U" "Hf" "U" "HM" "U" "HC" "LO" "UC" "LO" "UM" "LO" "UF" "")
    (command "copy" "ALL" "" "0,0" "500,1000");固定板

    (command "layer" "U" "Tf" "U" "TM" "U" "TC" "LO" "HC" "LO" "HM" "LO" "HF" "")
    (command "copy" "ALL" "" "0,0" "500,500");中空板

    (command "layer" "U" "Df" "U" "DM" "U" "DC" "LO" "TC" "LO" "TM" "LO" "TF" "")
    (command "copy" "ALL" "" "0,0" "500,0");凹模板

    (command "layer" "U" "Zf" "U" "ZM" "U" "ZC" "LO" "DC" "LO" "DM" "LO" "DF" "")
    (command "copy" "ALL" "" "0,0" "500,-500");下脱板

    (command "layer" "U" "Wf" "U" "WM" "U" "WC" "LO" "ZC" "LO" "ZM" "LO" "ZF" "")
    (command "copy" "ALL" "" "0,0" "500,-1000");下夹板

    (command "layer" "U" "Lf" "U" "LM" "U" "LC" "LO" "WC" "LO" "WM" "LO" "WF" "")
    (command "copy" "ALL" "" "0,0" "500,-1500");下模座
        (command "layer" "U" "*" "")


        (command "layer" "LO" "*" "")
    (command "layer" "U" "Rf" "U" "RM" "U" "RC" "LO" "PC" "LO" "PM" "LO" "PF" "")
    (command "copy" "ALL" "" "0,0" "1000,2000");打料板

    (command "layer" "U" "Qf" "U" "QM" "U" "QC" "LO" "RC" "LO" "RM" "LO" "RF" "")
    (command "copy" "ALL" "" "0,0" "1000,1500");内脱板

    (command "layer" "U" "Nf" "U" "NM" "U" "NC" "LO" "QC" "LO" "QM" "LO" "QF" "")
    (command "copy" "ALL" "" "0,0" "1000,1000");凸凹模
   (command "layer" "U" "*" "")
  (alert "欢迎您使用模板分层")
(PRINC)
)

炫翔

楼主这是啥意思？:o

sicky111

这样写程式不太好吧，如果模板宽度超过500，模板就重叠了。

540998812@.com

sicky111 发表于 2013-8-18 20:03
这样写程式不太好吧，如果模板宽度超过500，模板就重叠了。

那如何才能解决这个问题呢，请指点？
我的想法是点选图框左下角，再点 选图框右上角来计算长度和宽度，最后选取放置点，就把模板分离出来，请大师们指点，谢谢

CadPLus

540998812@.com 发表于 2013-8-20 13:20
那如何才能解决这个问题呢，请指点？
我的想法是点选图框左下角，再点 选图框右上角来计算长度和宽度， ...

1，分板复制不用关图层吧，直接用SSGET过滤模板图层选择
2，板间距离直接输入或者取模座尺寸加适当系数也可以

xvjiex

感谢楼主分享五金模板图分板程序！