用于在autocad中将材质（bmp、jpeg）附着到图层的vba

jbuzbee · 发表于 2008-7-1 09:02:59

有人能帮我在vba中编写代码，将材料（bmp、jpeg）附着到autocad中的图层吗；并在单击按钮时进行渲染。这很紧急

jbuzbee · 发表于 2008-7-1 10:05:13

到目前为止你有什么？

jbuzbee · 发表于 2008-7-1 12:41:30

嘿，Sham，我已经手动完成了这些事情，但从来没有自动完成这个过程，我同意CM，cna，你给我们展示一下你的想法；到目前为止你做了什么

jbuzbee · 发表于 2008-7-1 14:11:38

无法#039；不要走开，以前叫ML的成员
通过会员请求删除了第一人称引用，暂时删除了第一个人引用，但至少恢复了我帖子的部分意图

jbuzbee · 发表于 2008-7-2 16:42:47

鲍勃，你的意图是什么
我的目的是提高我的CAD技能，并尽可能多地帮助他人
我不&#039；不要坚持仇恨
以后，请随时pvt我；而不是把与CAD无关的事情（如我的名字）放在帖子里
谢谢你Zep

jbuzbee · 发表于 2008-7-3 09:34:45

我不是&#039；我不知道直呼某人的名字等于仇恨&nbsp；无论你的下一个账户是什么，你都可以读到。

jbuzbee · 发表于 2008-8-7 01:44:12

这就是我让它在autcad2007中正常工作的地方，但在2005年出现了一些问题（defun c:pumat（/Lst sSet mLst cMat sCnt lCnt mCnt eCnt）
（vl load com）
；（setq Lst（列表）（“0”全局）
&nbsp&nbsp&nbsp&nbsp
&039；（“第1层”材料2）
&nbsp&nbsp&nbsp&nbsp
&nbsp&nbsp&nbsp&nbsp&nbsp；）；结束列表&nbsp&nbsp&nbsp&nbsp&nbsp；）；结束setq；（vl load com）
（if（setq-sSet（ssget&ux&039；（（0.*SOLID）））
；（progn）（setq sCnt 0 lCnt 0）&nbsp；（用于mat的vlax（vla get Materials）
<&nbsp&nbsp；（setqmlst（cons（vlagetnamemat）mlst））&nbsp&nbsp；）；结束vlax&nbsp；（foreach itm（mapcar和vlax ename-gt；vla对象）
（vl remove if和-039；listp
）
&nbsp&nbsp&nbsp&nbsp&nbsp；（如果（setq cMat（cadr（vla get Layer itm））Lst））
&nbsp&nbsp&nbsp&nbsp&nbsp；（if（成员cMat mLst）&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp；（如果（vl-catch-all-error-p（列出itm cMat））
<&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp；（setqlcnt（1+lcnt））&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp；（setq sCnt（1+sCnt））
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp；）；如果结束&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp；（如果（不是（成员cMat mCnt））
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp；（setq mCnt（cons cMat mCnt））&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp；）；如果结束&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp；）；如果结束&nbsp&nbsp&nbsp&nbsp&nbsp；（如果（不是（成员粘土eCnt））
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp；（setq eCnt（cons cLay eCnt））&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp；）；如果结束&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp；）；如果结束&nbsp&nbsp&nbsp&nbsp；）；结束foreach&nbsp；（如果（或（/=0 lCnt）（/=0（长度mCnt））（/=0（长度eCnt）））
&nbsp&nbsp；（progn
（原理==============错误列表=========）
&nbsp&nbsp；（如果（/=0（长度mCnt））
&nbsp&nbsp&nbsp；（progn（原理图中缺少以下材料：）
&nbsp&nbsp&nbsp&nbsp；（foreach mat mCnt（princ（strcat mat））
&nbsp&nbsp&nbsp&nbsp&nbsp；）；结束foreach&nbsp&nbsp&nbsp&nbsp；（普林斯）
&nbsp&nbsp&nbsp&nbsp；）；结束程序&nbsp&nbsp&nbsp；）；如果结束&nbsp&nbsp&nbsp；（如果（/=0（长度eCnt））
&nbsp&nbsp&nbsp；（progn（princ\n列表中缺少一些实体层：\ n）
&nbsp&nbsp&nbsp&nbsp；（foreach lay eCnt（princ（strcat））
&nbsp&nbsp&nbsp&nbsp&nbsp；）；结束foreach&nbsp&nbsp&nbsp&nbsp；（普林斯）
&nbsp&nbsp&nbsp&nbsp；）；结束程序&nbsp&nbsp&nbsp；）；如果结束&nbsp&nbsp；（如果（/=0 lCnt）
&nbsp&nbsp&nbsp&nbsp；（princ（strcat）“（itoa lCnt）”；我们在锁定层！\n）
&nbsp&nbsp&nbsp；）；如果结束&nbsp&nbsp；（主列表）======结束列表==============\n）
&nbsp&nbsp；（textscr）&nbsp&nbsp；）；结束程序&nbsp&nbsp；）；如果结束&nbsp&nbsp&nbsp&nbsp&nbsp；（princ（strcat材料适用于itoa sCnt）；的
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp；（itoa（sslength sSet））”；固体&燃气轮机&燃气轮机&quot；））
&nbsp；）；结束程序；（原理：未找到固体）
）；如果结束；（普林斯）；c结束：pumat