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

eachy

eachy(124471899)于2013-06-01 22-09-51：
如果写Lisp要很长很长的代码

eachy

eachy(124471899)于2013-06-01 22-09-58：
不用命令

CCarch

牵ぶ伱の佑手(379002274)于2013-06-01 22-10-20：
我也是看到人家写过， 我还一直想不通呢

CCarch

牵ぶ伱の佑手(379002274)于2013-06-01 22-10-26：
现在明白了， 谢

CCarch

牵ぶ伱の佑手(379002274)于2013-06-01 22-15-57：
个人感觉vla里的很好用， 但是就是学的不怎的，有没有好的方法学vla

eachy

eachy(124471899)于2013-06-01 22-21-41：
vla 和 Alisp 各有所长，该用哪个的时候就用哪个

CCarch

牵ぶ伱の佑手(379002274)于2013-06-01 22-53-45：
(defun LOAD-COM        (/ cad adoc layouts model)
  (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))
    (vla-plottodevice (vla-Item layouts n))
(vla-plottodevice plot)
    (setq laylist(vlax-make-safearray vlax-vbString  (cons 0 2)))
    (vlax-safearray-put-element laylist  0  "layouts")
      (vla-setlayoutstoplot plot laylist )
    (vla-plottodevice plot)

  )
)

CCarch

牵ぶ伱の佑手(379002274)于2013-06-01 22-53-49：
请人看下

CCarch

牵ぶ伱の佑手(379002274)于2013-06-01 22-54-05：
到了最后一步说，

CCarch

'鍢∞鍢(19162203)于2013-06-01 22-54-05：
alisp函数还没学全的飘过！[face9.gif]

CCarch

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

CCarch

牵ぶ伱の佑手(379002274)于2013-06-01 22-54-46：
求人指路

CCarch

271682673(271682673)于2013-06-01 22-58-26：
签到

CCarch

牵ぶ伱の佑手(379002274)于2013-06-01 23-03-32：
找高手

CCarch

牵ぶ伱の佑手(379002274)于2013-06-01 23-03-35：
(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 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))
  )
)