;主程序: ObjectDCL對(duì)話框驅(qū)動(dòng)程序的最基本結(jié)構(gòu)
(defun C:MyHello()
	;確保將ObjectDCL.arx 載入 AutoCAD
	(if (not (member "objectdcl.arx" (arx)))
		(arxload "objectdcl.arx" "加載objectdcl.arx 失敗.")
	)
	
	;加載對(duì)話框odc文件
	(ODcl_LoadProject "MyHello")
	
	;顯示DclForm1對(duì)話框
	(Odcl_Form_Show "MyHello" "DclForm1")
	(princ);
)