[转帖]vla-wblock的用法

前生

(defun c:al-wblock ()

(vl-load-com)

(setq thisdrawing (vla-get-activedocument
                       (vlax-get-acad-object)))

(setq ssets (vla-get-selectionsets thisdrawing))

(if (vl-catch-all-error-p
    (vl-catch-all-apply 'vla-item (list ssets "$Set")))

  (setq newSet (vla-add ssets "$Set"))
  
     (progn
      
            (vla-delete (vla-item ssets "$Set"))
      
          (setq newSet (vla-add ssets "$Set"))
      
     );progn

);if

;select all objects in the drawing
(vla-Select newSet acSelectionSetAll)

(vla-WBlock thisdrawing "c:/test.dwg" newSet)

(princ)

);defun

龙龙仔

;;再简化一点
;;By 龙龙仔
;;范例vla-wblock的用法
(defun C:ALL-WBLOCK (/  SSOBJ THISDRAWING)
  (vl-load-com)
  (ssget "x" (list (cons 410 (getvar "ctab"))))
  (setq        SSOBJ (vla-get-activeselectionset
                (setq THISDRAWING
                       (vla-get-activedocument
                         (vlax-get-acad-object)
                       )
                )
              )
  )
  (vla-wblock THISDRAWING "c:/test.dwg" SSOBJ)
  (vlax-release-object THISDRAWING)
  (vlax-release-object SSOBJ)
  (princ)
)

前生

呵呵，承教!
在Vlisp方面，还是需要时间学习.

zst1978

我想加你QQ号码啊