用于在autocad中将材质（bmp、jpeg）附着到图层的vba
有人能帮我在vba中编写代码，将材料（bmp、jpeg）附着到autocad中的图层吗；并在单击按钮时进行渲染。这很紧急到目前为止你有什么？
嘿，Sham，我已经手动完成了这些事情，但从来没有自动完成这个过程，我同意CM，cna，你给我们展示一下你的想法；到目前为止你做了什么
无法#039；不要走开，以前叫ML的成员
通过会员请求删除了第一人称引用，暂时删除了第一个人引用，但至少恢复了我帖子的部分意图
鲍勃，你的意图是什么
我的目的是提高我的CAD技能，并尽可能多地帮助他人
我不'；不要坚持仇恨
以后，请随时pvt我；而不是把与CAD无关的事情（如我的名字）放在帖子里
谢谢你Zep 我不是'；我不知道直呼某人的名字等于仇恨 ；无论你的下一个账户是什么，你都可以读到。 这就是我让它在autcad2007中正常工作的地方，但在2005年出现了一些问题（defun c:pumat（/Lst sSet mLst cMat sCnt lCnt mCnt eCnt）
（vl load com）
；（setq Lst（列表）（“0”全局）
    
&039；（“第1层”材料2）
    
     ；）；结束列表     ；）；结束setq；（vl load com）
（if（setq-sSet（ssget&ux&039；（（0.*SOLID）））
；（progn）（setq sCnt 0 lCnt 0） ；（用于mat的vlax（vla get Materials）
<  ；（setqmlst（cons（vlagetnamemat）mlst））  ；）；结束vlax ；（foreach itm（mapcar和vlax ename-gt；vla对象）
（vl remove if和-039；listp
）
     ；（如果（setq cMat（cadr（vla get Layer itm））Lst））
     ；（if（成员cMat mLst）      ；（如果（vl-catch-all-error-p（列出itm cMat））
<       ；（setqlcnt（1+lcnt））       ；（setq sCnt（1+sCnt））
       ；）；如果结束      ；（如果（不是（成员cMat mCnt））
       ；（setq mCnt（cons cMat mCnt））       ；）；如果结束      ；）；如果结束     ；（如果（不是（成员粘土eCnt））
      ；（setq eCnt（cons cLay eCnt））      ；）；如果结束      ；）；如果结束    ；）；结束foreach ；（如果（或（/=0 lCnt）（/=0（长度mCnt））（/=0（长度eCnt）））
  ；（progn
（原理==============错误列表=========）
  ；（如果（/=0（长度mCnt））
   ；（progn（原理图中缺少以下材料：）
    ；（foreach mat mCnt（princ（strcat mat））
     ；）；结束foreach    ；（普林斯）
    ；）；结束程序   ；）；如果结束   ；（如果（/=0（长度eCnt））
   ；（progn（princ\n列表中缺少一些实体层：\ n）
    ；（foreach lay eCnt（princ（strcat））
     ；）；结束foreach    ；（普林斯）
    ；）；结束程序   ；）；如果结束  ；（如果（/=0 lCnt）
    ；（princ（strcat）“（itoa lCnt）”；我们在锁定层！\n）
   ；）；如果结束  ；（主列表）======结束列表==============\n）
  ；（textscr）  ；）；结束程序  ；）；如果结束     ；（princ（strcat材料适用于itoa sCnt）；的
        ；（itoa（sslength sSet））”；固体&燃气轮机&燃气轮机"；））
 ；）；结束程序；（原理：未找到固体）
）；如果结束；（普林斯）；c结束：pumat 我想你已经放弃使用vba了 wel stil正在寻找vba版本的代码。为autcad2005将材质附着到图层的步骤 帮我找到要连接的人；使用vba或lisp程序在autocad2005/2006中进行材料分层。急需。
页:
[1]
2