cad.net 动态编译生成命令
任务需求
首先问你一个问题,
如果你要用命令改图元颜色,那么cad有256个颜色,
你需要写256个命令来达到目的吗?
答案:当然不,程序员都是喜欢偷懒的.
那么如何实现呢?看本文就知道了.
Lisp和c#的例子有点相似,都是利用了解释器进行动态编译.
由于想要尽可能兼容所有cad版本,就不采用AddCommand函数,因为低版本没有.
Arx的例子就有点不一样了,
任何版本都有AddCommand函数,触发命令后在函数做对应的操作即可.
至于C#能不能利用 [DllImport "acad.exe" Entpoint ="??"]
调用内置arx的AddCommand函数,我就不知道了.
有知道的可以留言.
那它有什么可拓展的方向呢?
可以写配置文件,作为快速定义命令的文件.
例如:
ls1,螺栓1,./标准/模块.dwg,5,10
ls2,螺栓2,./标准/模块.dwg,6,20
ls3,螺栓3,./标准/模块.dwg,7,30...
命令,块名,工具箱某个目录下的dwg文件,插入时候的颜色,动态块拉伸距离(m10螺栓直径)
我们只需要修改这个配置文件就可以配置多个插入的图块.
Lisp例子
;;;desc:修改对象颜色
(apply
'(lambda ( / cishu feilingyanse) ;匿名函数( 传递变量 / 局部变量 )
(setq cishu 0) ;设置循环次数初始值
(repeat 255 ;循环次数代表颜色数量
(setq cishu (1+ cishu) ;循环计数
feilingyanse (itoa cishu) ;循环数转化成字符串
)
(eval ;求值运行程序
(read ;去掉双引号,返回整个程序
(strcat ;合并多个字符串
"(defun c:"
feilingyanse ;颜色
" ()(BF-yansemokuai "
feilingyanse
" ))"
);注意反义斜杠能去掉引号作用
)
)
)
)
nil ;匿名函数,空参数
)
;;;name:BF-yansemokuai
;;;desc:修改颜色的模板
;;;arg:
;;;return:
;;;example:(BF-yansemokuai 5)
(defun BF-yansemokuai(tuyuanyanse / ss)
;(BF-GO (list 'cmdecho 0) nil 1);出错编组
(if (setq ss (ssget))
(progn
(command "change" ss "" "p" "c" tuyuanyanse "")
;;;现在使用命令模式,因vla-put-Color在在位编辑的时候会修改块外.
;;;(setq ss (BF-ss->vlass ss));转为vla对象
;;;(vlax-for ^se ss ;循环体
;;; (vla-put-Color ^se tuyuanyanse) ;修改颜色
;;;);这里会修改到块外面的东西
)
)
;(BF-End);调用恢复错误处理
)
C#例子
生成字符串
#if !HC2020
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.EditorInput;
using Acap = Autodesk.AutoCAD.ApplicationServices.Application;
#else
using GrxCAD.DatabaseServices;
using GrxCAD.EditorInput;
using GrxCAD.Geometry;
using GrxCAD.ApplicationServices;
using Acap = GrxCAD.ApplicationServices.Application;
#endif
using System;
using System.Text;
using JoinBoxCurrency;
// 要注意此cs文件的命名空间/类名
// 与动态编译字符串关联的,要修改的时候记得一起改.
//AutoGo.JoinBoxEnName = "JoinBox"
namespace JoinBox {
public class DynamicEntityColor : IAutoGo
{
const string DynamicStr = nameof(DynamicEntityColor);
public Sequence SequenceId()
{
return Sequence.Last;
}
public void Terminate()
{
try
{
AppDomain.CurrentDomain.AssemblyResolve -= RunTimeCurrentDomain.DefaultAssemblyResolve;
}
catch
{
System.Windows.Forms.MessageBox.Show($"动态编译{DynamicStr}卸载出错", "惊惊连盒");
}
}
// 动态编译命令
public void Initialize()
{
try
{
// 这个非常重要,不然报错找不到程序集
AppDomain.CurrentDomain.AssemblyResolve += RunTimeCurrentDomain.DefaultAssemblyResolve;
var code = new StringBuilder();
for (int i = 0; i < 256; i++)
{
AddDynamicCommand(i.ToString(), code);
}
DynamicAssembly.Go(code, DynamicStr);
}
catch (Exception e)
{
Editor ed = Acap.DocumentManager.MdiActiveDocument.Editor;//命令栏交互
ed.WriteMessage(Environment.NewLine + $"动态编译{DynamicStr}出错::" + e.Message);
}
}
/// <summary>
/// 生成编译的命令部分的字符串
/// </summary>
/// <param name="command">命令</param>
private void AddDynamicCommand(string command, StringBuilder code)
{
code.Append("[CommandMethod(\"");
code.Append(command);
code.Append("\", CommandFlags.Modal | CommandFlags.UsePickSet | CommandFlags.Redraw | CommandFlags.DocExclusiveLock)]");
code.Append("public static void ");
code.Append($"{DynamicStr}FuncName" + command);
code.Append("(){");
code.Append(AutoGo.JoinBoxEnName);
code.Append($".{DynamicStr}.CommandChangeEntityColor(\"{command}\");");
code.Append("}");
}
/// <summary>
/// 选择图元修改颜色
/// </summary>
/// <param name="dwgPath"></param>
public static void CommandChangeEntityColor(string colorIndex)
{
Editor ed = Acap.DocumentManager.MdiActiveDocument.Editor;//命令栏交互
Database db = HostApplicationServices.WorkingDatabase;//当前的数据库
ed.WriteMessage("\r\n这是动态编译的修改图元颜色哟,颜色是::" + colorIndex);
var psr = ed.GetSelection();//手选
if (psr.Status != PromptStatus.OK)
return;
db.Action(tr =>
{
foreach (var item in psr.Value.GetObjectIds())
{
var ent = tr.GetObject(item, OpenMode.ForWrite) as Entity;
if (ent != null)
{
ent.ColorIndex = int.Parse(colorIndex);
}
}
});
}
}
}
进行编译
#if !HC2020
using Autodesk.AutoCAD.EditorInput;
using Acap = Autodesk.AutoCAD.ApplicationServices.Application;
#else
using GrxCAD.EditorInput;
using Acap = GrxCAD.ApplicationServices.Application;
#endif
using System;
using System.CodeDom.Compiler;
using System.IO;
using System.Text;
using Microsoft.CSharp;
namespace JoinBox
{
public class DynamicAssembly
{
/// <summary>
/// 开始进行编译
/// </summary>
/// <param name="midCode">中间的代码段</param>
/// <param name="dynamicStr">命名空间的字符串</param>
public static void Go(StringBuilder midCode, string dynamicStr)
{
//生成驻留内存的动态程序集
var pars = new CompilerParameters
{
CompilerOptions = "/target:library /optimize", //编译器选项
GenerateExecutable = false, //生成可执行文件
GenerateInMemory = true //在内存中生成
};
var acpath = new DirectoryInfo(AppDomain.CurrentDomain.BaseDirectory); //获取当前cad运行路径 "C:\\Program Files (x86)\\AutoCAD 2008\\"
var asslst = pars.ReferencedAssemblies; //添加引用
//获取程序集的位置
string configPathAll = Assembly.GetExecutingAssembly().CodeBase
.Substring(8, codeBase.Length - 8); // 8是file:// 的长度
asslst.Add(configPathAll); //当前的dll的路径 "G:/K01.惊惊连盒/net35/JoinBox.dll"
string st = acpath.ToString();
#if !HC2020
asslst.Add(st + @"\acdbmgd.dll");
asslst.Add(st + @"\acmgd.dll");
#else
asslst.Add(st + @"\gmap.dll");
asslst.Add(st + @"\gmdb.dll");
#endif
#if !HC2020 && !AC2008 && !AC2009 && !AC2010 && !AC2011 && !AC2012
asslst.Add(st + @"\accoremgd.dll");
#endif
var code = new StringBuilder();
code.Append("using System;");
code.Append("using System.Reflection;");
code.Append("using System.Collections.Generic;");
code.Append("using System.IO;");
code.Append("using System.Text;");
#if !HC2020
code.Append("using Autodesk.AutoCAD.Runtime;");
code.Append("using Autodesk.AutoCAD.ApplicationServices;");
code.Append("using Autodesk.AutoCAD.DatabaseServices;");
code.Append("using Autodesk.AutoCAD.EditorInput;");
code.Append("using Autodesk.AutoCAD.Geometry;");
#else
code.Append("using GrxCAD.Runtime;");
code.Append("using GrxCAD.ApplicationServices;");
code.Append("using GrxCAD.DatabaseServices;");
code.Append("using GrxCAD.EditorInput;");
code.Append("using GrxCAD.Geometry;");
#endif
code.Append($"using {AutoGo.JoinBoxEnName};");
code.Append($"namespace {AutoGo.JoinBoxEnName + dynamicStr}");//不给插入到相同命名空间内
code.Append("{");
code.Append("public partial class " + dynamicStr + "{");
code.Append(midCode);
code.Append("}}");
//编译
using (var comp = new CSharpCodeProvider())
{
var cr = comp.CompileAssemblyFromSource(pars, code.ToString());
if (cr.Errors.HasErrors)
{
Editor ed = Acap.DocumentManager.MdiActiveDocument.Editor;
ed.WriteMessage(Environment.NewLine + $"动态编译{dynamicStr}错误:");
foreach (CompilerError err in cr.Errors)
{
ed.WriteMessage(Environment.NewLine + err.ErrorText);
}
}
}
}
}
}
子函数
RunTimeCurrentDomain.DefaultAssemblyResolve:
运行域事件
事务db.Action:
委托的学习
IAutoGo接口:
cad.net IExtensionApplication接口的妙用
在位编辑器原理:
https://www.cnblogs.com/JJBox/p/11185185.html
Arx的例子
节选自edata聊天记录,我发现他博客没写过就拿过来了...
// 256个颜色命令
namespace JJBox命令 {
//获取变量
void GetVar(CString command, CString* sCmd)
{
struct resbuf var;
acedGetVar(command, &var);
//通过指针的方式存入内容
(*sCmd).Append(var.resval.rstring);
}
//颜色命令最后都会调用到这个组
void sk_ChColor()
{
CString sCmd;
GetVar(_T("CMDNAMES"), &sCmd);//获取是什么数字触发的.
if (sCmd == "")
return;
int nColor = _ttoi(sCmd);
if (nColor < 0 || nColor > 256)
return;
ads_name ss;
int nRet = acedSSGet(NULL, NULL, NULL, NULL, ss);
if (RTCAN == nRet)//取消
return;
if (RTNORM != nRet)//回车
{
//设置默认颜色
AcCmColor col;
col.setColorIndex(nColor);
acdbHostApplicationServices()->workingDatabase()->setCecolor(col);
}
Adesk::Int32 nSSLenght = 0;
acedSSLength(ss, &nSSLenght);
for (int i = 0; i < nSSLenght; i++)
{
ads_name ent;
AcDbObjectId objId;
acedSSName(ss, i, ent);
acdbGetObjectId(objId, ent);
AcDbEntityPointer pEnt(objId, AcDb::kForWrite);
if (Acad::eOk != pEnt.openStatus())
continue;
pEnt->setColorIndex(nColor);
}
}
//由于是顺序编译,所以这里的命令定义只能够放最下面
//定义颜色命令
void jjarx_AddCommands()
{
for (int i = 0; i <= 256; i++)
{
CString strCmdName;
strCmdName.Format(_T("%d"), i);
acedRegCmds->addCommand(_T("sk_ChColor"), strCmdName, strCmdName, ACRX_CMD_TRANSPARENT | ACRX_CMD_USEPICKSET, sk_ChColor);
}
}
}
(完)
