[LISP函数]：写块函数vla-wblock命令用法

menglangs

已知一个矩形，矩形2个角点坐标为(x1,y1)  (x2,y2)，要将矩形内图形以WBLOCK写入某个文件，请问应如何操作？？？因手中无函数说明，只在网上查得vla-wblock有3个参数，
  (vla-wblock THISDRAWING "c:/test.dwg" SSOBJ)

xyp1964

[php](vla-Wblock
  (vla-get-ActiveDocument (vlax-get-acad-object))
  "c:/test.dwg"
  (ssget "w" '(x1 y1) '(x2 y2))
)[/php]

menglangs

已经收到，十分感谢。

chdragon

最初由 xyp1964 发布
[B][php](vla-Wblock
  (vla-get-ActiveDocument (vlax-get-acad-object))
  "c:/test.dwg"
  (ssget "w" '(x1 y1) '(x2 y2))
)[/php] [/B]

那么如何批量wblock啊？

xyp1964

最初由 chdragon 发布
[B]

那么如何批量wblock?.. [/B]

看看：http://www.xdcad.net/forum/showthread.php?s=&threadid=337807

雨箭风刀

最初由 xyp1964 发布
[B][php](vla-Wblock
  (vla-get-ActiveDocument (vlax-get-acad-object))
  "c:/test.dwg"
  (ssget "w" '(x1 y1) '(x2 y2))
)[/php] [/B]

语法

object.WBlock FileName, SelectionSet

Object

Document
使用该方法的对象。 　

FileName

String[字符串]; 仅用于输入
所写新文件名称。

SelectionSet

SelectionSet对象; 仅用于输入
选择集名称。


ssget 《》SelectionSet对象 ？？？？？

chdragon

最初由 xyp1964 发布
[B]
看看：http://www.xdcad.net/forum/showthread.php?s=&threadid=337807 [/B]

呵呵，谢谢，你的程序瞒好用，不过要选折比较正确，不然只要是有框的都有输出，能不能做成秋枫那种选择某个图块作为边框来输出dwg啊

tc405003

存盘路径(C:/ls)<c:\lisp>:
; 错误: 参数类型错误: stringp #<SUBR @04c911f4 STR1>

win-gf

我没发现楼上的问题啊

chdragon

最初由 tc405003 发布
[B]存盘路径(C:/ls)<c:\lisp>:
; 错误: 参数类型错误: stringp #<SUBR @04c911f4 STR1> [/B]

好像中文路径就有点问题

olenewman

(vla-Wblock
  (vla-get-ActiveDocument (vlax-get-acad-object))
  "c:/test.dwg"
  (ssget "w" '(x1 y1) '(x2 y2))
这样不行呢。有人说选择集必须是变体才行。

dnbcgrass

    (vl-load-com)
    (if (setq ssa (ssget))
        (progn
            (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
            (setq ssetObj (vla-Add (vla-get-SelectionSets doc) "WBLOCKSET"))
            (setq objs (vlax-make-safearray vlax-vbObject (cons 0 (1- (sslength ssa)))))
            (setq i 0)
            (vlax-for obj (vla-get-ActiveSelectionSet doc)
               (vlax-safearray-put-element objs i obj)
               (setq i (1+ i))
            )
            (vla-AddItems ssetObj objs)
            (vla-Wblock doc "e:/test.dwg" ssetObj)
            (vlax-release-object doc)
        )
    )

dnbcgrass

;或者
    (vl-load-com)
    (if (setq ssa (ssget))
        (progn
            (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
            (vla-Wblock doc "e:/test.dwg" (vla-get-ActiveSelectionSet doc))
            (vlax-release-object doc)
        )
    )
    (princ)

olenewman

谢谢dnbcgrass，厉害啊。