[求助]：vla-copyobjects 怎么没办法拷贝标注?

aeo · 发表于 2006-10-11 23:23:36

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

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

×

vla-copyobjects 怎么没办法拷贝标注?
其他的比如块都正常,就标注不行,有谁试过可以吗?

LUCAS · 发表于 2006-10-13 12:24:49

(defun XL->OBJSAFEARR (LST)
(vlax-safearray-fill
(vlax-make-safearray
vlax-vbobject
(cons 0 (1- (length LST)))
)
LST
)
)

雨箭风刀 · 发表于 2006-10-12 03:17:17

没有问题啊
[php]
(defun c:tt ()
  (setq ss  (ssget)
      lst nil
      i -1
  )
  (setq *doc (vla-get-activedocument (vlax-get-acad-object)))
  (while (setq e (ssname ss (setq i (1+ i)))) (setq lst (cons e lst)))
  (setq ss2 (vla-copyobjects *doc (xl->objsafearr (mapcar 'vlax-ename->vla-object lst))))
)
[/php]

dwg001 · 发表于 2006-10-12 12:32:55

tt
选择对象: 找到 1 个
选择对象: 找到 1 个，总计 2 个
选择对象:
错误 : no function definition: XL->OBJSAFEARR

雨箭风刀 · 发表于 2006-10-12 21:15:21

只是给个过程，XL->OBJSAFEARR 是选集列表转变体实体数组的函数，可以自己写的

雨箭风刀 · 发表于 2006-10-13 14:18:06

龙龙仔强阿，一字不差

LUCAS · 发表于 2006-10-13 16:23:56

Vlisp都是死板板的,差一字都不行用! 8-)

aeo · 发表于 2006-10-13 22:34:40

最初由雨箭风刀发布
[B]没有问题啊
[php]
(defun c:tt ()
  (setq ss  (ssget)
      lst nil
      i -1
  )
  (setq *doc (vla-get-activedocument (vlax-get-acad-object)))
  (while (setq e (ssname ss (setq i (1+ i))... [/B]

没说完全!

当前图当然可以,这个图拷贝到其他图

当前图还不如 (command "copy")

雨箭风刀 · 发表于 2006-10-14 02:45:16

那你提出问题的时候就应该说明！
另请明确，跨文档的类型，其他图是已经打开的图形，还是不打开图形拷贝？

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

[求助] [求助]：vla-copyobjects 怎么没办法拷贝标注?

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

相关帖子