日志

应用table在CAD中新建表

已有 185 次阅读2018-11-20 14:40 |个人分类:职业工程师

(vl-load-com)

(defun c:Example_AddTable()

;; This example adds a table in model space

(setq acadObj (vlax-get-acad-object))

(setq doc (vla-get-ActiveDocument acadObj))

(setq pt (vlax-3d-point 0 0 0))

(setq modelSpace (vla-get-ModelSpace doc))

(setq MyTable (vla-Addtable modelSpace pt 5 5 10 30))

(vla-ZoomExtents acadObj)

)

GMT+8, 2024-4-16 22:32 , Processed in 1.394479 second(s), 23 queries , Gzip On.