通用多文件选择

819534890

请点击此处下载

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

您的用户组是：游客

文件名称:mycad.zip 
下载次数:105  文件大小:2.02 KB 
下载权限: 不限 以上  [免费赚D豆]

昨天在明经CAD，看到一篇文章：使用.net开发ActiveX控件供lisp调用
（今天明经网站进不去，没找到链接地址）
受其启发，用vs 编了一个通用的多文件选择函数，不受CAD版本限制，函数见附件(dll文件)；

函数使用要求：
1、安装.net 4.0以上；
2、把dll文件copy到一个目录，找出.net安装目录中的regasm.exe (cad为64位的用regasm64.exe),
然后用 regasm /c mycad.dll 注册dll，即可使用。

以下是lisp调用代码：
(defun c:test()
(setq o (vlax-create-object "mycad.openmultifiles"))
;(vlax-invoke o "openfiles" "Excel文件(*.xls;*.xlsx)|*.xls;*.xlsx|所有文件|*.*") ;选择excel文件
(vlax-invoke o "openfiles" "DWG文件(*.dwg)|*.dwg|所有文件|*.*") ;选择CAD文件
)
以下是dll文件的代码（C#）

using System;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace mycad
{
    public class openmultifiles
    {
        public string[] openfiles(string fl)
        {
            string[] flist={};

            OpenFileDialog ofd = new OpenFileDialog();
            ofd.Filter = fl;
            ofd.ValidateNames = true;
            ofd.CheckPathExists = true;
            ofd.CheckFileExists = true;
            ofd.Multiselect = true;
            if (ofd.ShowDialog() == DialogResult.OK)
               flist = ofd.FileNames;

             return flist;
        }

    }
}

有了这个方法，很多的VS的功能都可以为CAD所用了！

Lisphk

感谢楼主，能把C++代码公布吗？

819534890

Lisphk 发表于 2017-4-21 23:10

是用vs的C#编写，已经补充了。

alliuyx

啥也不说了，感谢楼主分享哇！

yaokui25

啥也不说了，感谢楼主分享哇！

st788796

.Net 版本还是低点才适用更广吧

神秘将军

啥也不说了，感谢楼主分享哇！

kqqt6236

啥也不说了，感谢楼主分享哇！

哲人背影

编写的第一个程序，求修改。提示参数太多...
(defun c:chilun ()
  (setq p0 (getpoint "\n输入基点坐标p0："))
  (setq z (getdist "\n输入齿数z："))
  (setq m (getdist "\n输入模数m："))
  (setq b (getdist "\n输入齿宽b："))
  (setq n (getdist "\n输入齿轮厚度n："))
  (setq w (getdist "\n输入键槽宽度w："))
  (setq d (* m z))   ;分度圆直径
  (setq db (* d (cos (/ pi 9)))) ;基圆直径
  (setq da (* m (+ z 2)))  ;齿顶圆直径
  (setq df (* m (- z 2.5)))  ;齿根圆直径
  (setq l (/ (sqrt (- (* db db) (* w w)) 2)))
  (setq p1 (polar p0 (/ pi 2) (/ db 2)))
  (setq p2 (polar p0 (/ pi 2) (* db 0.6)))
  (setq p3 (polar p2 pi (/ w 2)))
  (setq p4 (polar p3 0 w))
  (setq p5 (polar p3 (* pi -0.5) 10))
  (setq p6 (polar p4 (* pi -0.5) 10))
  (setq p7 (polar p0 pi (* bd 2)))
  (setq p8 (polar p7 (/ pi 2) l))
  (setq p9 (polar p7 (/ pi 2) (* db 0.6)))
  (setq p10 (polar p7 (/ pi 2) (/ df 2)))
  (setq p11 (polar p7 (/ pi 2) (/ da 2)))
  (setq p12 (polar p11 pi b))
  (setq p13 (polar p10 pi b))
  (setq p14 (polar p13 (* pi -0.5) 3))
  (setq p15 (polar p14 pi (- n b)))
  (setq p16 (polar p9 pi n))
  (setq p17 (polar p8 pi n))
  (setq p18 (polar p7 (* pi -0.5) (/ db 2)))
  (setq p19 (polar p7 (* pi -0.5) (/ df 2)))
  (setq p20 (polar p7 (* pi -0.5) (/ da 2)))
  (setq p21 (polar p20 pi b))
  (setq p22 (polar p19 pi b))
  (setq p23 (polar p22 (/ pi 2) 3))
  (setq p24 (polar p23 pi (- n b)))
  (setq p25 (polar p18 pi n))
  (setq p26 (polar p0 0 (+ (* db 0.5) 10)))
  (setq p27 (polar p0 (/ pi 2) (+ (* db 0.6) 10)))
  (setq p28 (polar p0 pi (+ (* db 0.5) 10)))
  (setq p29 (polar p0 (* pi -0.5) (+ (* db 0.5) 10)))
  (setq p30 (polar p7 0 10))
  (setq p31 (polar p7 pi (+ n 10)))
  (setq p32 (polar p30 (* pi -0.5) (/ (* m z) 2)))
  (setq p33 (polar p32 pi (+ b 20)))
  (setq p34 (polar p30 (/ pi 2) (/ (* m z) 2)))
  (setq p35 (polar p34 pi (+ b 20)))
  (setq p36 (polar p9 (* pi 0.7) 1))
  (setq p37 (polar p19 (* pi 0.7) 1))
  (command "layer" "M" "zhongxin" "C" 1 "" "L" "Center" "" "LW" 0.1 ""
    "")
  (command "line" p26 p28 "")
  (command "line" p27 p29 "")
  (command "layer" "M" "cuxian" "")
  (command "lweight" 0.3)
  (command "circle" "p0" (/ db 2))
  (command "pline" p5 p3 p4 p6 "")
  (command "zoom" "e")
  (command "trim" "All" "" "p2" "p5" "p6" "")
  (command "layer" "M" "zhongxin" "C" 1 "" "L" "Center" "" "LW" 0.1 ""
    "")
  (command "line" p30 p31 "")
  (command "line" p32 p33 "")
  (command "line" p34 p35 "")
  (command "layer" "M" "cuxian" "")
  (command "lweight" 0.3)
  (command "line" p11 p20 p21 p23 p24 p15 p14 p12 "c")
  (command "line" p10 p13 "")
  (command "line" p9 p16 "")
  (command "line" p8 p17 "")
  (command "line" p18 p25 "")
  (command "line" p19 p22 "")
  (command "line" p19 p22 "")
  (command "bhatch" "p" "ansi31" 1.5 0 "p36" "")
  (command "bhatch" "p" "ansi31" 1.5 0 "p37" "")
)

哲人背影

谢谢

yjch

啥也不说了，感谢楼主分享哇！

1028882406@qq.c

感谢楼主，分享，支持下