[求助]vla-open 开新图后LISP命令发送到新图

nonsmall

使用

(setq doc_now(vla-open (vla-get-documents (vlax-get-acad-object)) dwg))

命令后 新图开启 但是sendcommand使用后仍然是在原图上执行

请问LISP怎么才能在新图中执行命令和操作??

其实我是要做批打印 现在处理不下去了 请教

狂刀lxx

这种情况用vba或scr吧

caoyin

用 vla-Activate 方法激活 doc_now 文档

nonsmall

置为当前结果 command 和sendcommand都不能用了

  (setq docs (vla-get-documents (vlax-get-acad-object)))
  (setq name (vla-get-name (vla-item docs 0)))
  (setq doc_now(vla-open docs "d:\\1.dwg"))
  (vla-Activate doc_now)
  (command "line" '(0 0) '(100 100))
  (vla-sendcommand doc_now (strcat "test" "\r")))

Andyhon

Lisp 的先天限制,另寻他道吧

wwwliuyu

用.NET编程吧,经过两个星期的学习发现,.NET编程也不是很难学,只苦就是没有中文帮助.

nonsmall

 (vla-sendcommand doc_now (strcat "test" "\r")))

这句执行后会自动切换到doc_now图档

怎么能不切换过去 或者能自动切换回来呢

这样就能实现了

happyboy75

关注 希望有好的解决办法

zcl_()

老哥，你这个问题解决没有？我现在也遇到了。。。