2013-06-01 QQ群：ALISP＆VLISP(143438137) 聊天记录：谢谢你，贴代码时候 把代码放在 [code=lisp][/code]之间

CCarch

牵ぶ伱の佑手(379002274)于2013-06-01 23-03-56：
; 错误: Automation 错误。未提供说明。

CCarch

牵ぶ伱の佑手(379002274)于2013-06-01 23-04-22：
我上面的命令是我想用vla做一个打印所有布局里的图

CCarch

牵ぶ伱の佑手(379002274)于2013-06-01 23-04-26：
可是出错

CCarch

'鍢∞鍢(19162203)于2013-06-01 23-08-28：
load-com是什么意思？

CCarch

牵ぶ伱の佑手(379002274)于2013-06-01 23-09-12：
(defun LOAD-COM        ()

CCarch

牵ぶ伱の佑手(379002274)于2013-06-01 23-10-57：
找到了， 原来是我误删了一些

CCarch

牵ぶ伱の佑手(379002274)于2013-06-01 23-11-05：
给大家个完整的，

CCarch

牵ぶ伱の佑手(379002274)于2013-06-01 23-11-31：
打印所有布局， 用vla做的：

CCarch

牵ぶ伱の佑手(379002274)于2013-06-01 23-11-34：
(defun LOAD-COM        ()
  (VL-LOAD-COM)
  (setq        cad        (vlax-get-acad-object)
        adoc        (vla-get-ActiveDocument cad)
        layouts        (vla-get-Layouts adoc)
        model        (vla-get-ModelSpace adoc)
        plot        (vla-get-plot adoc)
  )
)

(defun c:poall()
  (load-com)
  (setq n 1)
  (repeat (1- (vla-get-Count layouts))
    (setq layouts(vla-get-name (vla-item layouts n)))
    (setq laylist (vlax-make-safearray vlax-vbString (cons 0 2)))
    (vlax-safearray-put-element laylist 0 layouts)
    (vla-setlayoutstoplot plot laylist)
    (vla-plottodevice plot)
    (setq n (1+ n))
  )
)

CCarch

'鍢∞鍢(19162203)于2013-06-01 23-11-38：
哦！没看全！我说嘛又出个新鲜的函数

CCarch

'鍢∞鍢(19162203)于2013-06-01 23-16-10：
#函数 ssgetfirst

CCarch

'鍢∞鍢(19162203)于2013-06-01 23-18-15：
这个函数返回的第一个元素，夹取而非选取是个什么情况？

CCarch

'鍢∞鍢(19162203)于2013-06-01 23-20-07：
请问！

CCarch

牵ぶ伱の佑手(379002274)于2013-06-01 23-26-50：
真学的没有你细

CCarch

牵ぶ伱の佑手(379002274)于2013-06-01 23-26-58：
什么是夹取