[转帖]vla-wblock的用法

前生 · 发表于 2003-8-25 14:31:00

(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

龙龙仔 · 发表于 2003-8-25 15:31:00

;;再简化一点
;;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)
)

前生 · 发表于 2003-8-25 15:50:00

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

[转帖]vla-wblock的用法

发表回复

精选推荐