[测试]：關於ljssm大大的程序？

ljs026 · 发表于 2004-8-27 10:59:18

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:test ()
(vl-load-com)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(setq ent (entsel "\nSelect object on layer to copy from: "))
(setq lay (vla-get-layer (vlax-ename->vla-object (car ent))))
(cond
((setq ss (ssget))
(setq i 0)
(vla-StartUndoMark doc)
(repeat (sslength ss)
(vla-put-layer (vlax-ename->vla-object (ssname ss i)) lay)
(setq i (1+ i))
)
(vla-EndUndoMark adoc))
)
(vlax-release-object adoc)
(princ)
)
為何會出現; 錯誤: 損壞的引數類型: VLA-OBJECT nil？

lsjjm · 发表于 2004-8-28 09:13:20

变量adoc未定义. 应为doc.

ljs026 · 发表于 2004-8-28 18:36:47

謝謝大大！已解決了

账号		自动登录	找回密码
密码			立即注册

[测试]：關於ljssm大大的程序？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块