有cad图形操作，用delphi编程。

youqiuyang

for ii:=0 to OpenDialog1.Files.Count -1 do
begin
//opendialog1.Filter:='cad 文件(*.dwg) | *.dwg|所有文件(*.*) |*.*';
szFile:=OpenDialog1.Files[ii]; CAD:=CreateOleObject('AutoCAD.Application');
Doc:=CAD.Documents.Open(szFile); 下面不会写了，要对这个文件实行删除两层tk层和tkmap层，然后把所有的图层都变成黑颜色。 求教斑主。因为不是专门搞cad的，所以这不会。 求救，help。不胜感激 文件再附件里面。

BDYCAD

噢! 你用 delphi 对CAD开发啦. 高手 , 我不会这门语言. 这里好少人用这个的,

youqiuyang

那能不能帮助我写个用vb完成同样的功能。删除两层，然后保存层dwg就可以了。



1、我能不能得到这个dwg的层数，然后做循环。把每层都设置为acblack，就可以。


2、我需要对这个thisdrawing删除两层。不知道怎么删除亚。


help


3、想是一次性可以批量很多幅图操作。

BDYCAD

我会LISP, 其它不了解. 不过图层是不可以删除的. 要删除图层的做法是:　 １，　先将要删去的图层上面的对象统统删除或转到其它不删的图层去． ２，　再调用ＣＡＤ的清理命令才可以清除那个要删的图层． 　请参见下面在ｌｉｓｐ程序在删除图层的做法 (DEFUN C:DLAYER()
(SETQ LNAME (GETSTRING "\n要删除的图层名:"))
(command ".erase" (ssget "x" (list (cons 8 LNAME)))""
"-layer" "s" "0" "" "purge" "la" LNAME "n"))

qustsummit

再对当前文档所有层遍历，查找到这个层，然后删除或做别的操作不就行了？

qustsummit

procedure TForm1.Button1Click(Sender: TObject);
var
cadApp:acadApplication;
cadLayer:acadLayer;
i:integer; begin
cadApp:=getActiveOleObject('autocad.application') as acadApplication;
for i:=0 to cadApp.ActiveDocument.Layers.Count-1 do
begin
cadLayer := cadApp.ActiveDocument.Layers.Item(i);
if ((cadLayer.Name='k2') or (cadLayer.Name='k3')) then
cadLayer.Delete
else
cadLayer.color:=acGreen;
end;
end;