cad图纸合并小程序出现429错误

原因是 *** 作系统的dao350dll文件注册不成功造成的。

手动注册此文件即可解决此问题，点击开始、运行，在d出的输入框中键入以下命令regsvr 32 ' c ： \ Program Files \ Common Files \ Microsoft Shared \ Dao \ Dao 360 dll '然后按回车键。请注意必须添加引号。如果提示429错误，您可以再次手动注册。

修改图元为当前图层：

CAD *** 作方法

autolisp程序内容（注意是英文打字）：

;修改图元为当前图层,命令为：XG

(defun C:XG ( / &k1 &kw1 &ob1 &ss1 &tc1)

(setvar "cmdecho" 0)

(setvar "blipmode" 0)

(if (null vlax-dump-object) (vl-load-com) )

(setq &tc1 (getvar "clayer"))

(if (setq &kw1 (ssget))

(progn

 (while (setq &k1 (ssname &kw1 0))

  (setq &kw1 (ssdel &k1 &kw1))

  (setq &ob1 (vlax-ename->vla-object &k1))

  (vla-put-layer &ob1 &tc1)

 );while

)

)

(princ)

)

(defun c:tes ( / #k1 %k1 %k2 &k1 &kw1)

 (if (setq &k1 (entsel "\n请选择参考圆"))

  (progn

   (setq #k1 (entget (car &k1)) &k1 (cdr (assoc 0 #k1)));取得图元名

   (if (= &k1 "CIRCLE");如果是圆

    (progn;那么

     (setq %k1 (assoc 40 #k1));取得圆半径

     (if (setq &kw1 (ssget '((0  "CIRCLE"))));框选圆

      (progn

       (setq &k1 (ssname &kw1 0))

       (while &k1

        (setq &kw1 (ssdel &k1 &kw1)

              #k1 (entget &k1)

              %k2 (assoc 40 #k1)

              #k1 (subst %k1 %k2 #k1);圆半径替换为参考圆半径

        )

        (entmod #k1)

        (setq &k1 (ssname &kw1 0))

       );while

      )

     );if3

    )

   );if2

  )

 );if1

 (princ)

);复制到记事本，以lsp为后缀命名。autoLISP加载了，命令：tes

以上就是关于cad图纸合并小程序出现429错误全部的内容，包括:cad图纸合并小程序出现429错误、求在CAD中快速的将已知图元变更为 当前图层的图元的AUtoLISP小程序、CAD LISP程序，求高手帮忙。写个小程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！