[编程交流] 将此代码更改为以C语言运行

 
(defun open_dbx (dwg / dbx)
(if (< (atoi (substr (getvar "ACADVER") 1 2)) 16)
(setq dbx (vlax-create-object "ObjectDBX.AxDbDocument"))
(setq dbx (vlax-create-object
(strcat "ObjectDBX.AxDbDocument."
(substr (getvar "ACADVER") 1 2)))))
(vla-open dbx dwg)
dbx
)
;Get "Valve" in 'ValveBlock_TapCard.dwg" file :
(setq Dbx (open_dbx "I:/Water_CAD_Details/TAP_BlockLibrary/ValveBlock_TapCard.dwg")) ; file name containing block
(vla-CopyObjects
Dbx
(vlax-safearray-fill
(vlax-make-safearray vlax-vbObject '(0 . 0))
(list (vla-item (vla-get-blocks dbx) "Valve")))
(vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))))
(vlax-release-object dbx) ;Clean-up
;Next block import
(setq Dbx (open_dbx "I:/Water_CAD_Details/TAP_BlockLibrary/ManholeBlock_TapCard.dwg")) ; file name containing block
(vla-CopyObjects
Dbx
(vlax-safearray-fill
(vlax-make-safearray vlax-vbObject '(0 . 0))
(list (vla-item (vla-get-blocks dbx) "Manhole")))
(vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))))
(vlax-release-object dbx) ;Clean-up
;Next block import
(setq Dbx (open_dbx "I:/Water_CAD_Details/TAP_BlockLibrary/BuildingBlock_TapCard.dwg")) ; file name containing block
(vla-CopyObjects
Dbx
(vlax-safearray-fill
(vlax-make-safearray vlax-vbObject '(0 . 0))
(list (vla-item (vla-get-blocks dbx) "Building")))
(vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))))
(vlax-release-object dbx) ;Clean-up
;Next block import
(setq Dbx (open_dbx "I:/Water_CAD_Details/TAP_BlockLibrary/CurbValveBlock_TapCard.dwg")) ; file name containing block
(vla-CopyObjects
Dbx
(vlax-safearray-fill
(vlax-make-safearray vlax-vbObject '(0 . 0))
(list (vla-item (vla-get-blocks dbx) "CurbValve")))
(vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))))
(vlax-release-object dbx) ;Clean-up
;Next block import
(setq Dbx (open_dbx "I:/Water_CAD_Details/TAP_BlockLibrary/GateValveBlock_TapCard.dwg")) ; file name containing block
(vla-CopyObjects
Dbx
(vlax-safearray-fill
(vlax-make-safearray vlax-vbObject '(0 . 0))
(list (vla-item (vla-get-blocks dbx) "GateValve")))
(vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))))
(vlax-release-object dbx) ;Clean-up
;Next block import
(setq Dbx (open_dbx "I:/Water_CAD_Details/TAP_BlockLibrary/HydrantBlock_TapCard.dwg")) ; file name containing block
(vla-CopyObjects
Dbx
(vlax-safearray-fill
(vlax-make-safearray vlax-vbObject '(0 . 0))
(list (vla-item (vla-get-blocks dbx) "Hydrant")))
(vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))))
(vlax-release-object dbx) ;Clean-up
;Next block import
(setq Dbx (open_dbx "I:/Water_CAD_Details/TAP_BlockLibrary/MeterPitBlock_TapCard.dwg")) ; file name containing block
(vla-CopyObjects
Dbx
(vlax-safearray-fill
(vlax-make-safearray vlax-vbObject '(0 . 0))
(list (vla-item (vla-get-blocks dbx) "MeterPit")))
(vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))))
(vlax-release-object dbx) ;Clean-up
;Next block import
(setq Dbx (open_dbx "I:/Water_CAD_Details/TAP_BlockLibrary/NArrowBlock_TapCard.dwg")) ; file name containing block
(vla-CopyObjects
Dbx
(vlax-safearray-fill
(vlax-make-safearray vlax-vbObject '(0 . 0))
(list (vla-item (vla-get-blocks dbx) "NorthArrow")))
(vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))))
(vlax-release-object dbx) ;Clean-up
;Next block import
(setq Dbx (open_dbx "I:/Water_CAD_Details/TAP_BlockLibrary/PoleBlock_TapCard.dwg")) ; file name containing block
(vla-CopyObjects
Dbx
(vlax-safearray-fill
(vlax-make-safearray vlax-vbObject '(0 . 0))
(list (vla-item (vla-get-blocks dbx) "Pole")))
(vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))))
(vlax-release-object dbx) ;Clean-up
;Next block import
(setq Dbx (open_dbx "I:/Water_CAD_Details/TAP_BlockLibrary/StreetNameBlock_TapCard.dwg")) ; file name containing block
(vla-CopyObjects
Dbx
(vlax-safearray-fill
(vlax-make-safearray vlax-vbObject '(0 . 0))
(list (vla-item (vla-get-blocks dbx) "StreetName")))
(vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))))
(vlax-release-object dbx) ;Clean-up
;Next block import
(setq Dbx (open_dbx "I:/Water_CAD_Details/TAP_BlockLibrary/TapCardNumberBlock_TapCard.dwg")) ; file name containing block
(vla-CopyObjects
Dbx
(vlax-safearray-fill
(vlax-make-safearray vlax-vbObject '(0 . 0))
(list (vla-item (vla-get-blocks dbx) "TapCardNumber")))
(vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))))
(vlax-release-object dbx) ;Clean-up
;Next block import
(setq Dbx (open_dbx "I:/Water_CAD_Details/TAP_BlockLibrary/WallBlock_TapCard.dwg")) ; file name containing block
(vla-CopyObjects
Dbx
(vlax-safearray-fill
(vlax-make-safearray vlax-vbObject '(0 . 0))
(list (vla-item (vla-get-blocks dbx) "Wall")))
(vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))))
(vlax-release-object dbx) ;Clean-up
;Next block import
(setq Dbx (open_dbx "I:/Water_CAD_Details/TAP_BlockLibrary/WaterMainBlock_TapCard.dwg")) ; file name containing block
(vla-CopyObjects
Dbx
(vlax-safearray-fill
(vlax-make-safearray vlax-vbObject '(0 . 0))
(list (vla-item (vla-get-blocks dbx) "WaterMain")))
(vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))))
(vlax-release-object dbx) ;Clean-up